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