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