[svn:parrot] r36593 - trunk/t/op

rurban at svn.parrot.org rurban at svn.parrot.org
Wed Feb 11 20:22:39 UTC 2009


Author: rurban
Date: Wed Feb 11 20:22:38 2009
New Revision: 36593
URL: https://trac.parrot.org/parrot/changeset/36593

Log:
[t] Fix the previous syntax error (forgot end) and the wrong test.
Closes TT#316. More to be done in TT#313.
Change print to say.

Modified:
   trunk/t/op/arithmetics.t

Modified: trunk/t/op/arithmetics.t
==============================================================================
--- trunk/t/op/arithmetics.t	Wed Feb 11 20:10:56 2009	(r36592)
+++ trunk/t/op/arithmetics.t	Wed Feb 11 20:22:38 2009	(r36593)
@@ -33,29 +33,23 @@
 pasm_output_is( <<'CODE', <<OUTPUT, "take the negative of a native integer" );
         set I0, 0
         neg I0
-        print I0
-        print "\n"
+        say I0
         set I0, 1234567890
         neg I0
-        print I0
-        print "\n"
+        say I0
         set I0, -1234567890
         neg I0
-        print I0
-        print "\n"
+        say I0
         set I0, 0
         set I1, 0
         neg I1, I0
-        print I1
-        print "\n"
+        say I1
         set I0, 1234567890
         neg I1, I0
-        print I1
-        print "\n"
+        say I1
         set I0, -1234567890
         neg I1, I0
-        print I1
-        print "\n"
+        say I1
         end
 CODE
 0
@@ -69,29 +63,23 @@
 pasm_output_is( <<'CODE', <<OUTPUT, "take the absolute of a native integer" );
         set I0, 0
         abs I0
-        print I0
-        print "\n"
+        say I0
         set I0, 1234567890
         abs I0
-        print I0
-        print "\n"
+        say I0
         set I0, -1234567890
         abs I0
-        print I0
-        print "\n"
+        say I0
         set I0, 0
         set I1, 0
         abs I1, I0
-        print I1
-        print "\n"
+        say I1
         set I0, 1234567890
         abs I1, I0
-        print I1
-        print "\n"
+        say I1
         set I0, -1234567890
         abs I1, I0
-        print I1
-        print "\n"
+        say I1
         end
 CODE
 0
@@ -109,11 +97,9 @@
         set I0, 4000
         set I1, -123
         add I2, I0, I1
-        print I2
-        print "\n"
+        say I2
         add I0, I0, I1
-        print I0
-        print "\n"
+        say I0
         end
 CODE
 3877
@@ -124,11 +110,9 @@
         set I0, 4000
         set I1, -123
         sub I2, I0, I1
-        print I2
-        print "\n"
+        say I2
         sub I0, I0, I1
-        print I0
-        print "\n"
+        say I0
         end
 CODE
 4123
@@ -139,11 +123,9 @@
         set I0, 4000
         set I1, -123
         mul I2, I0, I1
-        print I2
-        print "\n"
+        say I2
         mul I0, I0, I1
-        print I0
-        print "\n"
+        say I0
         end
 CODE
 -492000
@@ -154,11 +136,9 @@
         set I0, 4000
         set I1, -123
         div I2, I0, I1
-        print I2
-        print "\n"
+        say I2
         div I0, I0, I1
-        print I0
-        print "\n"
+        say I0
         end
 CODE
 -32
@@ -177,21 +157,23 @@
 pasm_output_is( <<'CODE', <<OUTPUT, 'negate -0.0', @todo );
         set N0, 0
         neg N0
-        print N0
-        print "\n"
+        say N0
         set N0, -0.0
         neg N0
-        print N0
-        print "\n"
+        say N0
         set N0, -0.0
         neg N1, N0
-        print N1
-        print "\n"
+        say N1
+        set N0, 0
+        set N1, 1
+        neg N1, N0
+        say N1
+        end
 CODE
 -0
 0
--0
 0
+-0
 OUTPUT
 
 }
@@ -204,30 +186,20 @@
 pasm_output_is( <<'CODE', <<OUTPUT, 'negate a native number' );
         set N0, 123.4567890
         neg N0
-        print N0
-        print "\n"
+        say N0
         set N0, -123.4567890
         neg N0
-        print N0
-        print "\n"
-        set N0, 0
-        set N1, 1
-        neg N1, N0
-        print N1
-        print "\n"
+        say N0
         set N0, 123.4567890
         neg N1, N0
-        print N1
-        print "\n"
+        say N1
         set N0, -123.4567890
         neg N1, N0
-        print N1
-        print "\n"
+        say N1
         end
 CODE
 -123.456789
 123.456789
-0
 -123.456789
 123.456789
 OUTPUT
@@ -235,40 +207,32 @@
 pasm_output_is( <<'CODE', <<OUTPUT, "take the absolute of a native number" );
         set N0, 0
         abs N0
-        print N0
-        print "\n"
+        say N0
         set N0, -0.0
         abs N0
-        print N0
-        print "\n"
+        say N0
         set N0, 123.45678901
         abs N0
-        print N0
-        print "\n"
+        say N0
         set N0, -123.45678901
         abs N0
-        print N0
-        print "\n"
+        say N0
         set N0, 0
         set N1, 1
         abs N1, N0
