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

fix a bug of `test-values` and unlock the test cases that use `test-values`

This commit is contained in:
Sunrim KIM (keen) 2014-07-21 22:56:53 +09:00
parent 12fb80b857
commit 341e4048eb
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/picrin/test.scm
View File

@ -69,9 +69,7 @@
(define-syntax test-values (define-syntax test-values
(syntax-rules () (syntax-rules ()
((_ expect expr) ((_ expect expr)
(test-values #f expect expr)) (test (call-with-values (lambda () expect) (lambda results results))
((_ name expect expr)
(test name (call-with-values (lambda () expect) (lambda results results))
(call-with-values (lambda () expr) (lambda results results)))))) (call-with-values (lambda () expr) (lambda results results))))))

18
t/r7rs-tests.scm
View File

@ -763,15 +763,15 @@
(test 7 (abs -7)) (test 7 (abs -7))
(test 7 (abs 7)) (test 7 (abs 7))
;; (test-values (values 2 1) (floor/ 5 2)) (test-values (values 2 1) (floor/ 5 2))
;; (test-values (values -3 1) (floor/ -5 2)) (test-values (values -3 1) (floor/ -5 2))
;; (test-values (values -3 -1) (floor/ 5 -2)) (test-values (values -3 -1) (floor/ 5 -2))
;; (test-values (values 2 -1) (floor/ -5 -2)) (test-values (values 2 -1) (floor/ -5 -2))
;; (test-values (values 2 1) (truncate/ 5 2)) (test-values (values 2 1) (truncate/ 5 2))
;; (test-values (values -2 -1) (truncate/ -5 2)) (test-values (values -2 -1) (truncate/ -5 2))
;; (test-values (values -2 1) (truncate/ 5 -2)) (test-values (values -2 1) (truncate/ 5 -2))
;; (test-values (values 2 -1) (truncate/ -5 -2)) (test-values (values 2 -1) (truncate/ -5 -2))
;; (test-values (values 2.0 -1.0) (truncate/ -5.0 -2)) (test-values (values 2.0 -1.0) (truncate/ -5.0 -2))
(test 1 (modulo 13 4)) (test 1 (modulo 13 4))
(test 1 (remainder 13 4)) (test 1 (remainder 13 4))