Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t] Parrot_PMC_(add|remove)_parent

  • Loading branch information...
commit c668feb58ec132d9481883e1433a83b7fcd34bd0 1 parent 1106ad2
@leto leto authored
Showing with 17 additions and 1 deletion.
  1. +17 −1 t/src/extend_vtable.t
View
18 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 => 69;
+plan tests => 71;
=head1 NAME
@@ -179,6 +179,7 @@ CODE
Done!
OUTPUT
+
extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_(add|remove)_method");
type = Parrot_PMC_typenum(interp, "Class");
pmc = Parrot_PMC_new(interp, type);
@@ -196,6 +197,21 @@ CODE
Done!
OUTPUT
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_(add|remove)_parent");
+ type = Parrot_PMC_typenum(interp, "Class");
+ pmc = Parrot_PMC_new(interp, type);
+ pmc2 = Parrot_PMC_new(interp, type);
+
+ Parrot_PMC_add_parent(interp, pmc, pmc2);
+ Parrot_printf(interp,"42\n");
+ Parrot_PMC_remove_parent(interp, pmc, pmc2);
+ Parrot_printf(interp,"42\n");
+CODE
+42
+42
+Done!
+OUTPUT
+
extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_hashvalue");
Parrot_PMC_set_integer_native(interp, pmc, 42);
Please sign in to comment.
Something went wrong with that request. Please try again.