projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b28d848
)
EU::ParseXS: Use OO version of ExtUtils::ParseXS in test
author
Steffen Mueller
<smueller@cpan.org>
Wed, 22 May 2013 20:04:51 +0000
(22:04 +0200)
committer
Steffen Mueller
<smueller@cpan.org>
Tue, 25 Jun 2013 06:00:26 +0000
(08:00 +0200)
Sort of. Breaking encapsulation, but that's better than not even having
a blessed object at all.
dist/ExtUtils-ParseXS/t/104-map_type.t
patch
|
blob
|
history
diff --git
a/dist/ExtUtils-ParseXS/t/104-map_type.t
b/dist/ExtUtils-ParseXS/t/104-map_type.t
index
01e784e
..
aea5846
100644
(file)
--- a/
dist/ExtUtils-ParseXS/t/104-map_type.t
+++ b/
dist/ExtUtils-ParseXS/t/104-map_type.t
@@
-3,6
+3,7
@@
use strict;
use warnings;
use Test::More tests => 7;
use lib qw( lib );
+use ExtUtils::ParseXS;
use ExtUtils::ParseXS::Utilities qw(
map_type
);
@@
-10,6
+11,8
@@
use ExtUtils::ParseXS::Utilities qw(
my ($self, $type, $varname);
my ($result, $expected);
+$self = ExtUtils::ParseXS->new;
+
$type = 'struct DATA *';
$varname = 'RETVAL';
$self->{hiertype} = 0;