Test that escaping %{} works


git-svn-id: https://svn.apache.org/repos/asf/spamassassin/trunk@1903351 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/t/regexp_named_capture.t b/t/regexp_named_capture.t
index 724ed8a..6cb453d 100755
--- a/t/regexp_named_capture.t
+++ b/t/regexp_named_capture.t
@@ -5,7 +5,7 @@
 use SATest; sa_t_init("regexp_named_capture");
 
 use Test::More;
-plan tests => 13;
+plan tests => 14;
 
 # ---------------------------------------------------------------------------
 
@@ -24,7 +24,8 @@
   qr/tag TESTCAP5 is now ready, value: release\n/ => '',
 );
 %anti_patterns = (
-  q{ warn: },
+  q{ warn: } => '',
+  q{ 1.0 TEST_CAPTURE_8 } => '',
 );
 
 tstlocalrules (q{
@@ -39,6 +40,9 @@
 
    # We can also use common tags like HEADER()
    body TEST_CAPTURE_7 m{www\.%{HEADER(From:addr:domain)}/}
+
+   # Should not hit
+   body TEST_CAPTURE_8 m,www\.\%{TESTCAP1}\.,i
 });
 
 sarun ("-D check,config -L -t < data/nice/001 2>&1", \&patterns_run_cb);