1 files changed, 20 insertions, 0 deletions

diff --git a/testsuite/dc.tests b/testsuite/dc.tests
index 1fc13c201..361bc8459 100755
--- a/testsuite/dc.tests
+++ b/testsuite/dc.tests
@@ -59,6 +59,26 @@ testing "dc: x should work with strings created from a" \
         "42\n" \
         "" ""
 
+testing "dc: p should print invalid escapes" \
+        "dc -e '[\q] p'" \
+        "\\q\n" \
+        "" ""
+
+testing "dc: p should print trailing backslashes" \
+        "dc -e '[q\] p'" \
+        "q\\\\\n" \
+        "" ""
+
+testing "dc: p should parse/print single backslashes" \
+        "dc -e '[\] p'" \
+        "\\\\\n" \
+        "" ""
+
+testing "dc: p should print single backslash strings" \
+        "dc -e '92 a p'" \
+        "\\\\\n" \
+        "" ""
+
 testing "dc read" \
         "dc -finput" \
         "2\n9\n1\n" \