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

working on begin0

Browse Source 
svn: r4915
This commit is contained in:
John Clements 2006-11-21 23:01:55 +00:00
parent 5a795b614c
commit 404fad489d
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/stepper/through-tests.ss
View File

@ -1495,38 +1495,38 @@ exec mred -u "$0" "$@"
(t1 trivial-begin0 (t1 trivial-begin0
(test-advanced-sequence "(begin0 3)" (test-advanced-sequence "(begin0 3)"
`((before-after-step ((hilite (begin0 3))) `((before-after ((hilite (begin0 3)))
((hilite 3))) ((hilite 3)))
(finished-stepping)))) (finished-stepping))))
;; urg... the first element of a begin0 is in tail position if there's only one. ;; urg... the first element of a begin0 is in tail position if there's only one.
(t1 one-item-begin0 (t1 one-item-begin0
(test-advanced-sequence "(begin0 (+ 3 4))" (test-advanced-sequence "(begin0 (+ 3 4))"
`((before-after-step ((hilite (begin0 (+ 3 4)))) `((before-after ((hilite (begin0 (+ 3 4))))
((hilite (+ 3 4)))) ((hilite (+ 3 4))))
(before-after-step ((hilite (+ 3 4))) (before-after ((hilite (+ 3 4)))
((hilite 7))) ((hilite 7)))
(finished-stepping)))) (finished-stepping))))
(t1 begin0-onlyvalues (t1 begin0-onlyvalues
(test-advanced-sequence "(begin0 3 4 5)" (test-advanced-sequence "(begin0 3 4 5)"
`((before-after-step ((hilite (begin0 3 4 5))) `((before-after ((hilite (begin0 3 4 5)))
((hilite (begin0 3 5)))) ((hilite (begin0 3 5))))
(before-after-step ((hilite (begin0 3 5))) (before-after ((hilite (begin0 3 5)))
((hilite 3))) ((hilite 3)))
(finished-stepping)))) (finished-stepping))))
(t1 begin0 (t1 begin0
(test-advanced-sequence "(begin0 (+ 3 4) (+ 4 5) (+ 6 7))" (test-advanced-sequence "(begin0 (+ 3 4) (+ 4 5) (+ 6 7))"
`((before-after-step ((begin0 (hilite (+ 3 4)) (+ 4 5) (+ 6 7))) `((before-after ((begin0 (hilite (+ 3 4)) (+ 4 5) (+ 6 7)))
((begin0 (hilite 7) (+ 4 5) (+ 6 7)))) ((begin0 (hilite 7) (+ 4 5) (+ 6 7))))
(before-after-step ((begin0 7 (hilite (+ 4 5)) (+ 6 7))) (before-after ((begin0 7 (hilite (+ 4 5)) (+ 6 7)))
((begin0 7 (hilite 9) (+ 6 7)))) ((begin0 7 (hilite 9) (+ 6 7))))
(before-after-step ((hilite (begin0 7 9 (+ 6 7)))) (before-after ((hilite (begin0 7 9 (+ 6 7))))
((hilite (begin0 7 (+ 6 7))))) ((hilite (begin0 7 (+ 6 7)))))
(before-after-step ((begin0 7 (hilite (+ 6 7)))) (before-after ((begin0 7 (hilite (+ 6 7))))
((begin0 7 (hilite 13)))) ((begin0 7 (hilite 13))))
(before-after-step ((hilite (begin0 7 13))) (before-after ((hilite (begin0 7 13)))
((hilite 7)))))) ((hilite 7))))))
@ -1561,7 +1561,7 @@ exec mred -u "$0" "$@"
"(define (f2c x) x) (convert-gui f2c)" `() ; placeholder "(define (f2c x) x) (convert-gui f2c)" `() ; placeholder
)) ))
#;(run-tests '(recur)) #;(run-tests '(begin0-onlyvalues))
(run-all-tests) (run-all-tests)
) )