basis/tools/test/test-tests.factor

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