1 ! Copyright (C) 2009 Joe Groff.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: accessors alien destructors kernel math
4 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