From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 20 May 2005 22:09:00 +0000 (+0000)
Subject: Re: [PATCH 5.8.7 RC1] lib/Carp.t todo for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b09a709cacc8926b531523da1d1511f3a87dcb2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 $!');
+}