Minor correction to gv_fetchmeth.t
authorFather Chrysostomos <sprout@cpan.org>
Fri, 23 Sep 2011 03:37:11 +0000 (20:37 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:00:57 +0000 (13:00 -0700)
It wasn’t doing the XS::APItest::gv_fetchmeth_type sanity check for
all three gv_fetchmeth* functions.

ext/XS-APItest/t/gv_fetchmeth.t

index a69e919..bcce7c1 100644 (file)
@@ -13,7 +13,9 @@ my @types = map { 'gv_fetchmeth' . $_ } '', qw( _sv _pv _pvn );
 sub test { "Sanity check" }
 
 for my $type ( 0..3 ) {
-    is *{XS::APItest::gv_fetchmeth_type(\%::, "test", 1, $level, 0)}{CODE}->(), "Sanity check";
+    is *{
+         XS::APItest::gv_fetchmeth_type(\%::, "test", $type, $level, 0)
+        }{CODE}->(), "Sanity check";
 }
 
 for my $type ( 0..3 ) {