Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t] Parrot_PMC_get_pmc

  • Loading branch information...
commit ac2ad789fc094d33a9db1f984e85ed100047be49 1 parent 7486820
@leto leto authored
Showing with 16 additions and 1 deletion.
  1. +16 −1 t/src/extend_vtable.t
View
17 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 => 64;
+plan tests => 65;
=head1 NAME
@@ -175,6 +175,21 @@ Great Scott!
Done!
OUTPUT
+# TODO: Is this test correct?
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_get_pmc");
+ Parrot_PMC_set_integer_native(interp, pmc, 42);
+ Parrot_PMC_push_pmc(interp, rpa, pmc);
+ Parrot_PMC_push_pmc(interp, rpa, pmc);
+ Parrot_PMC_push_pmc(interp, rpa, pmc);
+
+ pmc3 = Parrot_PMC_get_iter(interp, rpa);
+ pmc2 = Parrot_PMC_get_pmc(interp, pmc3);
+ Parrot_printf(interp,"%P\n", pmc2);
+CODE
+3
+Done!
+OUTPUT
+
extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_get_namespace");
Parrot_PMC_set_integer_native(interp, pmc, 42);
Parrot_PMC_set_integer_native(interp, pmc2, 99);

2 comments on commit ac2ad78

@cotto

Feel free to file a ticket if you're not sure how a particular VTABLE function should behave. If you're just making a note for your future self, you can safely ignore me.

@leto
Owner

Thanks! I should make a TT for this, I was just being lazy.

Please sign in to comment.
Something went wrong with that request. Please try again.