45 lines
994 B
Factor
45 lines
994 B
Factor
IN: temporary
|
|
USING: definitions help kernel sequences test words parser
|
|
namespaces hashtables ;
|
|
|
|
! Test help cross-referencing
|
|
|
|
{ "test" "b" } "Test B" { "Hello world." } f <article> add-article
|
|
|
|
{ "test" "a" } "Test A" { { $subsection { "test" "b" } } } f <article> add-article
|
|
|
|
{ "test" "a" } remove-article
|
|
|
|
[ t ] [ { "test" "b" } parents empty? ] unit-test
|
|
|
|
SYMBOL: foo
|
|
|
|
{ "test" "a" } "Test A" { { $subsection foo } } f <article> add-article
|
|
|
|
foo { $description "Fie foe fee" } set-word-help
|
|
|
|
[ t ] [ "Fie" search-help [ first foo eq? ] contains? ] unit-test
|
|
|
|
\ foo forget
|
|
|
|
[ f ] [ "Fie" search-help [ first foo eq? ] contains? ] unit-test
|
|
|
|
! Test article location recording
|
|
|
|
[ ] [
|
|
{
|
|
"ARTICLE: { \"test\" 1 } \"Hello\""
|
|
"\"abc\""
|
|
"\"def\" ;"
|
|
} "\n" join
|
|
[
|
|
"testfile" file set
|
|
eval
|
|
] with-scope
|
|
] unit-test
|
|
|
|
[ { "testfile" 1 } ]
|
|
[ { "test" 1 } articles get hash article-loc ] unit-test
|
|
|
|
[ ] [ { "test" 1 } remove-article ] unit-test
|