diff --git a/basis/help/definitions/definitions-tests.factor b/basis/help/definitions/definitions-tests.factor index 2c894c3812..1b8bcccce7 100755 --- a/basis/help/definitions/definitions-tests.factor +++ b/basis/help/definitions/definitions-tests.factor @@ -1,6 +1,6 @@ USING: math definitions help.topics help tools.test prettyprint parser io.streams.string kernel source-files -assocs namespaces words io sequences eval ; +assocs namespaces words io sequences eval accessors ; IN: help.definitions.tests [ ] [ \ + >link see ] unit-test @@ -10,7 +10,7 @@ IN: help.definitions.tests "IN: help.definitions.tests USING: help.syntax ; : hello ; HELP: hello \"test\" ; ARTICLE: \"hello\" \"world\" ; ARTICLE: \"hello2\" \"world\" ;" "foo" parse-stream drop - "foo" source-file source-file-definitions first assoc-size + "foo" source-file definitions>> first assoc-size ] unit-test [ t ] [ "hello" articles get key? ] unit-test @@ -23,7 +23,7 @@ IN: help.definitions.tests "IN: help.definitions.tests USING: help.syntax ; : hello ; ARTICLE: \"hello\" \"world\" ;" "foo" parse-stream drop - "foo" source-file source-file-definitions first assoc-size + "foo" source-file definitions>> first assoc-size ] unit-test [ t ] [ "hello" articles get key? ] unit-test diff --git a/basis/help/markup/markup-tests.factor b/basis/help/markup/markup-tests.factor index 6b138a18ab..222c4e7d3f 100644 --- a/basis/help/markup/markup-tests.factor +++ b/basis/help/markup/markup-tests.factor @@ -1,13 +1,13 @@ USING: definitions help help.markup kernel sequences tools.test -words parser namespaces assocs generic io.streams.string ; +words parser namespaces assocs generic io.streams.string accessors ; IN: help.markup.tests TUPLE: blahblah quux ; [ "an int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test -[ ] [ \ blahblah-quux help ] unit-test -[ ] [ \ set-blahblah-quux help ] unit-test +[ ] [ \ quux>> help ] unit-test +[ ] [ \ >>quux help ] unit-test [ ] [ \ blahblah? help ] unit-test : fooey "fooey" throw ; diff --git a/basis/help/syntax/syntax-tests.factor b/basis/help/syntax/syntax-tests.factor index 68306263a5..e7438edd4d 100755 --- a/basis/help/syntax/syntax-tests.factor +++ b/basis/help/syntax/syntax-tests.factor @@ -1,5 +1,6 @@ +USING: kernel tools.test parser vocabs help.syntax namespaces +eval accessors ; IN: help.syntax.tests -USING: tools.test parser vocabs help.syntax namespaces eval ; [ [ "foobar" ] [ @@ -12,5 +13,5 @@ USING: tools.test parser vocabs help.syntax namespaces eval ; "help.syntax.tests" vocab vocab-help ] unit-test - [ ] [ f "help.syntax.tests" vocab set-vocab-help ] unit-test + [ ] [ "help.syntax.tests" vocab f >>help drop ] unit-test ] with-file-vocabs