tie_ndbm.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
use Fcntl;
# use Memoize::NDBM_File;
# $Memoize::NDBM_File::Verbose = 0;
sub i {
$_[0];
}
sub c119 { 119 }
sub c7 { 7 }
sub c43 { 43 }
sub c23 { 23 }
sub c5 { 5 }
sub n {
$_[0]+1;
}
if ($@) {
print "1..0\n";
exit 0;
}
print "1..4\n";
} else {
}
sub tryout {
SCALAR_CACHE => [HASH => \%cache],
LIST_CACHE => 'FAULT'
;
$testno++;
# Now something tricky---we'll memoize c23 with the wrong table that
# has the 5 already cached.
SCALAR_CACHE => [HASH => \%cache],
LIST_CACHE => 'FAULT'
;
$testno++;
$testno++;
}