Mark all .t and .pm files as non executable

[p5sagit/p5-mst-13.2.git] / lib / File / Copy.t

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
old mode 100755 (executable)
new mode 100644 (file)
index 45bc612..7077a38
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -14,7 +14,7 @@ use Test::More;
 
 my $TB = Test::More->builder;
 
-plan tests => 451;
+plan tests => 459;
 
 # We're going to override rename() later on but Perl has to see an override
 # at compile time to honor it.
@@ -291,8 +291,10 @@ SKIP: {
            # Slightly convoluted, because some operating systems will let us
            # set a directory, but not a file. These should all work:
            mkdir $copy1 or die "Can't mkdir $copy1: $!";
-           chmod $s_perm, $copy1 or die "Can't chmod %o $copy1: $!", $s_perm;
-           rmdir $copy1 or die "Can't rmdir $copy1: $!";
+           chmod $s_perm, $copy1
+               or die sprintf "Can't chmod %o $copy1: $!", $s_perm;
+           rmdir $copy1
+               or die sprintf "Can't rmdir $copy1: $!";
            open my $fh0, '>', $copy1 or die "Can't open $copy1: $!";
            close $fh0 or die "Can't close $copy1: $!";
            unless (chmod $s_perm, $copy1) {
@@ -396,6 +398,43 @@ SKIP: {
     }
 }
 
+# On Unix systems, File::Copy always returns 0 to signal failure,
+# even when in list context!  On Windows, it always returns "" to signal
+# failure.
+#
+# While returning a list containing a false value is arguably a bad
+# API design, at the very least we can make sure it always returns
+# the same false value.
+
+my $NO_SUCH_FILE       = "this_file_had_better_not_exist";
+my $NO_SUCH_OTHER_FILE = "my_goodness_im_sick_of_airports";
+
+use constant EXPECTED_SCALAR => 0;
+use constant EXPECTED_LIST   => [ EXPECTED_SCALAR ];
+
+my %subs = (
+    copy    =>  \&File::Copy::copy,
+    cp      =>  \&File::Copy::cp,
+    move    =>  \&File::Copy::move,
+    mv      =>  \&File::Copy::mv,
+);
+
+SKIP: {
+    skip( "Test can't run with $NO_SUCH_FILE existing", 2 * keys %subs)
+        if (-e $NO_SUCH_FILE);
+
+    foreach my $name (keys %subs) {
+
+        my $sub = $subs{$name};
+
+        my $scalar = $sub->( $NO_SUCH_FILE, $NO_SUCH_OTHER_FILE );
+        is( $scalar, EXPECTED_SCALAR, "$name in scalar context");
+
+        my @array  = $sub->( $NO_SUCH_FILE, $NO_SUCH_OTHER_FILE );
+        is_deeply( \@array, EXPECTED_LIST, "$name in list context");
+    }
+}
+
 END {
     1 while unlink "file-$$";
     1 while unlink "lib/file-$$";