1N/A # bad neighbor, but test_f() uses exit() 1N/A # concatenate this file with itself 1N/A # be extra careful the regex doesn't match itself 1N/A 'concatenation worked' ); 1N/A # the truth value here is reversed -- Perl true is C false 1N/A # these are destructive, have to keep setting @ARGV 1N/A # Just checking modify time stamp, access time stamp is set 1N/A # to the beginning of the day in Win95. 1N/A # There's a small chance of a 1 second flutter here. 1N/A # eqtime use to clear the contents of the file being equalized! 1N/A if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || 1N/A $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin' || 1N/A skip( "different file permission semantics on $^O", 3); 1N/A # change a file to execute-only 1N/A 0100, 'change a file to execute-only' ); 1N/A # change a file to read-only 1N/A ($^O eq 'vos' ? 0500 : 0400), 'change a file to read-only' ); 1N/A # change a file to write-only 1N/A ($^O eq 'vos' ? 0700 : 0200), 'change a file to write-only' ); 1N/A # change a file to read-write 1N/A ($^O eq 'vos' ? 0700 : 0600), 'change a file to read-write' ); 1N/A ok( ! -e $ARGV[0], 'temp directory not there yet' ); 1N/A # copy a file to a nested subdirectory 1N/A # cp should croak if destination isn't directory (not a great warning) 1N/A # move a file to a subdirectory 1N/A # mv should also croak with the same wacky warning 1N/A # Test expand_wildcards() 1N/A # % means 'match one character' on VMS. Everything else is ? 1N/A # this should find the file 1N/A # try it with the asterisk now 1N/A ok( ! -e $_, "removed $_ successfully" ) for (@ARGV);