2012-09-22 19:51:03 -04:00
|
|
|
USING: tools.test ;
|
|
|
|
|
IN: webbrowser
|
|
|
|
|
|
2012-09-22 19:52:01 -04:00
|
|
|
{ t } [ "http://reddit.com" url-string? ] unit-test
|
|
|
|
|
{ t } [ "https://reddit.com" url-string? ] unit-test
|
|
|
|
|
{ f } [ "ftp://reddit.com" url-string? ] unit-test
|
|
|
|
|
{ f } [ 123 url-string? ] unit-test
|
