diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-08-10 05:30:41 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-11 07:54:25 -0700 |
| commit | 85b7d9b3f528e54538bc898015eba6bd0460c2d2 (patch) | |
| tree | 54340283ffab1c2845648695b86a7be43d7227f2 /t/op/not.t | |
| parent | 48120f8fb3801512144143e22a9f264d9ceab915 (diff) | |
| download | perl-85b7d9b3f528e54538bc898015eba6bd0460c2d2.tar.gz | |
Fix booleanness of regexps
I broke this when I stopped regexps from being POK in 5.18.
Diffstat (limited to 't/op/not.t')
| -rw-r--r-- | t/op/not.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/not.t b/t/op/not.t index 54de3b0ce7..17f7a36d6b 100644 --- a/t/op/not.t +++ b/t/op/not.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 23; +plan tests => 24; # not() tests pass("logical negation of empty list") if not(); @@ -77,6 +77,9 @@ SKIP: is not($c), "", 'not(dualvar) ignores false int when string is true'; } +# test truth of regexps +is not(${qr//}), "", 'dereferenced regexps are true'; + # not’s return value should be read-only, as it is the same global scalar # each time (and test that it is, too). *yes = \not 0; |