1 ! (c)2009 Joe Groff bsd license
2 USING: accessors alien destructors kernel math
3 memory.piles tools.test ;
9 [ 25 pile-alloc ] [ 50 pile-alloc ] bi
10 swap [ alien-address ] bi@ -
17 [ 25 pile-alloc ] [ 8 pile-align 50 pile-alloc ] bi
18 swap [ alien-address ] bi@ -
25 dup 25 pile-alloc drop
26 dup 50 pile-alloc drop
34 dup 25 pile-alloc drop
35 dup 75 pile-alloc drop
43 dup 25 pile-alloc drop
44 dup 76 pile-alloc drop
46 ] [ not-enough-pile-space? ] must-fail-with