basis/tools/test/test-tests.factor

   1 IN: tools.test.tests
   2 USING: tools.test tools.test.private namespaces kernel sequences ;
   3
   4 \ test-all must-infer
   5
   6 : fake-unit-test ( quot -- )
   7     [
   8         "fake" file set
   9         V{ } clone test-failures set
  10         call
  11         test-failures get
  12     ] with-scope ; inline
  13
  14 [ 1 ] [
  15     [
  16         [ "OOPS" ] must-fail
  17     ] fake-unit-test length
  18 ] unit-test