From: Dominic Dunlop <domo@computer.org>
Date: Thu, 10 Nov 2005 18:10:00 +0000 (+0100)
Subject: Suppress leaked warnings in ExtUtils tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e908d91c0cee96c2ca2c5cfebad8cdcb01a656e;p=p5sagit%2Fp5-mst-13.2.git

Suppress leaked warnings in ExtUtils tests
Message-Id: <D2949A21-7EE3-449F-BEF2-38FAD7B4A483@computer.org>

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

diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t
index 92b61bf..22eabe5 100644
--- a/lib/ExtUtils/t/Command.t
+++ b/lib/ExtUtils/t/Command.t
@@ -58,7 +58,7 @@ BEGIN {
     ok( test_f(), 'testing non-existent file' );
 
     @ARGV = ( $Testfile );
-    cmp_ok( ! test_f(), '==', (-f $Testfile), 'testing non-existent file' );
+    cmp_ok( ! test_f(), '==', defined (-f $Testfile), 'testing non-existent file' );
 
     # these are destructive, have to keep setting @ARGV
     @ARGV = ( $Testfile );
diff --git a/lib/ExtUtils/t/Manifest.t b/lib/ExtUtils/t/Manifest.t
index 396789e..bba6843 100644
--- a/lib/ExtUtils/t/Manifest.t
+++ b/lib/ExtUtils/t/Manifest.t
@@ -100,7 +100,7 @@ is( $res, 'bar', 'bar reported as new' );
 ($res, $warn) = do { local $ExtUtils::Manifest::Quiet = 1; 
                      catch_warning( \&skipcheck ) 
                 };
-cmp_ok( $warn, 'eq', '', 'disabled warnings' );
+ok( ! defined $warn, 'disabled warnings' );
 
 # add a skip file with a rule to skip itself (and the nonexistent glob '*baz*')
 add_file( 'MANIFEST.SKIP', "baz\n.SKIP" );