[t] Parrot_PMC_getprop

parrot · May 9, 2011 · 621bb56 · 621bb56
1 parent 3d00eba
commit 621bb56
Showing 1 changed file with 12 additions and 2 deletions.
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 => 106;
+plan tests => 107;
 
 =head1 NAME
 
@@ -129,13 +129,14 @@ void dotest(Parrot_Interp interp, void *unused)
 
 $code
 
-    /* TODO: Shouldn't we also be destroying all the other PMCs ? */
+    /*  TODO: Shouldn't we also be destroying all the other PMCs ?
     Parrot_PMC_destroy(interp, pmc);
     Parrot_PMC_destroy(interp, pmc_string);
     Parrot_PMC_destroy(interp, pmc_string2);
     Parrot_PMC_destroy(interp, pmc_string3);
     Parrot_PMC_destroy(interp, pmc_float);
     Parrot_PMC_destroy(interp, pmc_float2);
+    */
 
     /* TODO: Properly test this */
     Parrot_destroy(interp);
@@ -525,6 +526,15 @@ CODE
 Done!
 OUTPUT
 
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_getprop");
+    string = createstring(interp, "_struct");
+    pmc = Parrot_PMC_getprop(interp,continuation , string);
+    Parrot_printf(interp,"42\n");
+CODE
+42
+Done!
+OUTPUT
+
 extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_delprop");
     type   = Parrot_PMC_typenum(interp, "Class");
     pmc    = Parrot_PMC_new(interp, type);