Re: Proposed addition to File::Copy: move

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

diff --git a/t/lib/filecopy.t b/t/lib/filecopy.t
index 4a5d1d7..8c64be1 100755 (executable)
--- a/t/lib/filecopy.t
+++ b/t/lib/filecopy.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..3\n";
+print "1..5\n";
 
 $| = 1;
 
@@ -31,4 +31,13 @@ print "ok 2\n";
 copy "copy-$$", \*STDOUT;
 
 unlink "file-$$";
-unlink "copy-$$";
+
+print "not " if move("file-$$", "copy-$$") or not -e "copy-$$";
+print "ok 4\n";
+
+move "copy-$$", "file-$$";
+
+print "not " unless -e "file-$$" and not -e "copy-$$";
+print "ok 5\n";
+
+unlink "file-$$";