1 files changed, 15 insertions, 0 deletions
diff --git a/tests/read-print.scm b/tests/read-print.scm
index 004fcff19f..b484e28022 100644
--- a/tests/read-print.scm
+++ b/tests/read-print.scm
@@ -142,6 +142,21 @@ expressions."
     (* z z)))")
 
 (test-pretty-print "\
+(case x
+  ((1)
+   'one)
+  ((2)
+   'two))")
+
+(test-pretty-print "\
+(cond
+  ((zero? x)
+   'zero)
+  ((odd? x)
+   'odd)
+  (else #f))")
+
+(test-pretty-print "\
 #~(string-append #$coreutils \"/bin/uname\")")
 
 (test-pretty-print "\