extra/memory/pools/pools-tests.factor

   1 ! (c)2009 Joe Groff bsd license
   2 USING: kernel memory.pools tools.test ;
   3 IN: memory.pools.tests
   4
   5 TUPLE: foo x ;
   6
   7 { 1 } [
   8     foo 2 foo <pool> set-class-pool
   9
  10     foo new-from-pool drop
  11     foo class-pool pool-size
  12 ] unit-test
  13
  14 { T{ foo } T{ foo } f } [
  15     foo 2 foo <pool> set-class-pool
  16
  17     foo new-from-pool
  18     foo new-from-pool
  19     foo new-from-pool
  20 ] unit-test
  21
  22 { f } [
  23     foo 2 foo <pool> set-class-pool
  24
  25     foo new-from-pool
  26     foo new-from-pool
  27     eq?
  28 ] unit-test