From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Sep 2011 03:37:11 +0000 (-0700)
Subject: Minor correction to gv_fetchmeth.t
X-Git-Tag: accepted/trunk/20130322.191538~2492^2~110
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c856b47ad7997b27392f0249839bf163d2a422cf;p=platform%2Fupstream%2Fperl.git

Minor correction to gv_fetchmeth.t

It wasn’t doing the XS::APItest::gv_fetchmeth_type sanity check for
all three gv_fetchmeth* functions.
---

diff --git a/ext/XS-APItest/t/gv_fetchmeth.t b/ext/XS-APItest/t/gv_fetchmeth.t
index a69e919..bcce7c1 100644
--- a/ext/XS-APItest/t/gv_fetchmeth.t
+++ b/ext/XS-APItest/t/gv_fetchmeth.t
@@ -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 ) {