Attribute contents on the LHS of regexes are not escaped

diff --git a/src/tests/keywords/regex-lhs b/src/tests/keywords/regex-lhs
new file mode 100644 (file)
index 0000000..91b0b20
--- /dev/null
+++ b/src/tests/keywords/regex-lhs
@@ -0,0 +1,27 @@
+#
+#  PRE: update if regex-escape
+#
+
+#
+#  Strings which are expanded in a regex have regex special
+#  characters escaped.  Because the input strings are unsafe.
+#
+update request {
+       Tmp-String-0 := "example.com"
+       Tmp-String-1 := "^foo$bar"
+}
+
+if (&Tmp-String-0 !~ /example\.com$/) {
+       update reply {
+               Filter-Id := "fail 1"
+       }
+}
+elsif (&Tmp-String-1 !~ /\^foo\$bar/) {
+       update reply {
+               Filter-Id := "fail 1"
+       }
+} else {
+       update reply {
+               Filter-Id := "filter"
+       }
+}
\ No newline at end of file