steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootstrap.image.tests: I screwed up the test case values -- fix them

db4
Björn Lindqvist 2015-12-14 13:56:35 +01:00
parent 7247906bf8
commit cbba6bbf95
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/bootstrap/image/image-tests.factor
View File

@ -49,27 +49,33 @@ IN: bootstrap.image.tests
] unit-test
! emit-object
{ 32 } [
{ -96 } [
V{ } clone bootstrapping-image set array [ ] emit-object
15 unmask bootstrap-cell /
data-base - 15 unmask bootstrap-cell /
] unit-test
! heap-size
! heap-size 10 header + 85 special objects
{ -95 } [
V{ } clone bootstrapping-image set heap-size
bootstrap-cell /
] unit-test
! here-as
{ 32 } [
V{ } clone bootstrapping-image set array type-number here-as
15 unmask bootstrap-cell /
! here
{ -95 } [
V{ } clone bootstrapping-image set here
data-base - bootstrap-cell /
] unit-test
! prepare-object - what does this mean?
{ 32 } [
! here-as
{ -96 } [
V{ } clone bootstrapping-image set array type-number here-as
data-base - 15 unmask bootstrap-cell /
] unit-test
! prepare-object
{ -96 } [
V{ } clone bootstrapping-image set
H{ } clone objects set
55 >bignum prepare-object
15 unmask bootstrap-cell /
data-base - 15 unmask bootstrap-cell /
] unit-test