2014-04-04 12:28:39 -04:00
|
|
|
IN: libc.tests
|
2014-04-04 12:29:42 -04:00
|
|
|
USING: destructors kernel libc libc.private namespaces
|
|
|
|
|
tools.test ;
|
2014-04-04 12:28:39 -04:00
|
|
|
|
|
|
|
|
100 malloc "block" set
|
|
|
|
|
|
|
|
|
|
[ t ] [ "block" get malloc-exists? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ [ "block" get &free drop ] with-destructors ] unit-test
|
|
|
|
|
|
|
|
|
|
[ f ] [ "block" get malloc-exists? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "Operation not permitted" ] [ 1 strerror ] unit-test
|
