[t] Parrot_PMC_delete_keyed_str

parrot · Apr 23, 2011 · f0346a2 · f0346a2 · cotto · Apr 24, 2011
1 parent 6d018dd
commit f0346a2
Showing 1 changed file with 9 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 => 102;
+plan tests => 103;
 
 =head1 NAME
 
@@ -371,6 +371,14 @@ CODE
 Done!
 OUTPUT
 
+# TODO: Improve this test
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_delete_keyed_str");
+    string = createstring(interp,"foo");
+    Parrot_PMC_delete_keyed_str(interp, hash, string);
+CODE
+Done!
+OUTPUT
+
 extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_defined_keyed_str");
     integer = Parrot_PMC_defined_keyed_str(interp, hash, string);
     Parrot_printf(interp,"%d\n", integer);