my $is_win32 = ($^O =~ /Win32/);
my $is_qnx = ($^O eq 'qnx');
+my $is_vos = ($^O eq 'vos');
BEGIN { use_ok('Time::Piece'); }
ok(1);
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
}
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;
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 {
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 __ ($) {
}
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);
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);