webbrowser: add tests for url-like.

db4
John Benediktsson 2012-09-22 16:51:03 -07:00
parent ab7890911c
commit ea0759fff6
1 changed files with 7 additions and 0 deletions

View File

@ -0,0 +1,7 @@
USING: tools.test ;
IN: webbrowser
{ t } [ "http://reddit.com" url-like? ] unit-test
{ t } [ "https://reddit.com" url-like? ] unit-test
{ f } [ "ftp://reddit.com" url-like? ] unit-test
{ f } [ 123 url-like? ] unit-test