This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
porting/checkcase.t: suppress warnings
authorDavid Mitchell <davem@iabyn.com>
Tue, 21 Oct 2014 16:37:15 +0000 (17:37 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 21 Oct 2014 16:37:15 +0000 (17:37 +0100)
Due to parallel testing, the find() in this test file can
generate spurious warnings such as

    Can't opendir(./t/tmp7281B): No such file or directory
     at porting/checkcase.t line 37.

Just turn off find's warnings for this test file.

t/porting/checkcase.t

index 3c05e22..991f3c5 100644 (file)
@@ -14,6 +14,10 @@ use File::Find;
 my %files;
 my $test_count = 0;
 
+# in a parallel 'make test', temporary files and directories can
+# randomly appear and disappear; don't complain about these
+no warnings 'File::Find';
+
 find({no_chdir => 1, wanted => sub {
           my $name = $File::Find::name;
           # Assumes that the path separator is exactly one character.