This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e691948
)
Minor correction to gv_fetchmeth.t
author
Father Chrysostomos
<sprout@cpan.org>
Fri, 23 Sep 2011 03:37:11 +0000
(20:37 -0700)
committer
Father 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
patch
|
blob
|
blame
|
history
diff --git
a/ext/XS-APItest/t/gv_fetchmeth.t
b/ext/XS-APItest/t/gv_fetchmeth.t
index
a69e919
..
bcce7c1
100644
(file)
--- 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 ) {