Merge pull request #148 from ba-st/web_origin_improvements

Add `WebOrigin>>asWebOrigin` and `WebOrigin>>asUrl`

source/Stargate-Model-Tests/WebOriginTest.class.st

@@ -1,9 +1,27 @@
 Class {
 	#name : #WebOriginTest,
 	#superclass : #TestCase,
-	#category : #'Stargate-Model-Tests-Routing'
+	#category : #'Stargate-Model-Tests-CORS'
 }
 
+{ #category : #tests }
+WebOriginTest >> testAsUrl [
+
+	| origin |
+	origin := 'http://example.com/' asWebOrigin.
+
+	self assertUrl: origin asUrl equals: 'http://example.com'
+]
+
+{ #category : #tests }
+WebOriginTest >> testAsWebOrigin [
+
+	| origin |
+	origin := 'http://example.com/' asWebOrigin.
+
+	self assert: origin asWebOrigin == origin
+]
+
 { #category : #tests }
 WebOriginTest >> testComparing [
 
@@ -25,6 +43,22 @@ WebOriginTest >> testComparing [
 		withMessageText: 'mailto:[email protected] does not comply with a valid origin'
 ]
 
+{ #category : #tests }
+WebOriginTest >> testPrintString [
+
+	self
+		assert: 'http://example.com/' asWebOrigin printString
+		equals: 'http://example.com';
+		assert: 'http://example.com:80/' asWebOrigin printString
+		equals: 'http://example.com';
+		assert: 'http://example.com/path/file' asWebOrigin printString
+		equals: 'http://example.com';
+		assert:
+			'https://[email protected]:123/forum/questions?id=1'
+				asWebOrigin printString
+		equals: 'https://www.example.com:123'
+]
+
 { #category : #tests }
 WebOriginTest >> testValidOrigins [
 

source/Stargate-Model/WebOrigin.class.st

@@ -47,6 +47,18 @@ WebOrigin >> = aWebOrigin [
 	^ self asString = aWebOrigin asString
 ]
 
+{ #category : #converting }
+WebOrigin >> asUrl [
+
+	^ url copy
+]
+
+{ #category : #converting }
+WebOrigin >> asWebOrigin [
+
+	^ self
+]
+
 { #category : #comparing }
 WebOrigin >> hash [