Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t][TT#2103] Parrot_PMC_cmp_pmc

This test gives this error:

even though PP->P seems to be the correct signature.
  • Loading branch information...
commit e71819b14e4b33ea3ebc2bb3364e64ba6b588dc0 1 parent 504e86f
@leto leto authored
Showing with 24 additions and 23 deletions.
  1. +24 −23 t/src/extend_vtable.t
View
47 t/src/extend_vtable.t
@@ -152,6 +152,30 @@ CODE
# actual tests start here
+extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_cmp_pmc" );
+ Parrot_PMC_set_integer_native(interp, pmc, 42);
+ Parrot_PMC_set_integer_native(interp, pmc2, 17);
+
+ pmc3 = Parrot_PMC_cmp_pmc(interp, pmc, pmc2);
+ Parrot_printf(interp,"%P\n", pmc3 );
+
+ Parrot_PMC_set_integer_native(interp, pmc, 17);
+ Parrot_PMC_set_integer_native(interp, pmc2, 42);
+
+ pmc3 = Parrot_PMC_cmp_pmc(interp, pmc, pmc2);
+ Parrot_printf(interp,"%P\n", pmc3 );
+
+ Parrot_PMC_set_integer_native(interp, pmc, 42);
+
+ pmc3 = Parrot_PMC_cmp_pmc(interp, pmc, pmc2);
+ Parrot_printf(interp,"%P\n", pmc3 );
+CODE
+1
+-1
+0
+Done!
+OUTPUT
+
extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_does_pmc" );
pmc2 = Parrot_PMC_new(interp, Parrot_PMC_typenum(interp, "Role"));
integer = Parrot_PMC_does_pmc(interp,pmc,pmc2);
@@ -1390,29 +1414,6 @@ Done!
OUTPUT
-#extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_cmp_pmc" );
-# Parrot_PMC_set_integer_native(interp, pmc, 42);
-# Parrot_PMC_set_integer_native(interp, pmc2, 17);
-#
-# pmc3 = Parrot_PMC_cmp_pmc(interp, pmc, pmc2);
-# Parrot_printf(interp,"%P\n", pmc3 );
-#
-# Parrot_PMC_set_integer_native(interp, pmc, 17);
-# Parrot_PMC_set_integer_native(interp, pmc2, 42);
-#
-# pmc3 = Parrot_PMC_cmp_pmc(interp, pmc, pmc2);
-# Parrot_printf(interp,"%P\n", pmc3 );
-#
-# Parrot_PMC_set_integer_native(interp, pmc, 42);
-#
-# pmc3 = Parrot_PMC_cmp_pmc(interp, pmc, pmc2);
-# Parrot_printf(interp,"%P\n", pmc3 );
-#CODE
-#1
-#-1
-#0
-#Done!
-#OUTPUT
extend_vtable_output_is(<<'CODE', <<'OUTPUT', "Parrot_PMC_cmp_num" );
Parrot_PMC_set_integer_native(interp, pmc, 42);
Please sign in to comment.
Something went wrong with that request. Please try again.