USING: kernel tools.destructors tools.test destructors namespaces ;
IN: tools.destructors.tests

f debug-leaks? set-global

[ [ 3 throw ] leaks. ] must-fail

{ f } [ debug-leaks? get-global ] unit-test

{ } [ [ ] leaks. ] unit-test

{ f } [ debug-leaks? get-global ] unit-test