basis/tools/scaffold/scaffold-tests.factor

   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
   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
  22
  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
  28
  29
  30 : test-maybe ( obj -- obj/f ) ;
  31
  32 { } [ \ test-maybe (help.) ] unit-test