basis/tools/scaffold/scaffold-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test tools.scaffold unicode.case kernel
   4 tools.scaffold.private io.streams.string ;
   5 IN: tools.scaffold.tests
   6
   7 : undocumented-word ( obj1 obj2 -- obj3 obj4 )
   8     [ >lower ] [ >upper ] bi* ;
   9
  10 [
  11 """HELP: undocumented-word
  12 { $values
  13     { "obj1" object } { "obj2" object }
  14     { "obj3" object } { "obj4" object }
  15 }
  16 { $description "" } ;
  17 """
  18 ]
  19 [
  20     [ \ undocumented-word (help.) ] with-string-writer
  21 ] unit-test