improve debug-repl tests
This commit is contained in:
parent
901bef6f7f
commit
b1004990c9
|
@ -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"
|
||||||
"> "))
|
"> "))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user