extra/memory/pools/pools-tests.factor

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