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

...

Browse Source 
svn: r2351
This commit is contained in:
John Clements 2006-03-02 23:46:22 +00:00
parent 52db4e170a
commit bf08ed9b5a
2 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1377,6 +1377,15 @@
((hilite 8)))
(finished-stepping))))
(t begin-onlyvalues
(test-advanced-sequence "(+ 3 (begin 4 5 6))"
`((before-after ((+ 3 (hilite (begin 4 5 6))))
((+ 3 (hilite (begin 5 6)))))
(before-after ((+ 3 (hilite (begin 5 6))))
((+ 3 (hilite 6))))
(before-after ((hilite (+ 3 6))
(hilite 9))))))
(t begin
(test-advanced-sequence "(begin (+ 3 4) (+ 4 5) (+ 9 8))"
`((before-after ((begin (hilite (+ 3 4)) (+ 4 5) (+ 9 8)))
@ -1403,6 +1412,6 @@
(test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder
))
(run-tests '(begin))
#;(run-all-tests)
#;(run-tests '(begin-onlyvalues))
(run-all-tests)
)

10
collects/tests/stepper/world-test.ss Normal file
View File

@ -0,0 +1,10 @@
(define (next t)
(+ t 1))
(define (image t)
(place-image (circle 3 'solid 'red) 20 t (empty-scene 50 50)))
;; --- run program run
(big-bang 50 50 .1 0)
(on-redraw image)
(on-tick-event next)