EU::ParseXS: Use OO version of ExtUtils::ParseXS in test
authorSteffen Mueller <smueller@cpan.org>
Wed, 22 May 2013 20:04:51 +0000 (22:04 +0200)
committerSteffen 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

index 01e784e..aea5846 100644 (file)
@@ -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;