1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: help.markup io.streams.string kernel sequences
4 tools.scaffold tools.scaffold.private tools.test unicode.case ;
5 IN: tools.scaffold.tests
7 : undocumented-word ( obj1 obj2 -- obj3 obj4 )
8 [ >lower ] [ >upper ] bi* ;
11 """HELP: undocumented-word
13 { "obj1" object } { "obj2" object }
14 { "obj3" object } { "obj4" object }
20 [ \ undocumented-word (help.) ] with-string-writer
23 { sequence t } [ "seq" lookup-type ] unit-test
24 { sequence t } [ "seq'" lookup-type ] unit-test
25 { sequence t } [ "newseq" lookup-type ] unit-test
26 { { $maybe sequence } t } [ "seq/f" lookup-type ] unit-test
27 { f f } [ "foo" lookup-type ] unit-test
30 : test-maybe ( obj -- obj/f ) ;
32 { } [ \ test-maybe (help.) ] unit-test