Re: [PATCH 5.8.7 RC1] lib/Carp.t todo for VMS

Message-ID: <20050520200900.GB13473@windhund.schwern.org>

p4raw-id: //depot/perl@24541

diff --git a/lib/Carp.t b/lib/Carp.t
index d07e202..2ce5eb4 100644 (file)
--- a/lib/Carp.t
+++ b/lib/Carp.t
@@ -4,6 +4,8 @@ BEGIN {
        require './test.pl';
 }
 
+my $Is_VMS = $^O eq 'VMS';
+
 use Carp qw(carp cluck croak confess);
 
 plan tests => 21;
@@ -156,8 +158,18 @@ sub w { cluck @_ }
     }
 }
 
-# Check that croak() and confess() don't clobber $!
-runperl(prog => 'use Carp; $@=q{Phooey}; $!=42; croak(q{Dead})', stderr => 1);
-is($?>>8, 42, 'croak() doesn\'t clobber $!');
-runperl(prog => 'use Carp; $@=q{Phooey}; $!=42; confess(q{Dead})', stderr => 1);
-is($?>>8, 42, 'confess() doesn\'t clobber $!');
+
+{
+    local $TODO = "VMS exit status semantics don't work this way" if $Is_VMS;
+
+    # Check that croak() and confess() don't clobber $!
+    runperl(prog => 'use Carp; $@=q{Phooey}; $!=42; croak(q{Dead})', 
+           stderr => 1);
+
+    is($?>>8, 42, 'croak() doesn\'t clobber $!');
+
+    runperl(prog => 'use Carp; $@=q{Phooey}; $!=42; confess(q{Dead})', 
+           stderr => 1);
+
+    is($?>>8, 42, 'confess() doesn\'t clobber $!');
+}