Author: particle
Date: Mon Jun 18 18:02:55 2007
New Revision: 19103
Modified:
trunk/t/op/bitwise.t
Log:
[t]: skip test requiring bigint lib when lib not loaded
Modified: trunk/t/op/bitwise.t
==============================================================================
--- trunk/t/op/bitwise.t (original)
+++ trunk/t/op/bitwise.t Mon Jun 18 18:02:55 2007
@@ -502,7 +502,11 @@
6
OUTPUT
-pir_output_is( <<'CODE', <<'OUT', "I-reg shl and PMC shl are consistent");
+SKIP: {
+ skip 'no BigInt lib found' => 1
+ unless $PConfig{gmp};
+
+ pir_output_is( <<'CODE', <<'OUT', "I-reg shl and PMC shl are consistent");
## The PMC shl op will promote Integer to Bigint when needed. We can't stuff a
## BigInt in an I register, but we can produce the same result modulo wordsize.
## [Only we cheat by using the word size minus one, so that we don't have to
@@ -583,6 +587,8 @@
done.
done.
OUT
+}
+
# Local Variables:
# mode: cperl
