29 lines
477 B
Factor
29 lines
477 B
Factor
! (c)2009 Joe Groff bsd license
|
|
USING: kernel memory.pools tools.test ;
|
|
IN: memory.pools.tests
|
|
|
|
TUPLE: foo x ;
|
|
|
|
[ 1 ] [
|
|
foo 2 foo <pool> set-class-pool
|
|
|
|
foo new-from-pool drop
|
|
foo class-pool pool-size
|
|
] unit-test
|
|
|
|
[ T{ foo } T{ foo } f ] [
|
|
foo 2 foo <pool> set-class-pool
|
|
|
|
foo new-from-pool
|
|
foo new-from-pool
|
|
foo new-from-pool
|
|
] unit-test
|
|
|
|
[ f ] [
|
|
foo 2 foo <pool> set-class-pool
|
|
|
|
foo new-from-pool
|
|
foo new-from-pool
|
|
eq?
|
|
] unit-test
|