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

merged changes in 888:1556 from the branch

Browse Source 
svn: r1557
This commit is contained in:
John Clements 2005-12-07 10:33:06 +00:00
parent 5bc397e6b2
commit 027eb72aaa
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,7 +34,7 @@
(fprintf (current-error-port) "test-sequence: steps do not match.\ngiven: ~v\nexpected: ~v\n" result (car all-steps)))
; uncomment for testing:
(when (compare-steps result (car all-steps))
#; (when (compare-steps result (car all-steps))
(printf "test-sequence: steps match for expected result: ~v\n"(car all-steps)))
(set! all-steps (cdr all-steps)))))]
@ -446,7 +446,7 @@
(finished-stepping))))
; reconstruct can't handle 'begin'
(test-mz-sequence "(cond [#f 3 4] [#t (+ 3 4) (+ 4 9)])"
#;(test-mz-sequence "(cond [#f 3 4] [#t (+ 3 4) (+ 4 9)])"
`((before-after ((hilite (cond (#f 3 4) (#t (+ 3 4) (+ 4 9)))))
((hilite (cond (#t (+ 3 4) (+ 4 9))))))
(before-after ((hilite (cond (#t (+ 3 4) (+ 4 9))))) ((hilite (begin (+ 3 4) (+ 4 9)))))
@ -617,6 +617,12 @@
(test-beginner-wla-sequence "'(3 4 5)"
`((finished-stepping))))
(t quoted-list-display
(test-bwla-to-int/lam "(define (f x) '((a))) (+ 3 4)"
`((before-after ((define (f x) (list (list 'a))) (hilite (+ 3 4)))
((define (f x) (list (list 'a))) (hilite 7)))
(finished-stepping))))
;;;;;;;;;;;;;
;;
@ -1303,7 +1309,8 @@
(before-after ((inform (number->string (+ 10 (single-query (hilite (make-number "enter 20")))))))
((inform (number->string (+ 10 (single-query (hilite (make-numeric "enter 20"))))))))
(before-after ((inform (number->string (+ 10 (hilite (single-query (make-numeric "enter 20")))))))
((inform (number->string (+ 10 (hilite 20))))))
((inform (nut
mber->string (+ 10 (hilite 20))))))
(before-after ((inform (number->string (hilite (+ 10 20)))))
((inform (number->string (hilite 30)))))
(before-after ((inform (hilite (number->string 30))))
@ -1391,6 +1398,6 @@
(test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder
))
(run-tests '(local-set!))
#;(run-all-tests)
#;(run-tests '(begin))
(run-all-tests)
)