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

moved mz tests to scheme/base

Browse Source 
svn: r11622
This commit is contained in:
John Clements 2008-09-09 22:43:23 +00:00
parent 6547db5039
commit d7d9d32b26
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,12 +1,20 @@
open stepper, make sure it works for (+ 3 4). Make sure it only works open stepper, make sure it works for (+ 3 4).
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)
make sure that stepper button appears and disappears as necessary when make sure that stepper button appears and disappears as necessary when
language level changes. 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.

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

@ -101,7 +101,7 @@
(for-each (lambda (fn) (apply fn args)) level-fns))) (for-each (lambda (fn) (apply fn args)) level-fns)))
(define test-mz-sequence (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 (define test-beginner-sequence
(lang-level-test-sequence `(lib "htdp-beginner.ss" "lang") (lang-level-test-sequence `(lib "htdp-beginner.ss" "lang")
fake-beginner-render-settings #f #t)) fake-beginner-render-settings #f #t))
@ -1709,6 +1709,3 @@
#;[show-all-steps #t]) #;[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-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))) (run-all-tests)))