basis/see/see-tests.factor

   1 USING: see tools.test io.streams.string math sequences summary
   2 words ;
   3 IN: see.tests
   4
   5 CONSTANT: test-const 10
   6
   7 { "IN: see.tests\nCONSTANT: test-const 10 inline\n" }
   8 [ [ \ test-const see ] with-string-writer ] unit-test
   9
  10 { "IN: sequences\nERROR: non-negative-integer-expected n ;\n" }
  11 [ [ \ non-negative-integer-expected see ] with-string-writer ] unit-test
  12
  13 ALIAS: test-alias +
  14
  15 { "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" }
  16 [ [ \ test-alias see ] with-string-writer ] unit-test
  17
  18 { "IN: see.tests ALIAS: test-alias ( x y -- z )" }
  19 [ \ test-alias summary ] unit-test
  20
  21 { } [ gensym see ] unit-test
  22