-        print N1
-        print "\n"
+        say N1
         set N0, 0.0
         set N1, 1
         abs N1, N0
-        print N1
-        print "\n"
+        say N1
         set N0, 123.45678901
         set N1, 1
         abs N1, N0
-        print N1
-        print "\n"
+        say N1
         set N0, -123.45678901
         set N1, 1
         abs N1, N0
-        print N1
-        print "\n"
+        say N1
         end
 CODE
 0
@@ -284,56 +248,45 @@
 pasm_output_is( <<'CODE', <<OUTPUT, "ceil of a native number" );
        set N0, 0
        ceil N0
-       print N0
-       print "\n"
+       say N0
        set N0, 123.45678901
        ceil N0
-       print N0
-       print "\n"
+       say N0
        set N0, -123.45678901
        ceil N0
-       print N0
-       print "\n"
+       say N0
        set N0, 0
        set N1, 1
        ceil N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, 0.0
        set N1, 1
        ceil N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, 123.45678901
        set N1, 1
        ceil N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, -123.45678901
        set N1, 1
        ceil N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, 0
        set I1, 1
        ceil I1, N0
-       print I1
-       print "\n"
+       say I1
        set N0, 0.0
        set I1, 1
        ceil I1, N0
-       print I1
-       print "\n"
+       say I1
        set N0, 123.45678901
        set I1, 1
        ceil I1, N0
-       print I1
-       print "\n"
+       say I1
        set N0, -123.45678901
        set I1, 1
        ceil I1, N0
-       print I1
-       print "\n"
+       say I1
        end
 CODE
 0
@@ -352,56 +305,45 @@
 pasm_output_is( <<'CODE', <<OUTPUT, "floor of a native number" );
        set N0, 0
        floor N0
-       print N0
-       print "\n"
+       say N0
        set N0, 123.45678901
        floor N0
-       print N0
-       print "\n"
+       say N0
        set N0, -123.45678901
        floor N0
-       print N0
-       print "\n"
+       say N0
        set N0, 0
        set N1, 1
        floor N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, 0.0
        set N1, 1
        floor N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, 123.45678901
        set N1, 1
        floor N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, -123.45678901
        set N1, 1
        floor N1, N0
-       print N1
-       print "\n"
+       say N1
        set N0, 0
        set I1, 1
        floor I1, N0
-       print I1
-       print "\n"
+       say I1
        set N0, 0.0
        set I1, 1
        floor I1, N0
-       print I1
-       print "\n"
+       say I1
        set N0, 123.45678901
        set I1, 1
        floor I1, N0
-       print I1
-       print "\n"
+       say I1
        set N0, -123.45678901
        set I1, 1
        floor I1, N0
-       print I1
-       print "\n"
+       say I1
        end
 CODE
 0
@@ -424,14 +366,11 @@
         set I0, 4000
         set N0, -123.123
         add N1, N0, I0
-        print N1
-        print "\n"
+        say N1
         add N0, N0, I0
-        print N0
-        print "\n"
+        say N0
         add N0, I0
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 3876.877
@@ -443,14 +382,11 @@
         set I0, 4000
         set N0, -123.123
         sub N1, N0, I0
-        print N1
-        print "\n"
+        say N1
         sub N0, N0, I0
-        print N0
-        print "\n"
+        say N0
         sub N0, I0
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 -4123.123
@@ -462,14 +398,11 @@
         set I0, 4000
         set N0, -123.123
         mul N1, N0, I0
-        print N1
-        print "\n"
+        say N1
         mul N0, N0, I0
-        print N0
-        print "\n"
+        say N0
         mul N0, -2
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 -492492
@@ -481,21 +414,16 @@
         set I0, 4000
         set N0, -123.123
         div N1, N0, I0
-        print N1
-        print "\n"
+        say N1
         div N0, N0, I0
-        print N0
-        print "\n"
+        say N0
         div N0, 1
-        print N0
-        print "\n"
+        say N0
         set N0, 100.000
         div N0, 100
-        print N0
-        print "\n"
+        say N0
         div N0, 0.01
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 -0.03078075
@@ -512,11 +440,9 @@
         set N2, 4000.246
         set N0, -123.123
         add N1, N0, N2
-        print N1
-        print "\n"
+        say N1
         add N0, N0, N2
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 3877.123
@@ -527,11 +453,9 @@
         set N2, 4000.246
         set N0, -123.123
         sub N1, N0, N2
-        print N1
-        print "\n"
+        say N1
         sub N0, N0, N2
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 -4123.369
@@ -542,11 +466,9 @@
         set N2, 4000.246
         set N0, -123.123
         mul N1, N0, N2
-        print N1
-        print "\n"
+        say N1
         mul N0, N0, N2
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 -492522.288258
@@ -557,11 +479,9 @@
         set N2, 4000.246
         set N0, -123.123
         div N1, N0, N2
-        print N1
-        print "\n"
+        say N1
         div N0, N0, N2
-        print N0
-        print "\n"
+        say N0
         end
 CODE
 -0.0307788571002883
@@ -574,7 +494,7 @@
         lcm I2, I1, I0
         eq I2, 10, OK1
         print "not "
-OK1:    print "ok 1\n"
+OK1:    say "ok 1"
 
         set I1, 17
         lcm I2, I1, I0


More information about the parrot-commits mailing list