Change 28574 by [EMAIL PROTECTED] on 2006/07/14 18:09:40
Make sysconf tests handle unimplemented success indications
for the benefit of Mac OS X and VMS.
Affected files ...
... //depot/perl/ext/POSIX/t/sysconf.t#7 edit
Differences ...
==== //depot/perl/ext/POSIX/t/sysconf.t#7 (text) ====
Index: perl/ext/POSIX/t/sysconf.t
--- perl/ext/POSIX/t/sysconf.t#6~28572~ 2006-07-14 07:38:28.000000000 -0700
+++ perl/ext/POSIX/t/sysconf.t 2006-07-14 11:09:40.000000000 -0700
@@ -153,11 +153,12 @@
# testing sysconf()
for my $constant (@sys_consts) {
SKIP: {
- skip "Saved IDs broken on Mac OS X (Perl #24122)", 3
- if $^O eq 'darwin' && $constant eq '_SC_SAVED_IDS';
+ $! = 0;
$r = eval { sysconf( eval "$constant()" ) };
+ my $s = defined($r) || $! == 0;
is( $@, '', "calling sysconf($constant)" );
- ok( defined $r, "\tchecking that the returned value is defined: $r" );
+ ok( $s, "\tchecking that the returned value is defined or that errno is
clear: $r $!" );
+ skip "$constant not implemented on $^O", 1 if $s && !defined($r);
ok( looks_like_number($r), "\tchecking that the returned value looks
like a number" );
}
}
End of Patch.
