improve debug-repl tests

This commit is contained in:
AlexKnauth 2016-07-14 18:13:13 -04:00
parent 901bef6f7f
commit b1004990c9

View File

@ -25,11 +25,11 @@
1)
(check-equal? (get-output-string o)
(string-append
"> 1\n"
"> 7\n"
"> 4\n"
"> 8\n"
"> 20\n"
"> " #;x "1\n"
"> " #;y "7\n"
"> " #;a "4\n"
"> " #;b "8\n"
"> " #;(+ x y a b) "20\n"
"> "))
)