basis/libc/libc-tests.factor

   1 IN: libc.tests\r
   2 USING: libc libc.private tools.test namespaces assocs\r
   3 destructors kernel ;\r
   4 \r
   5 100 malloc "block" set\r
   6 \r
   7 [ t ] [ "block" get mallocs key? ] unit-test\r
   8 \r
   9 [ ] [ [ "block" get &free drop ] with-destructors ] unit-test\r
  10 \r
  11 [ f ] [ "block" get mallocs key? ] unit-test\r