14 # First we create a file
15 open(F, ">file-$$") or die;
19 copy "file-$$", "copy-$$";
21 open(F, "copy-$$") or die;
25 print "not " if -s "file-$$" != -s "copy-$$";
28 print "not " unless $foo eq "ok 3\n";
31 copy "copy-$$", \*STDOUT;
35 print "not " if move("file-$$", "copy-$$") or not -e "copy-$$";
38 move "copy-$$", "file-$$";
40 print "not " unless -e "file-$$" and not -e "copy-$$";