BEGIN {
chdir 't';
}
else {
}
}
chdir 't';
BEGIN {
}
BEGIN {
}
BEGIN {
}
BEGIN {
# bad neighbor, but test_f() uses exit()
}
{
# concatenate this file with itself
# be extra careful the regex doesn't match itself
use TieOut;
my $self = $0;
}
'concatenation worked' );
# the truth value here is reversed -- Perl true is C false
# these are destructive, have to keep setting @ARGV
sleep 2;
# Just checking modify time stamp, access time stamp is set
# to the beginning of the day in Win95.
# There's a small chance of a 1 second flutter here.
# eqtime use to clear the contents of the file being equalized!
SKIP: {
$^O eq 'MacOS'
) {
}
# change a file to execute-only
0100, 'change a file to execute-only' );
# change a file to read-only
# change a file to write-only
}
# change a file to read-write
# mkpath
# copy a file to a nested subdirectory
# cp should croak if destination isn't directory (not a great warning)
# move a file to a subdirectory
# mv should also croak with the same wacky warning
# Test expand_wildcards()
{
chdir 'ecmddir';
# % means 'match one character' on VMS. Everything else is ?
# this should find the file
# try it with the asterisk now
}
# remove some files
# rm_f dir
}
END {
}