unlink $tmpfile;
-open(FOO, ">$tmpfile") || BAILOUT("Can't open temp test file: $!");
+open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
close FOO;
-open(FOO, ">$tmpfile") || BAILOUT("Can't open temp test file: $!");
+open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!");
my($nlink, $mtime, $ctime) = (stat(FOO))[$NLINK, $MTIME, $CTIME];
SKIP: {
}
# truncate and touch $tmpfile.
-open(F, ">$tmpfile") || BAILOUT("Can't open temp test file: $!");
+open(F, ">$tmpfile") || DIE("Can't open temp test file: $!");
close F;
ok(-z $tmpfile, '-z on empty file');
ok(! -s $tmpfile, ' and -s');
-open(F, ">$tmpfile") || BAILOUT("Can't open temp test file: $!");
+open(F, ">$tmpfile") || DIE("Can't open temp test file: $!");
print F "hi\n";
close F;
# /dev/stdout might be either character special or a named pipe,
# depending on which OS and how are you running the test, so let's
# censor that one away.
- $DEV =~ s{^[cp].+?\bstdout$}{}m;
- @DEV = grep { ! m{\bstdout$} } @DEV;
+ $DEV =~ s{^[cp].+?\sstdout$}{}m;
+ @DEV = grep { $_ ne 'stdout' } @DEV;
+
+ # If running as root, we will see .files in the ls result,
+ # and readdir() will see them always. Potential for conflict,
+ # so let's weed them out.
+ $DEV =~ s{^.+?\s\..+?$}{}m;
+ @DEV = grep { ! m{^\..+$} } @DEV;
my $try = sub {
my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg];
SKIP: {
skip "No null device to test with", 1 unless -e $Null;
- open(NULL, $Null) or BAIL_OUT("Can't open $Null: $!");
+ open(NULL, $Null) or DIE("Can't open $Null: $!");
ok(! -t NULL, 'null device is not a TTY');
close(NULL);
}