Skip to content

Commit 3a29f46

Browse files
committed
Add a large-ish bignum to the test
1 parent d8bba8f commit 3a29f46

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

test/cl-binary-store-tests.lisp

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -592,7 +592,8 @@
592592
(define-test test-bignum
593593
(is '= (expt 2 64) (restore (store nil (expt 2 64))))
594594
(is '= 12345678901234567890 (restore (store nil 12345678901234567890)))
595-
(is '= -12345678901234567890 (restore (store nil -12345678901234567890))))
595+
(is '= -12345678901234567890 (restore (store nil -12345678901234567890)))
596+
(is '= (expt 2 123456) (restore (store nil (expt 2 123456)))))
596597

597598
(define-test test-write-into-extant-vector
598599
(loop for length in '(100 #-abcl 50000)

0 commit comments

Comments
 (0)