More updates to Module-CoreList for Perl 5.20.2

[perl5.git] / lib / AnyDBM_File.t

diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t
old mode 100755 (executable)
new mode 100644 (file)
index 449c638..d061aba
--- a/lib/AnyDBM_File.t
+++ b/lib/AnyDBM_File.t
@@ -1,18 +1,11 @@
 #!./perl
 
-# $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
     require Test::More; import Test::More;
-    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);
-    }
+    plan(tests, 12);
 }
 
 require AnyDBM_File;
@@ -21,27 +14,28 @@ use Fcntl;
 
 $Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' ||
              $^O eq 'NetWare' || $^O eq 'dos' ||
-             $^O eq 'os2' || $^O eq 'mint' ||
+             $^O eq 'os2' ||
              $^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");
+    ok(($mode & 0777) == 0640 , "File permissions");
 }
 
 while (($key,$value) = each(%h)) {
@@ -70,7 +64,7 @@ $h{'goner2'} = 'snork';
 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';
@@ -158,7 +152,7 @@ SKIP:
 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;
 }