|
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
|