[t] Parrot_PMC_i_concatenate_str

parrot · Feb 20, 2011 · 953ff8b · 953ff8b
1 parent 6333613
commit 953ff8b
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/t/src/extend_vtable.t b/t/src/extend_vtable.t
@@ -10,7 +10,7 @@ use File::Spec::Functions;
 
 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/);
 
-plan tests => 66;
+plan tests => 68;
 
 =head1 NAME
 
@@ -832,6 +832,19 @@ FOOBAR
 Done!
 OUTPUT
 
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_i_concatenate_str" );
+     string  = createstring(interp, "FOO");
+     string2 = createstring(interp, "BAR");
+
+     Parrot_PMC_assign_string_native(interp, pmc_string, string);
+
+     Parrot_PMC_i_concatenate_str(interp, pmc_string, string2);
+     Parrot_printf(interp, "%P\n", pmc_string);
+CODE
+FOOBAR
+Done!
+OUTPUT
+
 extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_concatenate" );
      string  = createstring(interp, "FOO");
      string2 = createstring(interp, "BAR");