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

Merge pull request #176 from KeenS/test-values 

fix a bug of `test-values` and unlock the test cases that use `test-valu...
This commit is contained in:
Yuichi Nishiwaki 2014-07-22 09:28:23 +09:00
parent e7eeebb343 341e4048eb
commit 44e80e62f4
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))