]> gitweb.factorcode.org Git - factor.git/blob - basis/webbrowser/webbrowser-tests.factor
more test IN: cleanup.
[factor.git] / basis / webbrowser / webbrowser-tests.factor
1 USING: io.pathnames tools.test urls webbrowser ;
2
3 { t } [ "http://reddit.com" url-string? ] unit-test
4 { t } [ "https://reddit.com" url-string? ] unit-test
5 { t } [ "ftp://reddit.com" url-string? ] unit-test
6 { f } [ "moo" url-string? ] unit-test
7 { f } [ 123 url-string? ] unit-test
8
9 { } [ "" absolute-path open-item ] unit-test
10 { } [ URL" http://www.google.com" open-item ] unit-test