[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