0.8.19.15:

[sbcl.git] / contrib / sb-aclrepl / tests.lisp

diff --git a/contrib/sb-aclrepl/tests.lisp b/contrib/sb-aclrepl/tests.lisp
index ac725ed..2bf3397 100644 (file)
--- 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)