1 IN: help.crossref.tests
2 USING: help.crossref help.topics help.markup tools.test words
3 definitions assocs sequences kernel namespaces parser arrays
4 io.streams.string continuations debugger compiler.units eval ;
7 "IN: help.crossref.tests USING: help.syntax help.markup ; : foo ; HELP: foo \"foo is great\" ; ARTICLE: \"foo\" \"Foo\" { $subsection foo } ;" eval
11 "foo" article-content first first
15 "foo" article-children
16 "foo" "help.crossref.tests" lookup 1array sequence=
19 [ "foo" ] [ "foo" "help.crossref.tests" lookup article-parent ] unit-test
22 [ "foo" "help.crossref.tests" lookup forget ] with-compilation-unit
26 "IN: help.crossref.tests USING: help.syntax help.markup ; : bar ; HELP: bar \"bar is great\" ; ARTICLE: \"bar\" \"Bar\" { $subsection bar } ;" eval
30 "IN: ayy USE: help.syntax ARTICLE: \"b\" \"B\" ;"
31 <string-reader> "ayy" parse-stream drop
35 "IN: azz USE: help.syntax USE: help.markup ARTICLE: \"a\" \"A\" { $subsection \"b\" } ;"
36 <string-reader> "ayy" parse-stream drop
40 "IN: ayy USE: help.syntax ARTICLE: \"c\" \"C\" ;"
41 <string-reader> "ayy" parse-stream drop
45 "IN: azz USE: help.syntax USE: help.markup ARTICLE: \"a\" \"A\" { $subsection \"c\" } ;"
46 <string-reader> "ayy" parse-stream drop
51 "IN: azz USE: help.syntax USE: help.markup ARTICLE: \"yyy\" \"YYY\" ; ARTICLE: \"xxx\" \"XXX\" { $subsection \"yyy\" } ; ARTICLE: \"yyy\" \"YYY\" ;"
52 <string-reader> "parent-test" parse-stream drop
56 [ "xxx" ] [ "yyy" article-parent ] unit-test