1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/dc.tests b/testsuite/dc.tests
index cb2dcbc23..2756608f7 100755
--- a/testsuite/dc.tests
+++ b/testsuite/dc.tests
@@ -56,6 +56,16 @@ testing "dc '>aeb' (conditional execute string with else)" \
        "2\n9\n" \
        "" "[1p]sa [2p]sb 2 1>aeb\n9p"
+testing "dc space can be a register" \
+        "dc" \
+        "2\n9\n" \
+        "" "[2p]s \n[3p]\nl x\n9p"
+testing "dc newline can be a register" \
+        "dc" \
+        "2\n9\n" \
+        "" "[2p]s\n[3p]l\nx\n9p"
 for f in dc_*.dc; do
        r="`basename "$f" .dc`_results.txt"
        test -f "$r" || continue

diff --git a/testsuite/dc.tests b/testsuite/dc.tests index cb2dcbc23..2756608f7 100755 --- a/testsuite/dc.tests +++ b/testsuite/dc.tests
@@ -56,6 +56,16 @@ testing "dc '>aeb' (conditional execute string with else)" \
56	"2\n9\n" \	56	"2\n9\n" \
57	"" "[1p]sa [2p]sb 2 1>aeb\n9p"	57	"" "[1p]sa [2p]sb 2 1>aeb\n9p"
58		58
		59	testing "dc space can be a register" \
		60	"dc" \
		61	"2\n9\n" \
		62	"" "[2p]s \n[3p]\nl x\n9p"
		63
		64	testing "dc newline can be a register" \
		65	"dc" \
		66	"2\n9\n" \
		67	"" "[2p]s\n[3p]l\nx\n9p"
		68
59	for f in dc_*.dc; do	69	for f in dc_*.dc; do
60	r="`basename "$f" .dc`_results.txt"	70	r="`basename "$f" .dc`_results.txt"
61	test -f "$r" \|\| continue	71	test -f "$r" \|\| continue