basis/help/html/html-tests.factor

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