conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lock some tests. They are inappropriate as r7rs compatibility check 

because r7rs doesn't require interpreters to have big integer support.
This commit is contained in:
Yuichi Nishiwaki 2014-07-27 12:52:28 +09:00
parent d8f966b5da
commit dcdb60cb64
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
t/r7rs-tests.scm
View File

@ -212,33 +212,33 @@
(let*-values (((root rem) (exact-integer-sqrt 32))) (let*-values (((root rem) (exact-integer-sqrt 32)))
(test 35 (* root rem))) (test 35 (* root rem)))
(test '(1073741824 0) ;; (test '(1073741824 0)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 60)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 2 60))))
(list root rem))) ;; (list root rem)))
(test '(1518500249 3000631951) ;; (test '(1518500249 3000631951)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 61)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 2 61))))
(list root rem))) ;; (list root rem)))
(test '(815238614083298888 443242361398135744) ;; (test '(815238614083298888 443242361398135744)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 119)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 2 119))))
(list root rem))) ;; (list root rem)))
(test '(1152921504606846976 0) ;; (test '(1152921504606846976 0)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 120)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 2 120))))
(list root rem))) ;; (list root rem)))
(test '(1630477228166597776 1772969445592542976) ;; (test '(1630477228166597776 1772969445592542976)
(let*-values (((root rem) (exact-integer-sqrt (expt 2 121)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 2 121))))
(list root rem))) ;; (list root rem)))
(test '(31622776601683793319 62545769258890964239) ;; (test '(31622776601683793319 62545769258890964239)
(let*-values (((root rem) (exact-integer-sqrt (expt 10 39)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 10 39))))
(list root rem))) ;; (list root rem)))
(let*-values (((root rem) (exact-integer-sqrt (expt 2 140)))) ;; (let*-values (((root rem) (exact-integer-sqrt (expt 2 140))))
(test 0 rem) ;; (test 0 rem)
(test (expt 2 140) (square root))) ;; (test (expt 2 140) (square root)))
(test '(x y x y) (let ((a 'a) (b 'b) (x 'x) (y 'y)) (test '(x y x y) (let ((a 'a) (b 'b) (x 'x) (y 'y))
(let*-values (((a b) (values x y)) (let*-values (((a b) (values x y))