2008-05-15 06:20:42 -04:00
|
|
|
IN: libc.tests
|
|
|
|
|
USING: libc libc.private tools.test namespaces assocs
|
|
|
|
|
destructors kernel ;
|
|
|
|
|
|
|
|
|
|
100 malloc "block" set
|
|
|
|
|
|
2008-07-29 01:05:01 -04:00
|
|
|
[ t ] [ "block" get mallocs key? ] unit-test
|
2008-05-15 06:20:42 -04:00
|
|
|
|
|
|
|
|
[ ] [ [ "block" get &free drop ] with-destructors ] unit-test
|
|
|
|
|
|
2008-07-29 01:05:01 -04:00
|
|
|
[ f ] [ "block" get mallocs key? ] unit-test
|
