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