lib/locale.t: Add tests

Commit b99851e1941e002dd4816ee6c76fd49bbee1d7f3 should have added tests
in two places.  This adds them in the second place, plus a cautionary
comment.  The reason for the two places is the alternative I can think
of is to use a string eval, but that perturbs the test environment so
might affect the outcome.

diff --git a/lib/locale.t b/lib/locale.t
index 1b37584..f78d0c8 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -287,6 +287,7 @@ check_taint_not $1, '"a" =~ /([a-z])/';
 "foo.bar_baz" =~ /^(.*)[._](.*?)$/;  # Bug 120675
 check_taint_not $1, '"foo.bar_baz" =~ /^(.*)[._](.*?)$/';
 
+# BE SURE TO COPY ANYTHING YOU ADD to the block below
 
 {   # This is just the previous tests copied here with a different
     # compile-time pragma.
@@ -450,6 +451,11 @@ check_taint_not $1, '"foo.bar_baz" =~ /^(.*)[._](.*?)$/';
     # After all this tainting $a should be cool.
 
     check_taint_not  $a;
+
+    "a" =~ /([a-z])/;
+    check_taint_not $1, '"a" =~ /([a-z])/';
+    "foo.bar_baz" =~ /^(.*)[._](.*?)$/;  # Bug 120675
+    check_taint_not $1, '"foo.bar_baz" =~ /^(.*)[._](.*?)$/';
 }
 
 # Here are in scope of 'use locale'