basis/tools/destructors/destructors-tests.factor

   1 USING: kernel tools.destructors tools.test destructors namespaces ;
   2 IN: tools.destructors.tests
   3
   4 f debug-leaks? set-global
   5
   6 [ [ 3 throw ] leaks. ] must-fail
   7
   8 { f } [ debug-leaks? get-global ] unit-test
   9
  10 { } [ [ ] leaks. ] unit-test
  11
  12 { f } [ debug-leaks? get-global ] unit-test