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

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Mar  8 19:55:17 2010
New Revision: 44765
URL: https://trac.parrot.org/parrot/changeset/44765

Log:
Update test.

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

Modified: branches/ops_pct/compilers/opsc/t/05-opsfile.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/05-opsfile.t	Mon Mar  8 19:51:23 2010	(r44764)
+++ branches/ops_pct/compilers/opsc/t/05-opsfile.t	Mon Mar  8 19:55:17 2010	(r44765)
@@ -30,7 +30,7 @@
 
 $op := @ops[(+ at ops)-1];
 ok($op.name eq 'fact',  "Last op is fact");
-ok($op<code> == 358,    "... with code 0");
+ok($op<code> > 84 + 116,    "... with non zero code");
 
 my $version := join(' ', |$f.version);
 ok( $version ~~ /^\d+ \s \d+ \s \d+$/, "Version parsed");