[svn:parrot] r46296 - branches/codestring/t/pmc

[coke at svn.parrot.org]

Author: coke
Date: Wed May  5 01:19:46 2010
New Revision: 46296
URL: https://trac.parrot.org/parrot/changeset/46296

Log:
Make sure that CodeString works with inplace concat.

Modified:
   branches/codestring/t/pmc/codestring.t

Modified: branches/codestring/t/pmc/codestring.t
==============================================================================
--- branches/codestring/t/pmc/codestring.t	Wed May  5 00:33:49 2010	(r46295)
+++ branches/codestring/t/pmc/codestring.t	Wed May  5 01:19:46 2010	(r46296)
@@ -19,11 +19,12 @@
 
 .sub main :main
     .include 'test_more.pir'
-    plan(38)
+    plan(39)
 
     create_codestring()
     calls_to_unique()
     basic_emit()
+    basic_concat()
     emit_with_pos_args()
     emit_with_percent_args()
     emit_with_named_args()
@@ -74,6 +75,22 @@
 CODE
 .end
 
+.sub basic_concat
+    .local pmc code
+    code = new ['CodeString']
+    $P1  = box "label:\n"
+    code .= $P1
+    code .= "    say \"Hello, World\"\n"
+    code .= "    $I0 = 1\n"
+    code .= "    $N0 = 0.1\n"
+    is(code, <<'CODE', "code string looks fine (concat)")
+label:
+    say "Hello, World"
+    $I0 = 1
+    $N0 = 0.1
+CODE
+.end
+
 .sub emit_with_pos_args
     .local pmc code
     code = new ['CodeString']