From ea0759fff6be9ce96d2cf3c04f978d3a3909d879 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 22 Sep 2012 16:51:03 -0700 Subject: [PATCH] webbrowser: add tests for url-like. --- basis/webbrowser/webbrowser-tests.factor | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 basis/webbrowser/webbrowser-tests.factor diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor new file mode 100644 index 0000000000..75bcd59fd2 --- /dev/null +++ b/basis/webbrowser/webbrowser-tests.factor @@ -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