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) 1)
(check-equal? (get-output-string o) (check-equal? (get-output-string o)
(string-append (string-append
"> 1\n" "> " #;x "1\n"
"> 7\n" "> " #;y "7\n"
"> 4\n" "> " #;a "4\n"
"> 8\n" "> " #;b "8\n"
"> 20\n" "> " #;(+ x y a b) "20\n"
"> ")) "> "))
) )