diff options
Diffstat (limited to 't/opbasic/qq.t')
-rw-r--r-- | t/opbasic/qq.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/t/opbasic/qq.t b/t/opbasic/qq.t index 5d6908cef1..e633783df2 100644 --- a/t/opbasic/qq.t +++ b/t/opbasic/qq.t @@ -8,7 +8,7 @@ BEGIN { # This file uses a specially crafted is() function rather than that found in # t/test.pl or Test::More. Hence, we place this file in directory t/opbasic. -print q(1..29 +print q(1..28 ); # This is() function is written to avoid "" @@ -71,11 +71,6 @@ is ("a\o{120}b", "a" . chr(0x50) . "b"); is ("a\o{400}b", "a" . chr(0x100) . "b"); is ("a\o{1000}b", "a" . chr(0x200) . "b"); -# This caused a memory fault -no warnings "utf8"; -no warnings 'deprecated'; # This is above IV_MAX on 32 bit machines -is ("abc", eval qq[qq\x{8000_0000}abc\x{8000_0000}]); - # Maybe \x{} should be an error, but if not it should certainly mean \x{0} # rather than anything else. is ("\x{}", chr(0)); |