From 7bf40bf26f0e21176b99d25118945dd98537e6df Mon Sep 17 00:00:00 2001
From: Dmitry Boulytchev <dboulytchev@gmail.com>
Date: Thu, 11 Apr 2019 17:19:32 +0300
Subject: [PATCH] Added test for expr + stmt

---
 regression/Makefile         |  1 +
 regression/orig/test054.log | 13 +++++++++++++
 regression/test054.expr     | 26 ++++++++++++++++++++++++++
 regression/test054.input    |  1 +
 4 files changed, 41 insertions(+)
 create mode 100644 regression/orig/test054.log
 create mode 100644 regression/test054.expr
 create mode 100644 regression/test054.input

diff --git a/regression/Makefile b/regression/Makefile
index 384fefd72..0cbd2aeb8 100644
--- a/regression/Makefile
+++ b/regression/Makefile
@@ -7,6 +7,7 @@ RC=../src/rc.opt
 check: $(TESTS)
 
 $(TESTS): %: %.expr
+	@echo $@
 	@$(RC) $< && cat $@.input | ./$@ > $@.log && diff $@.log orig/$@.log
 	@cat $@.input | $(RC) -i $< > $@.log && diff $@.log orig/$@.log
 	@cat $@.input | $(RC) -s $< > $@.log && diff $@.log orig/$@.log
diff --git a/regression/orig/test054.log b/regression/orig/test054.log
new file mode 100644
index 000000000..7a93c7c27
--- /dev/null
+++ b/regression/orig/test054.log
@@ -0,0 +1,13 @@
+> 105
+105
+105
+230
+105
+105
+105
+230
+105
+250
+1
+2
+3
diff --git a/regression/test054.expr b/regression/test054.expr
new file mode 100644
index 000000000..c4c13b15f
--- /dev/null
+++ b/regression/test054.expr
@@ -0,0 +1,26 @@
+x := y := z := 105;
+
+n := read ();
+
+write (x);
+write (y);
+write (z);
+
+if z then x else y fi := 230;
+
+write (x);
+write (y);
+write (z);
+
+(write (z); z) := 250;
+
+write (x);
+write (y);
+write (z);
+
+s := [1, 2, 3, 4];
+i := -1;
+
+while n := s[i := i + 1]; n == 1 !! n == 2 !! n == 3 do
+  write (n)
+od	
diff --git a/regression/test054.input b/regression/test054.input
new file mode 100644
index 000000000..c22708346
--- /dev/null
+++ b/regression/test054.input
@@ -0,0 +1 @@
+0
\ No newline at end of file