On Tue, 2004-10-05 at 07:40, Dan Sugalski wrote:
We do all the rest... might as well do this one too.
It'd look a little something like this.
Where do PIR tests go, by the way? I didn't see them in a trivial grep.
<delurk>
Apparently in imcc/t... The simple op tests are in imcc/t/syn/op.t ("syn" is for "syntax", I guess?).
Test patch for %= attached.
</delurk>
--
Matt Matthew Zimmerman
Interdisciplinary Biophysics, University of Virginia
http://www.people.virginia.edu/~mdz4c/
diff -ur imcc/t/syn/op.t imcc/t/syn/op.t
--- imcc/t/syn/op.t 2004-03-14 04:45:46.000000000 -0500
+++ imcc/t/syn/op.t 2004-10-05 11:51:32.147768288 -0400
@@ -1,6 +1,6 @@
#!perl
use strict;
-use TestCompiler tests => 19;
+use TestCompiler tests => 20;
##############################
output_is(<<'CODE', <<'OUT', "+=");
@@ -52,6 +52,18 @@
10
OUT
+output_is(<<'CODE', <<'OUT', '%=');
+.sub _test
+ $I0 = 14
+ $I0 %= 3
+ print $I0
+ print "\n"
+ end
+.end
+CODE
+2
+OUT
+
output_is(<<'CODE', <<'OUT', ".=");
.sub _test
$S0 = "ab"
