[svn:parrot] r37518 - trunk/t/native_pbc

[rurban at svn.parrot.org]

Author: rurban
Date: Tue Mar 17 13:04:11 2009
New Revision: 37518
URL: https://trac.parrot.org/parrot/changeset/37518

Log:
[t] fix header bc_minor test for x.0

Modified:
   trunk/t/native_pbc/header.t

Modified: trunk/t/native_pbc/header.t
==============================================================================
--- trunk/t/native_pbc/header.t	Tue Mar 17 12:55:02 2009	(r37517)
+++ trunk/t/native_pbc/header.t	Tue Mar 17 13:04:11 2009	(r37518)
@@ -6,7 +6,9 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
+
 use Parrot::Test skip_all => 'pending robust testing strategy, TT #357';
+#use Parrot::Test tests => 9;
 
 use File::Temp;
 use Parrot::Config;
@@ -70,7 +72,7 @@
 is( $h{patch}, $PConfig{PATCH}, "patch version: $h{patch} vs $PConfig{PATCH}" );
 # see pbcversion.h or PBC_COMPAT
 ok( $h{bc_major} > 0,           "bc major version: $h{bc_major}" );
-ok( $h{bc_minor} > 0,           "bc minor version: $h{bc_minor}" );
+ok( $h{bc_minor} >= 0,          "bc minor version: $h{bc_minor}" );
 
 # Local Variables:
 #   mode: cperl