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

webbrowser: rename url-like to url-string.

db4
John Benediktsson 2012-09-22 16:52:01 -07:00
parent ea0759fff6
commit 988e2ee4a9
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/webbrowser/webbrowser-tests.factor
View File

@ -1,7 +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
{ 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

4
basis/webbrowser/webbrowser.factor
View File

@ -19,7 +19,7 @@ HOOK: open-file os ( path -- )
[ url? ] \ open-url H{ } define-operation
PREDICATE: url-like < string
PREDICATE: url-string < string
{ [ "http://" head? ] [ "https://" head? ] } 1|| ;
[ url-like? ] \ open-url H{ } define-operation
[ url-string? ] \ open-url H{ } define-operation