From e56a71e914e9a68411088c524d5c7e5cefe11c83 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Sun, 3 Jun 2012 13:32:13 -0300
Subject: [PATCH] b2/test/subcont: test "continue" in substitutions

---
 b2/test/subcont | 129 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 129 insertions(+)
 create mode 100755 b2/test/subcont

diff --git a/b2/test/subcont b/b2/test/subcont
new file mode 100755
index 0000000..f22141f
--- /dev/null
+++ b/b2/test/subcont
@@ -0,0 +1,129 @@
+#!/bin/bash
+. ./Common
+
+###############################################################################
+
+tst "substitutions: continue" -ds -q <<EOF
+!-s
+in = blah
+out = x
+in = (?)(*) {
+	out = \$out\$1\$1
+	in = \$2
+	continue
+}
+EOF
+
+expect <<EOF
+in=blah
+out=x
+in=RE {
+    out=\${out}\$1\$1
+    in=\$2
+    continue in
+}
+in=
+out=xbbllaahh
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: named continue to inner block" -q x=abc <<EOF
+!-s
+z = x
+x = (?)(*) {
+	x = \$2
+	y = \$x
+	y = (*)(?) {
+		z = \$z\$y\$2
+		y = \$1
+		continue y
+	}
+}
+EOF
+
+expect <<EOF
+z=xbccbb
+x=bc
+y=
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: named continue to outer block" -q x=abc <<EOF
+!-s
+z = x
+x = (?)(*) {
+	x = \$2
+	y = \$x
+	y = (*)(?) {
+		z = \$z\$y\$2
+		y = \$1
+		continue x
+	}
+}
+EOF
+
+expect <<EOF
+z=xbcccc
+x=
+y=
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: continue to \$" -ds -q <<EOF
+!-s
+in = blah
+out = x
+in = ?(*) {
+	in = \$1
+	out = \${out}+
+	continue \$
+}
+EOF
+
+expect <<EOF
+in=blah
+out=x
+in=RE {
+    in=\$1
+    out=\${out}+
+    continue in
+}
+in=
+out=x++++
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: continue inside block" <<EOF
+!-s
+foo = * {
+	continue
+	bar = x
+}
+EOF
+
+expect <<EOF
+s:3: syntax error
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: named continue to unknown block" -q <<EOF
+!-s
+x = foo
+x = * {
+	y = \$x
+	y = * {
+		continue z
+	}
+}
+EOF
+
+expect <<EOF
+s:8: cannot find "z"
+EOF
+
+###############################################################################