fix Deparse.t and write.t for VMS
authorCraig A. Berry <craigberry@mac.com>
Thu, 21 Jun 2001 09:58:52 +0000 (04:58 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Jun 2001 12:07:19 +0000 (12:07 +0000)
Message-Id: <5.1.0.14.0.20010620172532.033cdb88@exchi01>

p4raw-id: //depot/perl@10815

ext/B/Deparse.t
t/op/write.t

index 048ce31..0979d7e 100644 (file)
@@ -20,7 +20,7 @@ print "1..14\n";
 use B::Deparse;
 my $deparse = B::Deparse->new() or print "not ";
 my $i=1;
-print "ok ", $i++, "\n";
+print "ok " . $i++ . "\n";
 
 
 # Tell B::Deparse about our ambient pragmas
@@ -49,7 +49,7 @@ while (<DATA>) {
     my $coderef = eval "sub {$input}";
 
     if ($@) {
-       print "not ok ", $i++, "\n";
+       print "not ok " . $i++ . "\n";
        print "# $@";
     }
     else {
@@ -61,8 +61,7 @@ while (<DATA>) {
        };
 
        my $ok = ($deparsed =~ /^\{\s*$regex\s*\}$/);
-       print ($ok ? "ok " : "not ok ");
-       print $i++, "\n";
+       print (($ok ? "ok " : "not ok ") . $i++ . "\n");
        if (!$ok) {
            print "# EXPECTED:\n";
            $regex =~ s/^/# /mg;
@@ -77,19 +76,19 @@ while (<DATA>) {
 
 use constant 'c', 'stuff';
 print "not " if (eval "sub ".$deparse->coderef2text(\&c))->() ne 'stuff';
-print "ok ", $i++, "\n";
+print "ok " . $i++ . "\n";
 
 $a = 0;
 print "not " if "{\n    (-1) ** \$a;\n}"
                ne $deparse->coderef2text(sub{(-1) ** $a });
-print "ok ", $i++, "\n";
+print "ok " . $i++ . "\n";
 
 # XXX ToDo - constsub that returns a reference
 #use constant cr => ['hello'];
 #my $string = "sub " . $deparse->coderef2text(\&cr);
 #my $val = (eval $string)->();
 #print "not " if ref($val) ne 'ARRAY' || $val->[0] ne 'hello';
-#print "ok ", $i++, "\n";
+#print "ok " . $i++ . "\n";
 
 my $a;
 my $Is_VMS = $^O eq 'VMS';
@@ -112,7 +111,7 @@ LINE: while (defined($_ = <ARGV>)) {
 
 EOF
 print "# [$a]\n\# vs expected\n# [$b]\nnot " if $a ne $b;
-print "ok ", $i++, "\n";
+print "ok " . $i++ . "\n";
 
 __DATA__
 # 1
index 2830974..7dddbb4 100755 (executable)
@@ -273,6 +273,11 @@ else
 
 # 12..44: scary format testing from Merijn H. Brand
 
+if ($^O eq 'VMS') {
+  foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
+  exit(0);
+}
+
 use strict;    # Amazed that this hackery can be made strict ...
 
 # Just a complete test for format, including top-, left- and bottom marging