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

cleaned up debugging code, still no automated testing

Browse Source 
svn: r16015
This commit is contained in:
John Clements 2009-09-15 00:45:33 +00:00
parent 762b4e4266
commit 93a2302bf3
3 changed files with 4 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,14 +12,9 @@ warning when the program window disappears.
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.
Try jumping to the end on a program with an error.

4
collects/tests/stepper/test-engine.ss
View File

@ -263,12 +263,12 @@
;; DEBUGGING TO TRY TO FIND OUT WHY THIS DOESN'T WORK IN AN AUTOMATED TESTER:
;; test-sequence : ll-model? string? steps? -> (void)
;; given a language model and an expression and a sequence of steps,
;; check to see whether the stepper produces the desired steps
;;define (test-sequence the-ll-model exp-str expected-steps error-box)
(match mz
#;(match mz
[(struct ll-model (namespace-spec teachpack-specs render-settings show-lambdas-as-lambdas? enable-testing?))
(let* ([p2 (open-input-string "134")]
[module-id (gensym "stepper-module-name-")]

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

@ -1440,17 +1440,9 @@
#;[display-only-errors #t]
#;[store-steps #f]
#;[show-all-steps #t])
#;(run-tests '(check-expect forward-ref check-within #;check-within-bad #;check-error) #;'(#;check-expect #;check-expect-2 check-within check-within-bad check-error))
#;(run-tests '(check-expect forward-ref check-within check-within-bad check-error check-error-bad))
#;(run-tests '(teachpack-universe))
#;(run-test 'bad-parens)
#;(run-tests '(check-expect check-within))
(run-all-tests)))
(define (hhh)
(run-one-test 'bogus
m:mz "abc"
`()))
(run-one-test 'bogus
m:mz "abc"
`())