55 lines
1.6 KiB
Factor
55 lines
1.6 KiB
Factor
|
IN: temporary
|
||
|
|
USING: help.crossref help.topics help.markup tools.test words
|
||
|
|
definitions assocs sequences kernel namespaces parser arrays
|
||
|
|
io.streams.string continuations debugger ;
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"IN: temporary USING: help.syntax help.markup ; : foo ; HELP: foo \"foo is great\" ; ARTICLE: \"foo\" \"Foo\" { $subsection foo } ;" eval
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ $subsection ] [
|
||
|
|
"foo" article-content first first
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ t ] [
|
||
|
|
"foo" article-children
|
||
|
|
"foo" "temporary" lookup 1array sequence=
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ "foo" ] [ "foo" "temporary" lookup article-parent ] unit-test
|
||
|
|
|
||
|
|
[ ] [ "foo" "temporary" lookup forget ] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"IN: temporary USING: help.syntax help.markup ; : bar ; HELP: bar \"bar is great\" ; ARTICLE: \"bar\" \"Bar\" { $subsection bar } ;" eval
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"IN: ayy USE: help.syntax ARTICLE: \"b\" \"B\" ;"
|
||
|
|
<string-reader> "ayy" parse-stream drop
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"IN: azz USE: help.syntax USE: help.markup ARTICLE: \"a\" \"A\" { $subsection \"b\" } ;"
|
||
|
|
<string-reader> "ayy" parse-stream drop
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"IN: ayy USE: help.syntax ARTICLE: \"c\" \"C\" ;"
|
||
|
|
<string-reader> "ayy" parse-stream drop
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
"IN: azz USE: help.syntax USE: help.markup ARTICLE: \"a\" \"A\" { $subsection \"c\" } ;"
|
||
|
|
<string-reader> "ayy" parse-stream drop
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
[
|
||
|
|
"IN: azz USE: help.syntax USE: help.markup ARTICLE: \"yyy\" \"YYY\" ; ARTICLE: \"xxx\" \"XXX\" { $subsection \"yyy\" } ; ARTICLE: \"yyy\" \"YYY\" ;"
|
||
|
|
<string-reader> "parent-test" parse-stream drop
|
||
|
|
] catch [ :1 ] when
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ "xxx" ] [ "yyy" article-parent ] unit-test
|