1 USING: math definitions help.topics help tools.test sets
2 prettyprint parser io.streams.string kernel source-files
3 assocs namespaces words io sequences eval accessors see ;
4 IN: help.definitions.tests
6 [ ] [ \ + >link see ] unit-test
10 "IN: help.definitions.tests USING: help.syntax ; : hello ( -- ) ; HELP: hello \"test\" ; ARTICLE: \"hello\" \"world\" ; ARTICLE: \"hello2\" \"world\" ;" <string-reader> "foo"
13 "foo" source-file definitions>> first cardinality
16 [ t ] [ "hello" articles get key? ] unit-test
17 [ t ] [ "hello2" articles get key? ] unit-test
19 "hello" "help.definitions.tests" lookup-word "help" word-prop >boolean
23 "IN: help.definitions.tests USING: help.syntax ; : hello ( -- ) ; ARTICLE: \"hello\" \"world\" ;" <string-reader> "foo"
26 "foo" source-file definitions>> first cardinality
29 [ t ] [ "hello" articles get key? ] unit-test
30 [ f ] [ "hello2" articles get key? ] unit-test
32 "hello" "help.definitions.tests" lookup-word "help" word-prop
35 [ ] [ "IN: help.definitions.tests USING: help.syntax ; : xxx ( -- ) ; HELP: xxx ;" eval( -- ) ] unit-test
37 [ ] [ "xxx" "help.definitions.tests" lookup-word print-topic ] unit-test
39 [ ] [ "xxx" "help.definitions.tests" lookup-word >link synopsis print ] unit-test