errors.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use lib '..';
use Memoize;
use Config;
$|=1;
print "1..11\n";
print $@ ? "ok 1\n" : "not ok 1 # $@\n";
print $@ ? "ok 2\n" : "not ok 2 # $@\n";
print $@ ? "ok 3\n" : "not ok 3 # $@\n";
# 4--8
$n = 4;
use Fcntl;
GDBM_File => [$dummyfile, 2, 0666],
ODBM_File => [$dummyfile, O_RDWR|O_CREAT, 0666],
NDBM_File => [$dummyfile, O_RDWR|O_CREAT, 0666],
SDBM_File => [$dummyfile, O_RDWR|O_CREAT, 0666],
);
eval {
};
|| $@ =~ /Can't locate.*in \@INC/
$n++;
}
# 9
eval { local $^W = 0;
};
print $@ ? "ok 9\n" : "not ok 9 # $@\n";
# 10
print $@ ? "ok 10\n" : "not ok 10 # $@\n";
# 11
print $@ ? "ok 11\n" : "not ok 11 # $@\n";