diff --git a/collects/tests/stepper/manual-tests.txt b/collects/tests/stepper/manual-tests.txt index ad86949225..48a755f1ef 100644 --- a/collects/tests/stepper/manual-tests.txt +++ b/collects/tests/stepper/manual-tests.txt @@ -1,12 +1,20 @@ -open stepper, make sure it works for (+ 3 4). Make sure it only works -for the language levels it's supposed to. Make sure that you get a -warning when you change the underlying program, and a warning when the -program window disappears. Try stepping backward and forward through -programs with correct 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) +open stepper, make sure it works for (+ 3 4). make sure that stepper button appears and disappears as necessary when language level changes. -try programs that contain test cases. D'Oh! +Make sure that you get a warning when you change the underlying program, and a +warning when the program window disappears. +** closing a tab does not trigger the error message that it should...** + +Try stepping backward and forward through programs with correct and erroneous +(syntax errors, runtime errors) executions. +** clicking "end" on a run that ends in an error does not behave correctly *** + +Make sure that the step buttons are enabled and disabled as necessary. +... I wish I had a model-checker here. + +Try programs which print snips (print-convert-test.ss) + + +try programs that contain test cases; make sure that the popups behave sensibly. diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss index e2a909401d..9a2165ee0e 100755 --- a/collects/tests/stepper/through-tests.ss +++ b/collects/tests/stepper/through-tests.ss @@ -101,7 +101,7 @@ (for-each (lambda (fn) (apply fn args)) level-fns))) (define test-mz-sequence - (lang-level-test-sequence 'mzscheme fake-mz-render-settings #t #f)) + (lang-level-test-sequence 'scheme/base fake-mz-render-settings #t #f)) (define test-beginner-sequence (lang-level-test-sequence `(lib "htdp-beginner.ss" "lang") fake-beginner-render-settings #f #t)) @@ -1709,6 +1709,3 @@ #;[show-all-steps #t]) #;(run-tests '(check-expect check-within check-within-bad check-error) #;'(#;check-expect #;check-expect-2 check-within check-within-bad check-error)) (run-all-tests))) - - -