diff options
author | Paul Green <Paul.Green@stratus.com> | 2011-11-10 17:34:19 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-18 14:58:10 -0800 |
commit | f6dacdcaaefb1af7d8b6d7da1b87001a562f1902 (patch) | |
tree | b64d2084ff296dfd9f256165323ad224d34b08be | |
parent | a7999c08934c1371228060120c69e13da701a82d (diff) | |
download | perl-f6dacdcaaefb1af7d8b6d7da1b87001a562f1902.tar.gz |
Update several test cases to not generate failures on VOS.
-rw-r--r-- | cpan/Time-Piece/t/02core.t | 3 | ||||
-rw-r--r-- | ext/Socket/t/Socket.t | 7 | ||||
-rw-r--r-- | lib/File/Compare.t | 1 | ||||
-rw-r--r-- | lib/File/Copy.t | 2 | ||||
-rw-r--r-- | t/lib/dbmt_common.pl | 2 | ||||
-rw-r--r-- | t/porting/exec-bit.t | 4 |
6 files changed, 16 insertions, 3 deletions
diff --git a/cpan/Time-Piece/t/02core.t b/cpan/Time-Piece/t/02core.t index 8a0673e5f9..1e8d2649a6 100644 --- a/cpan/Time-Piece/t/02core.t +++ b/cpan/Time-Piece/t/02core.t @@ -2,6 +2,7 @@ use Test::More tests => 95; my $is_win32 = ($^O =~ /Win32/); my $is_qnx = ($^O eq 'qnx'); +my $is_vos = ($^O eq 'vos'); BEGIN { use_ok('Time::Piece'); } ok(1); @@ -113,7 +114,7 @@ SKIP: { cmp_ok($t->strftime('%U'), 'eq', '09'); # Sun cmp Mon SKIP: { - skip "can't strftime %V on Win32 or QNX", 1 if $is_win32 or $is_qnx; + skip "can't strftime %V on Win32 or QNX or VOS", 1 if $is_win32 or $is_qnx or $is_vos; # is this test really broken on Mac OS? -- rjbs, 2006-02-08 cmp_ok($t->strftime('%V'), 'eq', '09'); # Sun cmp Mon } diff --git a/ext/Socket/t/Socket.t b/ext/Socket/t/Socket.t index d289f103a4..326fa7a9ef 100644 --- a/ext/Socket/t/Socket.t +++ b/ext/Socket/t/Socket.t @@ -179,7 +179,12 @@ if ($^O eq 'linux') { if($Config{d_inetntop} && $Config{d_inetaton}){ print ((inet_ntop(AF_INET, inet_pton(AF_INET, "10.20.30.40")) eq "10.20.30.40") ? "ok 19\n" : "not ok 19\n"); print ((inet_ntop(AF_INET, inet_aton("10.20.30.40")) eq "10.20.30.40") ? "ok 20\n" : "not ok 20\n"); - print (lc(inet_ntop(AF_INET6, inet_pton(AF_INET6, "2001:503:BA3E::2:30")) eq "2001:503:ba3e::2:30") ? "ok 21\n" : "not ok 21\n"); + if(defined eval { AF_INET6() } ) { + print (lc(inet_ntop(AF_INET6, inet_pton(AF_INET6, "2001:503:BA3E::2:30")) eq "2001:503:ba3e::2:30") ? "ok 21\n" : "not ok 21\n"); + } + else { + print "ok 21 - skipped - no AF_INET6\n"; + } } else { # no IPv6 print "ok $_ - skipped on this platform\n" for 19 .. 21; diff --git a/lib/File/Compare.t b/lib/File/Compare.t index 7a31af68f1..1b7d038301 100644 --- a/lib/File/Compare.t +++ b/lib/File/Compare.t @@ -112,6 +112,7 @@ if (@donetests == 3) { print "not " unless $donetests[2] == 0; print "ok 13 # "; print "TODO" if $^O eq "cygwin"; # spaces after filename silently trunc'd + print "TODO" if $^O eq "vos"; # spaces after filename silently trunc'd print " file/fileCR [$donetests[2]]\n"; } else { diff --git a/lib/File/Copy.t b/lib/File/Copy.t index 63c99d1261..ffd3d59db7 100644 --- a/lib/File/Copy.t +++ b/lib/File/Copy.t @@ -265,6 +265,8 @@ SKIP: { if $^O eq 'VMS'; skip "Copy doesn't set file permissions correctly on Win32.", $skips if $^O eq "MSWin32"; + skip "Copy maps POSIX permissions to VOS permissions.", $skips + if $^O eq "vos"; # Just a sub to get better failure messages. sub __ ($) { diff --git a/t/lib/dbmt_common.pl b/t/lib/dbmt_common.pl index b7d8c2ea4c..5d4098c735 100644 --- a/t/lib/dbmt_common.pl +++ b/t/lib/dbmt_common.pl @@ -43,7 +43,7 @@ if (! -e $Dfile) { } SKIP: { skip "different file permission semantics on $^O", 1 - if $^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin'; + if $^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin' || $^O eq 'vos'; my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat($Dfile); is($mode & 0777, 0640); diff --git a/t/porting/exec-bit.t b/t/porting/exec-bit.t index 02506c7c36..718c81dabc 100644 --- a/t/porting/exec-bit.t +++ b/t/porting/exec-bit.t @@ -15,6 +15,10 @@ if ( $^O eq "VMS" ) { skip_all( "Filename case may not be preserved and other porting issues." ); } +if ( $^O eq "vos" ) { + skip_all( "VOS combines the read and execute permission bits." ); +} + plan('no_plan'); use ExtUtils::Manifest qw(maniread); |