Change 14482 by jhi@alpha on 2002/01/28 22:08:38
Subject: [PATCH] skip assembler.t when there is no ByteLoader
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Mon, 28 Jan 2002 16:30:30 -0600
Message-Id: <5.1.0.14.2.20020128162440.01ae7868@exchi01>
Affected files ...
.... //depot/perl/ext/B/t/assembler.t#3 edit
Differences ...
==== //depot/perl/ext/B/t/assembler.t#3 (text) ====
Index: perl/ext/B/t/assembler.t
--- perl/ext/B/t/assembler.t.~1~ Mon Jan 28 15:15:06 2002
+++ perl/ext/B/t/assembler.t Mon Jan 28 15:15:06 2002
@@ -154,6 +154,13 @@
use Test::More;
use Config qw(%Config);
+BEGIN {
+ if (($Config{'extensions'} !~ /\bByteLoader\b/) ){
+ print "1..0 # Skip -- Perl configured without ByteLoader module\n";
+ exit 0;
+ }
+}
+
use B::Asmdata qw( %insn_data );
use B::Assembler qw( &assemble_fh );
use B::Disassembler qw( &disassemble_fh &get_header );
End of Patch.
