basis/see/see-tests.factor

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