From efeead89b2e04b948360042417d256cca9ab6d85 Mon Sep 17 00:00:00 2001 From: John Clements Date: Fri, 6 Jan 2006 01:14:48 +0000 Subject: [PATCH] ... svn: r1775 --- collects/tests/stepper/manual-tests.txt | 2 ++ collects/tests/stepper/through-tests.ss | 13 +++++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/collects/tests/stepper/manual-tests.txt b/collects/tests/stepper/manual-tests.txt index 4b48437e7f..22815bc981 100644 --- a/collects/tests/stepper/manual-tests.txt +++ b/collects/tests/stepper/manual-tests.txt @@ -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 (print-convert-test.ss) +make sure that stepper button appears and disappears as necessary when language +level changes. diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss index 54e9689ab3..04836cee97 100644 --- a/collects/tests/stepper/through-tests.ss +++ b/collects/tests/stepper/through-tests.ss @@ -205,8 +205,6 @@ - - ;; OLD TEST CASES (t mz-app2 (test-mz-sequence "((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 (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 )) - #;(run-tests '(begin)) - (run-all-tests) + (run-tests '(trivial-begin)) + #;(run-all-tests) )