2009-08-10 22:39:31 -04:00
|
|
|
! (c)2009 Joe Groff bsd license
|
2009-08-10 16:27:56 -04:00
|
|
|
USING: accessors alien destructors kernel math
|
|
|
|
|
memory.piles tools.test ;
|
|
|
|
|
IN: memory.piles.tests
|
|
|
|
|
|
|
|
|
|
[ 25 ] [
|
|
|
|
|
[
|
|
|
|
|
100 <pile> &dispose
|
|
|
|
|
[ 25 pile-alloc ] [ 50 pile-alloc ] bi
|
|
|
|
|
swap [ alien-address ] bi@ -
|
|
|
|
|
] with-destructors
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 32 ] [
|
|
|
|
|
[
|
|
|
|
|
100 <pile> &dispose
|
|
|
|
|
[ 25 pile-alloc ] [ 8 pile-align 50 pile-alloc ] bi
|
|
|
|
|
swap [ alien-address ] bi@ -
|
|
|
|
|
] with-destructors
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 75 ] [
|
|
|
|
|
[
|
|
|
|
|
100 <pile> &dispose
|
|
|
|
|
dup 25 pile-alloc drop
|
|
|
|
|
dup 50 pile-alloc drop
|
|
|
|
|
offset>>
|
|
|
|
|
] with-destructors
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ 100 ] [
|
|
|
|
|
[
|
|
|
|
|
100 <pile> &dispose
|
|
|
|
|
dup 25 pile-alloc drop
|
|
|
|
|
dup 75 pile-alloc drop
|
|
|
|
|
offset>>
|
|
|
|
|
] with-destructors
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
[
|
|
|
|
|
100 <pile> &dispose
|
|
|
|
|
dup 25 pile-alloc drop
|
|
|
|
|
dup 76 pile-alloc drop
|
|
|
|
|
] with-destructors
|
|
|
|
|
] [ not-enough-pile-space? ] must-fail-with
|
|
|
|
|
|
