diff options
Diffstat (limited to 'lib/overloading.t')
| -rw-r--r-- | lib/overloading.t | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lib/overloading.t b/lib/overloading.t index 85fc7e2c94..787edb1b9d 100644 --- a/lib/overloading.t +++ b/lib/overloading.t @@ -1,6 +1,6 @@ #./perl -use Test::More tests => 50; +use Test::More tests => 46; use Scalar::Util qw(refaddr); @@ -50,16 +50,6 @@ is( cos($x), "far side of overload table", "cosinusfies" ); is( 0 + $x, 42, "numifies" ); is( cos($x), "far side of overload table", "cosinusfies" ); - my $q = qr/abc/; - ok "abc" =~ $q, '=~ qr// with no "" overloading'; - ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" overloading'; - { - no overloading 'qr'; - my $q = qr/abc/; - ok "abc" =~ $q, '=~ qr// with no "" or qr overloading'; - ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" or qr overloading'; - } - { no overloading; is( "$x", overload::StrVal($x), "no stringification" ); |