This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix up \cX for 5.14
[perl5.git] / t / op / qq.t
index 65e3e82..3d1bfac 100644 (file)
--- a/t/op/qq.t
+++ b/t/op/qq.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print q(1..30
+print q(1..28
 );
 
 # This is() function is written to avoid ""
@@ -68,26 +68,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");
 
-# These kludged tests should change when we remove the temporary fatal error
-# in util.c for "\c{".  And, the warning there should probably not be
-# deprecated; See [perl #75138].
-# BE SURE TO remove the message from the __DATA__ section of porting/diag.t,
-# and to verify the messages in util.c are adequately covered in
-# perldiag.pod, and to revise the explanatory wording that is there now.
-my $value = eval '"\c{ACK}"';
-if ($^V lt v5.13.0 || $^V ge v5.14.0) {
-    is ($@, "");
-    is ($value, ";ACK}");
-}
-elsif ($@ ne "") {  # 5.13 series, expect the eval to fail, so pass it.
-    is ("1", "1");  # This .t only has 'is' at its disposal
-    is ("1", "1");
-}
-else {  # Something wrong; someone has removed the failure in util.c
-    is ("Should fail for 5.13 until fix test", "0");
-    is ("1", "1");
-}
-
 # This caused a memory fault
 no warnings "utf8";
 is ("abc", eval qq[qq\x{8000_0000}abc\x{8000_0000}])