Remove Mac OS classic code from tests in lib.
authorNicholas Clark <nick@ccl4.org>
Tue, 18 Jan 2011 15:52:10 +0000 (15:52 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 18 Jan 2011 15:52:10 +0000 (15:52 +0000)
Including all @INC setting boilerplate from lib/Tie/ExtraHash.t, which TestInit
now performs.

lib/AnyDBM_File.t
lib/Net/hostent.t
lib/Pod/t/Usage.t
lib/Tie/ExtraHash.t
lib/Unicode/UCD.t

index 43405b9..d3c1c31 100644 (file)
@@ -32,7 +32,7 @@ if (! -e $Dfile) {
 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");
index 421f19d..573136c 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
     {
        plan skip_all => "Test uses Socket, Socket not built";
     }
-    if ($^O eq 'MacOS' || ($^O eq 'irix' && $Config{osvers} == 5)) {
+    if ($^O eq 'irix' && $Config{osvers} == 5) {
        plan skip_all => "Test relies on resolution of localhost, fails on $^O ($Config{osvers})";
     }
 }
index 2cabb55..92aaf2e 100644 (file)
@@ -47,8 +47,7 @@ SKIP: {
     is( $$fake_out, $vbl_0, '-pathlist parameter' );
 }
 
-SKIP: { # Test exit status from pod2usage()
-    skip "Exit status broken on Mac OS", 1 if $^O eq 'MacOS';
+{ # Test exit status from pod2usage()
     my $exit = ($^O eq 'VMS' ? 2 : 42);
     my $dev_null = File::Spec->devnull;
     my $args = join ", ", (
index c8e4630..bbaf64f 100644 (file)
@@ -1,14 +1,5 @@
 #!./perl
 
-BEGIN {
-    chdir 't' if -d 't';
-    if ($^O eq 'MacOS') {
-        @INC = qw(: ::lib ::macos:lib);
-    } else {
-        @INC = '.';
-        push @INC, '../lib';
-    }
-}
 use strict;
 use warnings;
 use Test::More tests => 11;
index 6f153ff..b764c6d 100644 (file)
@@ -6,7 +6,6 @@ BEGIN {
     }
     chdir 't' if -d 't';
     @INC = '../lib';
-    @INC = "::lib" if $^O eq 'MacOS'; # module parses @INC itself
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built; Unicode::UCD uses Storable\n";