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

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Fri Aug 21 01:51:00 2009
New Revision: 40685
URL: https://trac.parrot.org/parrot/changeset/40685

Log:
[cage] De-backslashitis a rounding test by using a non-interpolating heredoc. coke++

Modified:
   trunk/t/op/arithmetics.t

Modified: trunk/t/op/arithmetics.t
==============================================================================
--- trunk/t/op/arithmetics.t	Thu Aug 20 23:44:39 2009	(r40684)
+++ trunk/t/op/arithmetics.t	Fri Aug 21 01:51:00 2009	(r40685)
@@ -700,20 +700,20 @@
 TODO: {
 
 local $TODO = 'rounding nan/inf gives something like -2147483648';
-pir_output_is(<<CODE,<<OUTPUT, "TT #370 Rounding inf/nan");
+pir_output_is(<<'CODE',<<OUTPUT, "TT #370 Rounding inf/nan");
 .sub 'main'
-        \$N0 = 'Inf'
-        \$I0 = floor \$N0
-        say \$I0
-        \$N0 = 'NaN'
-        \$I0 = floor \$N0
-        say \$I0
-        \$N0 = 'Inf'
-        \$I0 = ceil \$N0
-        say \$I0
-        \$N0 = 'NaN'
-        \$I0 = ceil \$N0
-        say \$I0
+        $N0 = 'Inf'
+        $I0 = floor $N0
+        say $I0
+        $N0 = 'NaN'
+        $I0 = floor $N0
+        say $I0
+        $N0 = 'Inf'
+        $I0 = ceil $N0
+        say $I0
+        $N0 = 'NaN'
+        $I0 = ceil $N0
+        say $I0
     .end
 CODE
 Inf