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

svn merge -r11644:11652 http://svn.plt-scheme.org/plt/trunk

Browse Source 
(Also setting up svn:mergeinfo appropriately for later merging.)

svn: r11653
This commit is contained in:
Stevie Strickland 2008-09-11 22:06:00 +00:00
parent 430374358e
commit b21c6bbc84
3 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/run-automated-tests.ss
View File

@ -31,7 +31,8 @@
(define tests (define tests
'([load "mzscheme/quiet.ss" (lib "scheme/init")] '([load "mzscheme/quiet.ss" (lib "scheme/init")]
[require "typed-scheme/main.ss"] [require "typed-scheme/main.ss"]
[require "match/plt-match-tests.ss"])) [require "match/plt-match-tests.ss"]
[require "stepper/automatic-tests.ss"]))
(require scheme/runtime-path) (require scheme/runtime-path)

5
collects/tests/stepper/automatic-tests.ss
View File

@ -1,7 +1,8 @@
(module automatic-tests mzscheme (module automatic-tests mzscheme
(require "through-tests.ss") (require "through-tests.ss")
(parameterize ([display-only-errors #t]) (parameterize ([display-only-errors #t]
(if (run-all-tests-except '(check-expect begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3)) [current-output-port (open-output-string)])
(if (run-all-tests-except '(check-error begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3))
(exit 1) (exit 1)
(exit 0)))) (exit 0))))

15
collects/tests/stepper/through-tests.ss
View File

@ -1368,21 +1368,6 @@
(before-after (9 (list 'check-expect-failed 7 17) (list 'check-expect-passed 2 2) (check-expect (hilite (+ 2 2)) 4)) (before-after (9 (list 'check-expect-failed 7 17) (list 'check-expect-passed 2 2) (check-expect (hilite (+ 2 2)) 4))
(9 (list 'check-expect-failed 7 17) (list 'check-expect-passed 2 2) (check-expect (hilite 4) 4)))))) (9 (list 'check-expect-failed 7 17) (list 'check-expect-passed 2 2) (check-expect (hilite 4) 4))))))
(t1 check-expect-2
(test-upto-int/lam
"(check-expect (+ 3 4) (+ 8 9)) (check-expect (+ 3 1) 4) (+ 4 5)"
`((before-after ((hilite (+ 4 5)))
((hilite 9)))
(before-after (9 (check-expect (+ 3 4) (hilite (+ 8 9))))
(9 (check-expect (+ 3 4) (hilite 17))))
(before-after (9 (check-expect (hilite (+ 3 4)) 17))
(9 (check-expect (hilite 7) 17)))
(before-after (9 (check-expect (hilite (+ 3 1)) 4))
(9 (check-expect (hilite 4) 4))))))
(t1 check-within (t1 check-within
(test-bwla-to-int/lam (test-bwla-to-int/lam
"(check-within (+ 3 4) (+ 8 10) (+ 10 90)) (check-expect (+ 1 1) 2)(+ 4 5)" "(check-within (+ 3 4) (+ 8 10) (+ 10 90)) (check-expect (+ 1 1) 2)(+ 4 5)"