From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Aug 2003 10:58:23 +0000 (+0000)
Subject: Now the test should be really testing what it's supposed to.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba566e15f2fea5ab804d1ca2a5c5c22540e0ee39;p=p5sagit%2Fp5-mst-13.2.git

Now the test should be really testing what it's supposed to.

p4raw-id: //depot/perl@20418
---

diff --git a/ext/B/t/bytecode.t b/ext/B/t/bytecode.t
index d87b732..47bae92 100644
--- a/ext/B/t/bytecode.t
+++ b/ext/B/t/bytecode.t
@@ -1,6 +1,10 @@
 #!./perl
 
 BEGIN {
+    if ($^O eq 'VMS') {
+       print "1..0 # skip - Bytecode/ByteLoader doesn't work on VMS\n";
+       exit 0;
+    }
     chdir 't' if -d 't';
     @INC = qw(../lib);
     require './test.pl'; # for run_perl()
@@ -8,7 +12,7 @@ BEGIN {
 use strict;
 
 my $test = 'bytecode.pl';
-END { 1 while unlink $test }
+END { 1 while unlink $test, "${test}c" }
 
 undef $/;
 my @tests = split /\n###+\n/, <DATA>;
@@ -22,11 +26,13 @@ for (@tests) {
     my ($script, $expect) = split />>>+\n/;
     $expect =~ s/\n$//;
     open T, ">$test"; print T $script; close T;
-    $got = run_perl(switches => [ "-MO=Bytecode,-H,-o$test" ],
-		    stderr   => 1,
+    $got = run_perl(switches => [ "-MO=Bytecode,-H,-o${test}c" ],
+		    verbose  => 0, # for debugging
+		    stderr   => 1, # to capture the "bytecode.pl syntax ok"
 		    progfile => $test);
     unless ($?) {
-	$got = run_perl(progfile => $test);
+	1 while unlink($test); # nuke the .pl
+	$got = run_perl(progfile => "${test}c"); # run the .plc
 	unless ($?) {
 	    if ($got =~ /^$expect$/) {
 		print "ok $cnt\n";