basis/help/syntax/syntax-tests.factor

   1 USING: kernel tools.test parser vocabs help.syntax namespaces
   2 eval accessors ;
   3 IN: help.syntax.tests
   4
   5 [
   6     [ "foobar" ] [
   7         "IN: help.syntax.tests USE: help.syntax ABOUT: \"foobar\"" eval( -- )
   8         "help.syntax.tests" lookup-vocab vocab-help
   9     ] unit-test
  10
  11     [ { "foobar" } ] [
  12         "IN: help.syntax.tests USE: help.syntax ABOUT: { \"foobar\" }" eval( -- )
  13         "help.syntax.tests" lookup-vocab vocab-help
  14     ] unit-test
  15
  16     [ ] [ "help.syntax.tests" lookup-vocab f >>help drop ] unit-test
  17 ] with-file-vocabs