Skip to content
Browse files

[t] Parrot_PMC_init_pmc

  • Loading branch information...
1 parent 970a59e commit 951c3d392161ad4005b4f44567b0e93efcc01bf4 @leto leto committed
Showing with 9 additions and 1 deletion.
  1. +9 −1 t/src/extend_vtable.t
View
10 t/src/extend_vtable.t
@@ -102,7 +102,7 @@ void dotest(Parrot_Interp interp, void *unused)
{
Parrot_PMC pmc, pmc2, pmc3, pmc_string, pmc_string2, pmc_string3;
Parrot_PMC pmc_float, pmc_float2;
- Parrot_PMC rpa, rpa2, fpa, hash, hash_iter, continuation;
+ Parrot_PMC rpa, rpa2, fpa, hash, hash_iter, continuation, continuation2;
Parrot_PMC key_int, key_str, hashkey, ns, object, klass;
Parrot_Int type, value, integer, integer2;
Parrot_Float number, number2;
@@ -110,6 +110,7 @@ void dotest(Parrot_Interp interp, void *unused)
type = Parrot_PMC_typenum(interp, "Integer");
continuation = Parrot_PMC_new(interp, Parrot_PMC_typenum(interp, "Continuation"));
+ continuation2= Parrot_PMC_new(interp, Parrot_PMC_typenum(interp, "Continuation"));
rpa = Parrot_PMC_new(interp, Parrot_PMC_typenum(interp, "ResizablePMCArray"));
rpa2 = Parrot_PMC_new(interp, Parrot_PMC_typenum(interp, "ResizablePMCArray"));
fpa = Parrot_PMC_new(interp, Parrot_PMC_typenum(interp, "FixedPMCArray"));
@@ -168,6 +169,13 @@ default
Done!
OUTPUT
+# TODO: Improve this test
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_init_pmc");
+ Parrot_PMC_init_pmc(interp, continuation2, continuation);
+CODE
+Done!
+OUTPUT
+
extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_init_int");
Parrot_PMC_init_int(interp, fpa, 10);
Parrot_printf(interp, "%d\n", Parrot_PMC_elements(interp, fpa));

0 comments on commit 951c3d3

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