basis/libc/libc-tests.factor

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