Author: particle
Date: Mon May 1 10:12:24 2006
New Revision: 12476
Modified:
trunk/t/dynpmc/perlint.t
Log:
[dynpmc] adjust perlint test to work with non-gmp systems
Modified: trunk/t/dynpmc/perlint.t
==============================================================================
--- trunk/t/dynpmc/perlint.t (original)
+++ trunk/t/dynpmc/perlint.t Mon May 1 10:12:24 2006
@@ -6,9 +6,13 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 75;
+use Parrot::Test;
use Parrot::Config;
+## test count varies depending on gmp installation
+plan tests => ( $PConfig{gmp} ? 75 : 72 );
+
+
=head1 NAME
t/pmc/perlint.t - Perl Integers
@@ -2097,6 +2101,9 @@
Integer
OUT
+SKIP: {
+ skip 3 => 'no bigint lib' unless $PConfig{gmp};
+
pasm_output_is($load_perl . <<'CODE', <<'OUTPUT', "sub other int");
new P0, .BigInt
set P0, 12345678
@@ -2211,3 +2218,4 @@
ok
OUT
}
+} ## SKIP
