diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-12-08 09:34:18 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-12-16 22:53:35 -0700 |
| commit | 7a9d1c029a528c8f15462f021ddf439188c5302e (patch) | |
| tree | a599bc8d81adbe552a6d41af9b4293ee2c16ff86 /lib/locale.t | |
| parent | faab3281402335adc0dbe3e0d609b78992732b62 (diff) | |
| download | perl-7a9d1c029a528c8f15462f021ddf439188c5302e.tar.gz | |
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.
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/locale.t b/lib/locale.t index 1b3758466e..f78d0c87b8 100644 --- 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' |