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

add test for (debug-repl) before initialization of a variable in scope

Browse Source 
closes #9
This commit is contained in:
AlexKnauth 2017-01-04 19:35:43 -05:00
parent 11ce8f0b32
commit b175b6e68f
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
debug/test/debug-repl.rkt
View File

@ -36,3 +36,40 @@
"-> ")) "-> "))
) )
;; test for issue #9
(test-case "issue #9"
(define (f)
(when #true
(debug-repl))
(define a 1)
a)
(let ([i (open-input-string "y b c (+ y b c)")]
[o (open-output-string)])
(check-equal? (parameterize ([current-input-port i]
[current-output-port o])
(f))
1)
(check-equal? (get-output-string o)
(string-append
"-> " #;y "7\n"
"-> " #;b "8\n"
"-> " #;c "9\n"
"-> " #;(+ y b c) "24\n"
"-> ")))
(let ([i (open-input-string "y b c (+ y b c) (+ y a b c)")]
[o (open-output-string)])
(check-exn #rx"a: undefined;\n cannot use before initialization"
(λ ()
(parameterize ([current-input-port i]
[current-output-port o])
(f))))
(check-equal? (get-output-string o)
(string-append
"-> " #;y "7\n"
"-> " #;b "8\n"
"-> " #;c "9\n"
"-> " #;(+ y b c) "24\n"
"-> " #;(+ y a b c)))))