basis/help/topics/topics-tests.factor

   1 USING: accessors definitions help help.topics help.crossref
   2 help.markup help.syntax kernel sequences tools.test words parser
   3 namespaces assocs source-files eval ;
   4 IN: help.topics.tests
   5
   6 \ article-name must-infer
   7 \ article-title must-infer
   8 \ article-content must-infer
   9 \ article-parent must-infer
  10
  11 ! Test help cross-referencing
  12
  13 [ ] [ "Test B" { "Hello world." } <article> { "test" "b" } add-article ] unit-test
  14
  15 [ ] [ "Test A" { { $subsection { "test" "b" } } } <article> { "test" "a" } add-article ] unit-test
  16
  17 SYMBOL: foo
  18
  19 [ ] [ "Test A" { { $subsection foo } } <article> { "test" "a" } add-article ] unit-test
  20
  21 ! Test article location recording
  22
  23 [ ] [
  24     {
  25         "USE: help.syntax"
  26         "ARTICLE: { \"test\" 1 } \"Hello\""
  27         "\"abc\""
  28         "\"def\" ;"
  29     } "\n" join
  30     [
  31         "testfile" source-file file set
  32         eval
  33     ] with-scope
  34 ] unit-test
  35
  36 [ { "testfile" 2 } ]
  37 [ { "test" 1 } articles get at loc>> ] unit-test
  38
  39 [ ] [ { "test" 1 } remove-article ] unit-test