Ticket #557: pp-test.scm
| File pp-test.scm, 299 bytes (added by , 14 years ago) |
|---|
| Line | |
|---|---|
| 1 | (use test) |
| 2 | |
| 3 | (define (pp->string thing) |
| 4 | (with-output-to-string (cut pp thing))) |
| 5 | |
| 6 | (test "\"\\\"foo\\\"\"\n" (pp->string "\"foo\"")) |
| 7 | (test "\"\\\\\\\"\"\n" (pp->string "\\\"")) |
| 8 | (test "\"\\\\\\\\\\\\\\\"\"\n" (pp->string "\\\\\\\"")) |
| 9 | (test "\"\\\"\\\"\\\"\"\n" (pp->string "\"\"\"")) |
| 10 | (test "\\" "\\") |
