USING: definitions help help.markup kernel sequences tools.test
words parser namespaces assocs generic io.streams.string ;
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
[ ] [ \ blahblah? help ] unit-test

: fooey "fooey" throw ;

[ ] [ \ fooey help ] unit-test

[ ] [ gensym help ] unit-test