diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-09-22 20:47:39 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:00:59 -0700 |
| commit | dec33af257d8f60f007432421225ce566dd8a032 (patch) | |
| tree | 45bdb25fee964e095cd10aef560f96ac089e066c /ext/XS-APItest/t | |
| parent | 460e573096f6fb844640a265dce388c01d713bb7 (diff) | |
| download | perl-dec33af257d8f60f007432421225ce566dd8a032.tar.gz | |
Minor correction to gv_fetchmeth_autoload.t
It was not doing the sanity check for all three functions.
Diffstat (limited to 'ext/XS-APItest/t')
| -rw-r--r-- | ext/XS-APItest/t/gv_fetchmeth_autoload.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/gv_fetchmeth_autoload.t b/ext/XS-APItest/t/gv_fetchmeth_autoload.t index e27059f519..2ceda8b18b 100644 --- a/ext/XS-APItest/t/gv_fetchmeth_autoload.t +++ b/ext/XS-APItest/t/gv_fetchmeth_autoload.t @@ -13,7 +13,9 @@ my @types = map { 'gv_fetchmeth' . $_ . "_autoload" } '', qw( _sv _pv _pvn ); sub test { "Sanity check" } for my $type ( 0..3 ) { - is *{XS::APItest::gv_fetchmeth_autoload_type(\%::, "test", 1, $level, 0)}{CODE}->(), "Sanity check"; + is *{XS::APItest::gv_fetchmeth_autoload_type( + \%::, "test", $type, $level, 0 + )}{CODE}->(), "Sanity check"; } { |