1 USING: definitions help help.topics help.crossref help.markup
2 help.syntax kernel sequences tools.test words parser namespaces
6 ! Test help cross-referencing
8 [ ] [ "Test B" { "Hello world." } <article> { "test" "b" } add-article ] unit-test
10 [ ] [ "Test A" { { $subsection { "test" "b" } } } <article> { "test" "a" } add-article ] unit-test
14 [ ] [ { "test" "a" } "Test A" { { $subsection foo } } <article> add-article ] unit-test
16 ! Test article location recording
21 "ARTICLE: { \"test\" 1 } \"Hello\""
26 "testfile" source-file file set
32 [ { "test" 1 } articles get at article-loc ] unit-test
34 [ ] [ { "test" 1 } remove-article ] unit-test