basis/help/html/html-tests.factor

   1 USING: help.html help.vocabs tools.test help.topics kernel sequences vocabs
   2 math ;
   3 IN: help.html.tests
   4
   5 { } [ "xml" >link help>html drop ] unit-test
   6
   7 { } [ "foobar" >link topic>filename drop ] unit-test
   8
   9 { } [ { "foo" "bar" } >link topic>filename drop ] unit-test
  10
  11 { } [ \ + topic>filename drop ] unit-test
  12
  13 { } [ \ + >link topic>filename drop ] unit-test
  14
  15 { } [ "doesnotexist" >vocab-link topic>filename drop ] unit-test
  16
  17 { } [ "kernel" lookup-vocab topic>filename drop ] unit-test
  18
  19 { } [ "io" <vocab-tag> topic>filename drop ] unit-test
  20
  21 { } [ "Steve Jobs" <vocab-author> topic>filename drop ] unit-test
  22
  23 { } [ f topic>filename drop ] unit-test
  24
  25 { t } [ all-vocabs-really [ vocab-spec? ] all? ] unit-test
  26
  27 { t } [ all-vocabs-really [ vocab-name "sequences.private" = ] any? ] unit-test
  28
  29 { f } [ all-vocabs-really [ vocab-name "scratchpad" = ] any? ] unit-test