steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

urls.tests: unit tests for url-addr

db4
Björn Lindqvist 2013-09-09 16:05:17 +02:00 committed by John Benediktsson
parent d3e5312b44
commit e151972d47
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/urls/urls-tests.factor
View File

@ -1,5 +1,5 @@
IN: urls.tests IN: urls.tests
USING: urls urls.private tools.test prettyprint USING: io.sockets io.sockets.secure urls urls.private tools.test prettyprint
arrays kernel assocs present accessors ; arrays kernel assocs present accessors ;
CONSTANT: urls CONSTANT: urls
@ -265,3 +265,13 @@ urls [
[ "/" ] [ "http://www.jedit.org" >url path>> ] unit-test [ "/" ] [ "http://www.jedit.org" >url path>> ] unit-test
[ "USING: urls ;\nURL\" foo\"" ] [ URL" foo" unparse-use ] unit-test [ "USING: urls ;\nURL\" foo\"" ] [ URL" foo" unparse-use ] unit-test
[ T{ inet { host "google.com" } { port 80 } } ]
[ URL" http://google.com/" url-addr ] unit-test
[
T{ secure
{ addrspec T{ inet { host "google.com" } { port 443 } } }
}
]
[ URL" https://google.com/" url-addr ] unit-test