test.pl will delete any file made by tempfile(), but it won't delete the
*.dir and *.pag files made by dbmopen. Hopefully this is the right way to
delete them, cribbed from lib/AnyDBM_File.t.
$db{1} = 2; $db{3} = 4;
&mydbmclose(\%db);
is scalar keys %db, 0, '&dbmopen and &dbmclose';
+ my $Dfile = "$filename.pag";
+ if (! -e $Dfile) {
+ ($Dfile) = <$filename*>;
+ }
+ if ($^O eq 'VMS') {
+ unlink "$filename.sdbm_dir", $Dfile;
+ } else {
+ unlink "$filename.dir", $Dfile;
+ }
}
test_proto 'die';