[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