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

hopefully resolved a whole bunch of conflicts...

Browse Source 
svn: r7275
This commit is contained in:
John Clements 2007-09-05 00:22:07 +00:00
parent 65de4d96d8
commit ffe26decff
1 changed files with 37 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -182,6 +182,7 @@
before) before)
(equal? err-msg (before-error-result-err-msg actual))))] (equal? err-msg (before-error-result-err-msg actual))))]
[`(finished-stepping) (finished-stepping? actual)] [`(finished-stepping) (finished-stepping? actual)]
[`(ignore) (warn 'compare-steps "ignoring one step")]
[else (begin (warn 'compare-steps [else (begin (warn 'compare-steps
"unexpected expected step type: ~v" expected) "unexpected expected step type: ~v" expected)
#f)])) #f)]))
@ -307,7 +308,7 @@
(define (run-test name) (define (run-test name)
(let ([maybe-test (assq name list-of-tests)]) (let ([maybe-test (assq name list-of-tests)])
(if maybe-test (if maybe-test
(run-one-test (cadr maybe-test)) (run-one-test maybe-test)
(error 'run-test "test not found: ~e" name)))) (error 'run-test "test not found: ~e" name))))
(define (run-tests names) (define (run-tests names)
@ -1330,6 +1331,16 @@
;)) ;))
; (custodian-shutdown-all new-custodian)) ; (custodian-shutdown-all new-custodian))
)) ))
(t1 check-expect
(test-teachpack-sequence
`((lib "testing.ss" "htdp"))
"(check-expect (+ 3 4) (+ 8 9))"
`((before-after ((check-expect (+ 3 4) (hilite (+ 8 9))))
((check-expect (+ 3 4) (hilite 17))))
(ignore)
(before-after ((check-expect (hilite (+ 3 4)) 17))
((check-expect (hilite 7) 17))))))
; uses set-render-settings! ; uses set-render-settings!
@ -1510,6 +1521,13 @@
(before-after ((hilite (+ 9 8))) (before-after ((hilite (+ 9 8)))
((hilite 17))) ((hilite 17)))
(finished-stepping)))) (finished-stepping))))
(t begin-let-bug test-advanced-sequence
(let ([x 3]) (begin 3 4))
:: {(let ([x 3]) (begin 3 4))}
-> {(define x_0 3)} {(begin 3 4)}
:: (define x_0 3) {(begin 3 4)}
-> (define x_0 3) 4)
(t1 empty-begin (t1 empty-begin
(test-advanced-sequence "(begin)" (test-advanced-sequence "(begin)"
@ -1540,26 +1558,24 @@
((hilite 7))) ((hilite 7)))
(finished-stepping)))) (finished-stepping))))
(t1 begin0-onlyvalues (t begin0-onlyvalues test-advanced-sequence
(test-advanced-sequence "(begin0 3 4 5)" (begin0 3 4 5)
`((before-after ((hilite (begin0 3 4 5))) :: {(begin0 3 4 5)}
((hilite (begin0 3 5)))) -> {(begin0 3 5)}
(before-after ((hilite (begin0 3 5))) -> {3})
((hilite 3)))
(finished-stepping))))
(t1 begin0 (t begin0 test-advanced-sequence
(test-advanced-sequence "(begin0 (+ 3 4) (+ 4 5) (+ 6 7))" (begin0 (+ 3 4) (+ 4 5) (+ 6 7))
`((before-after ((begin0 (hilite (+ 3 4)) (+ 4 5) (+ 6 7))) :: (begin0 {(+ 3 4)} (+ 4 5) (+ 6 7))
((begin0 (hilite 7) (+ 4 5) (+ 6 7)))) -> (begin0 {7} (+ 4 5) (+ 6 7))
(before-after ((begin0 7 (hilite (+ 4 5)) (+ 6 7))) :: (begin0 7 {(+ 4 5)} (+ 6 7))
((begin0 7 (hilite 9) (+ 6 7)))) -> (begin0 7 {9} (+ 6 7))
(before-after ((hilite (begin0 7 9 (+ 6 7)))) :: {(begin0 7 9 (+ 6 7))}
((hilite (begin0 7 (+ 6 7))))) -> {(begin0 7 (+ 6 7))}
(before-after ((begin0 7 (hilite (+ 6 7)))) :: (begin0 7 {(+ 6 7)})
((begin0 7 (hilite 13)))) -> (begin0 7 {13})
(before-after ((hilite (begin0 7 13))) :: {(begin0 7 13)}
((hilite 7)))))) -> {7})
;; LAZY.SS: ;; LAZY.SS:
@ -1595,7 +1611,7 @@
;; make sure to leave these off when saving, or the nightly tests will run these too... ;; make sure to leave these off when saving, or the nightly tests will run these too...
#;(run-all-tests) #;(run-all-tests)
#;(run-tests '(mz1 empty-begin empty-begin0)) #;(run-tests '(check-expect))
#;(parameterize ([display-only-errors #t]) #;(parameterize ([display-only-errors #t])
(run-all-tests-except '(prims qq-splice time set! local-set! lazy1 lazy2 lazy3))) (run-all-tests-except '(prims qq-splice time set! local-set! lazy1 lazy2 lazy3)))