basis/libc/libc-tests.factor

   1 USING: destructors kernel libc libc.private namespaces
   2 tools.test ;
   3
   4 100 malloc "block" set
   5
   6 { t } [ "block" get malloc-exists? ] unit-test
   7
   8 { } [ [ "block" get &free drop ] with-destructors ] unit-test
   9
  10 { f } [ "block" get malloc-exists? ] unit-test
  11
  12 { "Operation not permitted" } [ 1 strerror ] unit-test