[svn:parrot] r44906 - branches/ops_pct/compilers/opsc/t
bacek at svn.parrot.org
bacek at svn.parrot.org
Fri Mar 12 22:47:14 UTC 2010
Author: bacek
Date: Fri Mar 12 22:47:14 2010
New Revision: 44906
URL: https://trac.parrot.org/parrot/changeset/44906
Log:
Fix PAST test
Modified:
branches/ops_pct/compilers/opsc/t/03-past.t
Modified: branches/ops_pct/compilers/opsc/t/03-past.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/03-past.t Fri Mar 12 22:46:54 2010 (r44905)
+++ branches/ops_pct/compilers/opsc/t/03-past.t Fri Mar 12 22:47:14 2010 (r44906)
@@ -95,8 +95,11 @@
# Check body munching.
$op := @ops[0];
-ok( $op.body ~~ /OP_SIZE/, "goto NEXT appended for non :flow ops");
-
+my $goto_offset := 0;
+for @($op) {
+ $goto_offset := $goto_offset || $_<name> eq 'goto_offset';
+}
+ok( $goto_offset, "goto NEXT appended for non :flow ops");
# Don't forget to update plan!
More information about the parrot-commits
mailing list