This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH 5.8.7 RC1] lib/Carp.t todo for VMS
authorMichael G. Schwern <schwern@pobox.com>
Fri, 20 May 2005 22:09:00 +0000 (22:09 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 22 May 2005 18:53:12 +0000 (18:53 +0000)
Message-ID: <20050520200900.GB13473@windhund.schwern.org>

p4raw-id: //depot/perl@24541

lib/Carp.t

index d07e202..2ce5eb4 100644 (file)
@@ -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 $!');
+}