diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-09-22 20:37:11 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:00:57 -0700 |
| commit | c856b47ad7997b27392f0249839bf163d2a422cf (patch) | |
| tree | 1ee2e13276857302f391bfd31c9210e7bb3a44c4 /ext/XS-APItest/t | |
| parent | e69194836739c81076634d7782cecab9026c4aca (diff) | |
| download | perl-c856b47ad7997b27392f0249839bf163d2a422cf.tar.gz | |
Minor correction to gv_fetchmeth.t
It wasn’t doing the XS::APItest::gv_fetchmeth_type sanity check for
all three gv_fetchmeth* functions.
Diffstat (limited to 'ext/XS-APItest/t')
| -rw-r--r-- | ext/XS-APItest/t/gv_fetchmeth.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/gv_fetchmeth.t b/ext/XS-APItest/t/gv_fetchmeth.t index a69e91972f..bcce7c1271 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 ) { |