From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Feb 2007 00:13:08 +0000 (+0000)
Subject: Use the new conditional TODOs to mark as TODO the warning tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2bd168e2020e83ddb5d0b507120c08fb72117433;p=p5sagit%2Fp5-mst-13.2.git

Use the new conditional TODOs to mark as TODO the warning tests
failing due to HEKs leaked by OPs for unthreaded perls tested with
a UTF-8 locale.

p4raw-id: //depot/perl@30124
---

diff --git a/lib/warnings.t b/lib/warnings.t
index 55e2794..d03b8c5 100644
--- a/lib/warnings.t
+++ b/lib/warnings.t
@@ -7,4 +7,5 @@ BEGIN {
 }
 
 our $pragma_name = "warnings";
+our $UTF8 = (${^OPEN} || "") =~ /:utf8/;
 require "../t/lib/common.pl";
diff --git a/t/lib/warnings/7fatal b/t/lib/warnings/7fatal
index 1ad7658..dfbb713 100644
--- a/t/lib/warnings/7fatal
+++ b/t/lib/warnings/7fatal
@@ -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' ;