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

...

Browse Source 
svn: r1775
This commit is contained in:
John Clements 2006-01-06 01:14:48 +00:00
parent 678f08a1c9
commit efeead89b2
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/stepper/manual-tests.txt
View File

@ -6,3 +6,5 @@ and erroneous (syntax errors, runtime errors) executions. Make sure that the
buttons are enabled and disabled as necessary. Try programs which print snips buttons are enabled and disabled as necessary. Try programs which print snips
(print-convert-test.ss) (print-convert-test.ss)
make sure that stepper button appears and disappears as necessary when language
level changes.

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

@ -205,8 +205,6 @@
;; OLD TEST CASES
(t mz-app2 (t mz-app2
(test-mz-sequence "((lambda (x) (+ x 3)) 4)" (test-mz-sequence "((lambda (x) (+ x 3)) 4)"
`((before-after ((hilite ((lambda (x) (+ x 3)) 4))) `((before-after ((hilite ((lambda (x) (+ x 3)) 4)))
@ -1371,6 +1369,13 @@
;; ;;
;;;;;;;;;;; ;;;;;;;;;;;
(t trivial-begin
(test-advanced-sequence "(+ 3 (begin 4 5))"
`((before-after ((+ 3 (hilite (begin 4 5))))
((+ 3 (hilite 5))))
(before-after ((hilite (+ 3 5)))
((hilite 8)))
(finished-stepping))))
(t begin (t begin
(test-advanced-sequence "(begin (+ 3 4) (+ 4 5) (+ 9 8))" (test-advanced-sequence "(begin (+ 3 4) (+ 4 5) (+ 9 8))"
@ -1398,6 +1403,6 @@
(test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder (test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder
)) ))
#;(run-tests '(begin)) (run-tests '(trivial-begin))
(run-all-tests) #;(run-all-tests)
) )