This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make new File::Copy test case insensitive.
authorCraig A. Berry <craigberry@mac.com>
Fri, 31 Aug 2012 16:21:58 +0000 (11:21 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 31 Aug 2012 16:23:07 +0000 (11:23 -0500)
On VMS with default setttings, the filename is reported as copy.t,
not Copy.t, so make the regex allow that.

lib/File/Copy.t

index 8108caf..ded1b57 100644 (file)
@@ -492,7 +492,7 @@ SKIP: {
     local $SIG{__WARN__} = sub { $warn_message .= "@_" };
     ok(!copy($temp_file, $temp_dir),
        "Copy of foo/file to foo/ should fail");
-    like($warn_message, qr/^\Q'$temp_file' and '$temp_file'\E are identical.*Copy\.t/,
+    like($warn_message, qr/^\Q'$temp_file' and '$temp_file'\E are identical.*Copy\.t/i,
         "error message should describe the problem");
     1 while unlink $temp_file;
 }