[svn:parrot] r46854 - branches/ops_pct/t/compilers/opsc

bacek at svn.parrot.org bacek at svn.parrot.org
Fri May 21 12:27:54 UTC 2010


Author: bacek
Date: Fri May 21 12:27:53 2010
New Revision: 46854
URL: https://trac.parrot.org/parrot/changeset/46854

Log:
Update tests

Modified:
   branches/ops_pct/t/compilers/opsc/05-oplib.t

Modified: branches/ops_pct/t/compilers/opsc/05-oplib.t
==============================================================================
--- branches/ops_pct/t/compilers/opsc/05-oplib.t	Fri May 21 12:02:52 2010	(r46853)
+++ branches/ops_pct/t/compilers/opsc/05-oplib.t	Fri May 21 12:27:53 2010	(r46854)
@@ -13,15 +13,16 @@
     :skip_file('src/ops/ops.skip'),
 );
 
-# It's 1258 currently. But testing for exact match isn't nessary.
-ok( $lib.max_op_num > 1200, "ops.num file parsed");
+# It's 1200 currently. But testing for exact match isn't nessary.
+ok( $lib.max_op_num > 1000, "ops.num file parsed");
+say('# ' ~ $lib.max_op_num);
 
 # Check couple random ops.
-ok( $lib.optable<end> == 0, "'end' have code 0");
-ok( $lib.optable<set_addr_p_i> != 42, "'set_addr_p_i' have non 0 code");
+ok( $lib.op_num_table<end> == 0, "'end' have code 0");
+ok( $lib.op_num_table<set_addr_p_i> != 42, "'set_addr_p_i' have non 0 code");
 
-ok( $lib.skiptable<abs_i_ic>,       "'abs_i_ic' in skiptable");
-ok( $lib.skiptable<ne_nc_nc_ic>,    "'ne_nc_nc_ic' in skiptable");
+ok( $lib.op_skip_table<abs_i_ic>,       "'abs_i_ic' in skiptable");
+ok( $lib.op_skip_table<ne_nc_nc_ic>,    "'ne_nc_nc_ic' in skiptable");
 #_dumper($lib.skiptable);
 
 # vim: expandtab shiftwidth=4 ft=perl6:


More information about the parrot-commits mailing list