This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use the new conditional TODOs to mark as TODO the warning tests
authorNicholas Clark <nick@ccl4.org>
Mon, 5 Feb 2007 00:13:08 +0000 (00:13 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 5 Feb 2007 00:13:08 +0000 (00:13 +0000)
failing due to HEKs leaked by OPs for unthreaded perls tested with
a UTF-8 locale.

p4raw-id: //depot/perl@30124

lib/warnings.t
t/lib/warnings/7fatal

index 55e2794..d03b8c5 100644 (file)
@@ -7,4 +7,5 @@ BEGIN {
 }
 
 our $pragma_name = "warnings";
+our $UTF8 = (${^OPEN} || "") =~ /:utf8/;
 require "../t/lib/common.pl";
index 1ad7658..dfbb713 100644 (file)
@@ -277,6 +277,7 @@ print STDERR "The End.\n" ;
 EXPECT
 Reversed += operator at - line 8.
 ########
+# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
 
 use warnings 'void' ;
 
@@ -294,6 +295,7 @@ EXPECT
 Useless use of time in void context at - line 4.
 Useless use of length in void context at - line 8.
 ########
+# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
 
 use warnings ;
 
@@ -394,6 +396,7 @@ EXPECT
 Useless use of length in void context at - line 4.
 The End.
 ########
+# TODO ? !$Config{usethreads} && $::UTF8 && ($ENV{PERL_DESTRUCT_LEVEL} || 0) > 1 ? "Parser leaks OPs, which leak shared hash keys" : ''
 
 use warnings NONFATAL => 'void', FATAL => 'void' ;