extra/help/markup/markup-tests.factor

   1 USING: definitions help help.markup kernel sequences tools.test
   2 words parser namespaces assocs generic io.streams.string ;
   3 IN: help.markup.tests
   4
   5 TUPLE: blahblah quux ;
   6
   7 [ "an int" ] [ [ { "int" } $instance ] with-string-writer ] unit-test
   8
   9 [ ] [ \ blahblah-quux help ] unit-test
  10 [ ] [ \ set-blahblah-quux help ] unit-test
  11 [ ] [ \ blahblah? help ] unit-test
  12
  13 : fooey "fooey" throw ;
  14
  15 [ ] [ \ fooey help ] unit-test
  16
  17 [ ] [ gensym help ] unit-test