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 ! Disabled these tests, which would be nice to have, but hard
  10 ! on automated build machines to test and verify.
  11 ! { } [ "" absolute-path open-item ] unit-test
  12 ! { } [ URL" http://www.google.com" open-item ] unit-test