new accessors

diff --git a/basis/help/definitions/definitions-tests.factor b/basis/help/definitions/definitions-tests.factor
index 2c894c3812d72c7cc33c61d02a4913dca6bc2abf..1b8bcccce7e18851e2e507dfbbe6a7addc420942 100755 (executable)
--- 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\" ;" <string-reader> "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\" ;" <string-reader> "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 6b138a18ab42a4147ac8d7a4e747a7f18fa2cb96..222c4e7d3f8655df2d4df4cbc235d765a7c33e71 100644 (file)
--- 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 68306263a59e4c412119e014c26cb3bdee790ba4..e7438edd4d82d32643a615c037b3e2f7c4befd7b 100755 (executable)
--- 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