suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correcting test

Browse Source
This commit is contained in:
Jay McCarthy 2010-06-02 12:12:44 -06:00
parent 0748a08cd4
commit add2cbbbda
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/tests/rackunit/check-info-test.rkt
View File

@ -37,32 +37,32 @@
(test-case (test-case
"with-check-info stores value in lexical order" "with-check-info stores value in lexical order"
(let ((stack (with-check-info (let ((stack (with-check-info
(('1 1) (('a 1)
('2 2) ('b 2)
('3 3)) ('c 3))
(check-info-stack (current-continuation-marks))))) (check-info-stack (current-continuation-marks)))))
(for-each (lambda (actual expected) (for-each (lambda (actual expected)
(check-eq? (check-info-name actual) (check-eq? (check-info-name actual)
expected)) expected))
stack stack
(list '1 '2 '3)))) (list 'a 'b 'c))))
(test-case (test-case
"Nested uses of with-check-info store values in lexical order" "Nested uses of with-check-info store values in lexical order"
(let ((stack (with-check-info (let ((stack (with-check-info
(('1 1) (('a 1)
('2 2) ('b 2)
('3 3)) ('c 3))
(with-check-info (with-check-info
(('4 4) (('d 4)
('5 5) ('e 5)
('6 6)) ('f 6))
(check-info-stack (current-continuation-marks)))))) (check-info-stack (current-continuation-marks))))))
(for-each (lambda (actual expected) (for-each (lambda (actual expected)
(check-eq? (check-info-name actual) (check-eq? (check-info-name actual)
expected)) expected))
stack stack
(list '1 '2 '3 '4 '5 '6)))) (list 'a 'b 'c 'd 'e 'f))))
(test-case (test-case
"check-actual? and check-expected? work" "check-actual? and check-expected? work"