b2/test/: add first set of substitution tests

b2/test/subre

@@ -0,0 +1,239 @@
+#!/bin/bash
+. ./Common
+
+###############################################################################
+
+tst "substitutions: match fixed string, return other string (match)" \
+    -ds -q FOO=x <<EOF
+!-s
+FOO=x { BAR=y }
+EOF
+
+expect <<EOF
+FOO=RE {
+    BAR=y
+}
+BAR=y
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match fixed string, return other string (no match)" \
+    -q FOO=y <<EOF
+!-s
+FOO=x { BAR=y }
+EOF
+
+expect <<EOF
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match fixed string, return input" -ds -q FOO=x <<EOF
+!-s
+FOO=x { BAR=\$\$ }
+EOF
+
+expect <<EOF
+FOO=RE {
+    BAR=\$\$
+}
+BAR=x
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match *, return input" -q FOO=xyz <<EOF
+!-s
+FOO=* { BAR=\$\$ }
+EOF
+
+expect <<EOF
+BAR=xyz
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match ??? with xyz" -q FOO=xyz <<EOF
+!-s
+FOO=??? { BAR=x }
+EOF
+
+expect <<EOF
+BAR=x
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: don't match ??? with axyz" -q FOO=axyz <<EOF
+!-s
+FOO=??? { BAR=x }
+EOF
+
+expect <<EOF
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: don't match ??? with xyza" -q FOO=xyza <<EOF
+!-s
+FOO=??? { BAR=x }
+EOF
+
+expect <<EOF
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match ?.? with x.z" -q FOO=x.z <<EOF
+!-s
+FOO=?.? { BAR=x }
+EOF
+
+expect <<EOF
+BAR=x
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: don't match ?.? with xyz" -q FOO=xyz <<EOF
+!-s
+FOO=?.? { BAR=x }
+EOF
+
+expect <<EOF
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match ?(?)?, return \$1" -q FOO=xyz <<EOF
+!-s
+FOO=?(?)? { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=y
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: match ?(*)?, return \$1" -q FOO=xyzzy <<EOF
+!-s
+FOO=?(*)? { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=yzz
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: $0 does not exist" -q FOO=xyzzy <<EOF
+!-s
+FOO=?(*)? { BAR=\$0 }
+EOF
+
+expect <<EOF
+s:1: invalid variable name
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: $2 with only one () pair" -q FOO=xyzzy <<EOF
+!-s
+FOO=?(*)? { BAR=\$2 }
+EOF
+
+expect <<EOF
+s:2: \$2 but only 1 parenthesis
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: $2 with two () pairs" -q FOO=xyzzy <<EOF
+!-s
+FOO=?(?)(*)? { BAR=\$2 }
+EOF
+
+expect <<EOF
+BAR=zz
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: $3 with only two () pairs" -q FOO=xyzzy <<EOF
+!-s
+FOO=?(?)(*)? { BAR=\$3 }
+EOF
+
+expect <<EOF
+s:2: \$3 but only 2 parentheses
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: [ab], match a" -q FOO=abc <<EOF
+!-s
+FOO=([ab])* { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=a
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: [ab], match b" -q FOO=abc <<EOF
+!-s
+FOO=*([ab])* { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=b
+EOF
+
+#------------------------------------------------------------------------------
+
+tst_fail "substitutions: [ab is invalid" <<EOF
+!-s
+FOO=[ab { BAR=x }
+EOF
+
+expect <<EOF
+s:2: Unmatched [ or [^
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: (a|b), match a" -q FOO=xa <<EOF
+!-s
+FOO=*(a|b) { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=a
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: (a|b), match b" -q FOO=xb <<EOF
+!-s
+FOO=*(a|b) { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=b
+EOF
+
+#------------------------------------------------------------------------------
+
+tst "substitutions: (|x), match the empty part" -q FOO=y <<EOF
+!-s
+FOO=(|x)y { BAR=\$1 }
+EOF
+
+expect <<EOF
+BAR=
+EOF
+
+###############################################################################