From c856b47ad7997b27392f0249839bf163d2a422cf Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 22 Sep 2011 20:37:11 -0700 Subject: [PATCH] Minor correction to gv_fetchmeth.t MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 ) { -- 2.7.4