[svn:parrot] r46104 - in branches/ops_pct/compilers/opsc: src/Ops t
cotto at svn.parrot.org
cotto at svn.parrot.org
Wed Apr 28 05:36:20 UTC 2010
Author: cotto
Date: Wed Apr 28 05:36:19 2010
New Revision: 46104
URL: https://trac.parrot.org/parrot/changeset/46104
Log:
[opsc] get tests Ops::File tests passing, not sure why _set_version needed to be moved
Modified:
branches/ops_pct/compilers/opsc/src/Ops/File.pm
branches/ops_pct/compilers/opsc/t/06-opsfile.t
Modified: branches/ops_pct/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/ops_pct/compilers/opsc/src/Ops/File.pm Wed Apr 28 04:34:24 2010 (r46103)
+++ branches/ops_pct/compilers/opsc/src/Ops/File.pm Wed Apr 28 05:36:19 2010 (r46104)
@@ -192,10 +192,10 @@
self<compiler>:= pir::compreg__Ps('Ops');
self<compiler>.set_oplib($oplib);
- self._set_version();
-
for @files { self.read_ops( $_, $nolines ) }
+ self._set_version();
+
self;
}
@@ -209,8 +209,6 @@
self._set_version();
- self._set_version();
-
self.compile_ops($str);
self;
Modified: branches/ops_pct/compilers/opsc/t/06-opsfile.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/06-opsfile.t Wed Apr 28 04:34:24 2010 (r46103)
+++ branches/ops_pct/compilers/opsc/t/06-opsfile.t Wed Apr 28 05:36:19 2010 (r46104)
@@ -20,7 +20,7 @@
# 116 math
# We can generate more than 1 Ops::Op per op due args expansion.
say( "# Parsed " ~ + at ops);
-ok(+ at ops == 313, "Ops parsed correctly");
+ok(+ at ops == 319, "Ops parsed correctly");
my $op := @ops[0];
#_dumper($op);
More information about the parrot-commits
mailing list