47 lines
950 B
Factor
47 lines
950 B
Factor
! (c)2009 Joe Groff bsd license
|
|
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
|