From 1378841c955a525bd5631fa92a1e47843ce11043 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Mon, 14 Dec 2015 06:53:05 +0100 Subject: [PATCH] bootstrap.image.tests: new tests & fix for 32bit test failure --- basis/bootstrap/image/image-tests.factor | 25 +++++++++++++++++++++--- 1 file changed, 22 insertions(+), 3 deletions(-) diff --git a/basis/bootstrap/image/image-tests.factor b/basis/bootstrap/image/image-tests.factor index d41d676ca9..0c4a531641 100644 --- a/basis/bootstrap/image/image-tests.factor +++ b/basis/bootstrap/image/image-tests.factor @@ -1,5 +1,5 @@ -USING: arrays assocs bootstrap.image.private kernel math namespaces -sequences tools.test vectors ; +USING: arrays assocs bootstrap.image.private kernel layouts math +math.bitwise namespaces sequences tools.test vectors ; IN: bootstrap.image.tests { f } [ { 1 2 3 } [ 1 2 3 ] eql? ] unit-test @@ -48,9 +48,28 @@ IN: bootstrap.image.tests bootstrapping-image get ] unit-test +! emit-object +{ 32 } [ + V{ } clone bootstrapping-image set array [ ] emit-object + 15 unmask bootstrap-cell / +] unit-test + +! heap-size +{ -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 / +] unit-test + ! prepare-object - what does this mean? -{ 269 } [ +{ 32 } [ V{ } clone bootstrapping-image set H{ } clone objects set 55 >bignum prepare-object + 15 unmask bootstrap-cell / ] unit-test