#!./perl
-# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
-
-use Test::More;
-
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
- if (($Config{'extensions'} !~ /\b(DB|[A-Z]DBM)_File\b/) ){
- plan skip_all => "1..0 # Skipping (no DB_File or [A-Z]DBM_File)\n";
- }
- else {
- plan tests => 12;
- }
-
+ require Test::More; import Test::More;
+ plan(tests, 12);
}
require AnyDBM_File;
$^O eq 'os2' || $^O eq 'mint' ||
$^O eq 'cygwin');
-unlink <Op_dbmx*>;
+my $filename = "Any_dbmx$$";
+unlink <"$filename*">;
umask(0);
-ok( tie(%h,AnyDBM_File,'Op_dbmx', O_RDWR|O_CREAT, 0640), "Tie");
+ok( tie(%h,AnyDBM_File,"$filename", O_RDWR|O_CREAT, 0640), "Tie");
-$Dfile = "Op_dbmx.pag";
+$Dfile = "$filename.pag";
if (! -e $Dfile) {
- ($Dfile) = <Op_dbmx*>;
+ ($Dfile) = <$filename*>;
}
SKIP:
{
skip( "different file permission semantics",1)
- if ($Is_Dosish || $^O eq 'MacOS') ;
+ if $Is_Dosish;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat($Dfile);
ok(($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) , "File permissions");
delete $h{'goner2'};
untie(%h);
-ok(tie(%h,AnyDBM_File,'Op_dbmx', O_RDWR, 0640),"Re-tie hash");
+ok(tie(%h,AnyDBM_File,"$filename", O_RDWR, 0640),"Re-tie hash");
$h{'j'} = 'J';
$h{'k'} = 'K';
untie %h;
if ($^O eq 'VMS') {
- unlink 'Op_dbmx.sdbm_dir', $Dfile;
+ unlink "$filename.sdbm_dir", $Dfile;
} else {
- unlink 'Op_dbmx.dir', $Dfile;
+ unlink "$filename.dir", $Dfile;
}