X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-aclrepl%2Ftests.lisp;h=2bf339716e17bd0d868480622bec4999dd0e6750;hb=644a1ff36dd578321fd0592aa47748e8af741542;hp=ac725ed4e03e78ff5ae5adc47a5246cbc25fa2f5;hpb=d36b416ae1fe7ba8a8d8e4ad7493458638028075;p=sbcl.git

diff --git a/contrib/sb-aclrepl/tests.lisp b/contrib/sb-aclrepl/tests.lisp
index ac725ed..2bf3397 100644
--- a/contrib/sb-aclrepl/tests.lisp
+++ b/contrib/sb-aclrepl/tests.lisp
@@ -187,9 +187,16 @@
 (def-elements-tests *complex* 2 #(1 2) #((0 . "real") (1 . "imag")))
 (def-elements-tests *ratio* 2 #(22 7)
 		#((0 . "numerator") (1 . "denominator")))
-(def-elements-tests *bignum* 2
-  #(2112454933 287445236)
-  #((0 . :HEX32) (1 . :HEX32)))
+(case sb-vm::n-word-bits
+  (32
+   (def-elements-tests *bignum* 2
+     #(2112454933 287445236)
+     #((0 . :HEX32) (1 . :HEX32))))
+  (64
+   (def-elements-tests *bignum* 1
+     #(1234567890123456789)
+     #((0 . :HEX64)))))
+
 (def-elements-tests *vector* 20
 		#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)
 		#(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19))
@@ -315,10 +322,17 @@
    2 REALLY-LONG-STRUCT-SLOT-NAME -> a simple-string (4) \"defg\""
   nil 2)
 
-(def-display-test *bignum*
-"bignum 1234567890123456789 with 2 32-bit words
+(case sb-vm::n-word-bits
+  (32
+   (def-display-test *bignum*
+       "bignum 1234567890123456789 with 2 32-bit words
    0-> #x7DE98115
-   1-> #x112210F4")
+   1-> #x112210F4"))
+  (64
+   (def-display-test *bignum*
+       "bignum 1234567890123456789 with 1 64-bit word
+   0-> #x112210F47DE98115"
+     )))
 
 (def-display-test *vector*
   "a simple T vector (20)