From cbba6bbf959fdb739f8500c5adb2194b3d61f4d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Mon, 14 Dec 2015 13:56:35 +0100
Subject: [PATCH] bootstrap.image.tests: I screwed up the test case values --
 fix them

---
 basis/bootstrap/image/image-tests.factor | 26 +++++++++++++++---------
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/basis/bootstrap/image/image-tests.factor b/basis/bootstrap/image/image-tests.factor
index 0c4a531641..15d844640a 100644
--- a/basis/bootstrap/image/image-tests.factor
+++ b/basis/bootstrap/image/image-tests.factor
@@ -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