Lines Matching full:extutils

10 BEGIN { use_ok( 'ExtUtils::Packlist' ); }
12 is( ref(ExtUtils::Packlist::mkfh()), 'GLOB', 'mkfh() should return a FH' );
15 my $pl = ExtUtils::Packlist->new();
16 isa_ok( $pl, 'ExtUtils::Packlist' );
17 is( ref tied %$pl, 'ExtUtils::Packlist', 'obj should be tied underneath' );
20 $pl = ExtUtils::Packlist::TIEHASH( 'tieclass', 'packfile' );
25 ExtUtils::Packlist::STORE($pl, 'key', 'value');
30 is( ExtUtils::Packlist::FETCH($pl, 'foo'), 'bar', 'check FETCH()' );
49 	is( ExtUtils::Packlist::FIRSTKEY($pl), $first,
52 	is( ExtUtils::Packlist::NEXTKEY($pl), $second,
57 ok( ExtUtils::Packlist::EXISTS($pl, 'bar'), 'EXISTS() should find keys' );
60 ExtUtils::Packlist::DELETE($pl, 'bar');
64 ExtUtils::Packlist::CLEAR($pl);
69 can_ok( 'ExtUtils::Packlist', 'DESTROY' );
73 eval { ExtUtils::Packlist::write({}) };
76 eval { ExtUtils::Packlist::write({}, 'eplist') };
91 	    eval { ExtUtils::Packlist::write({}, 'eplist') };
107 	eval { ExtUtils::Packlist::write($pl, 'eplist') };
115 eval { ExtUtils::Packlist::read({}) };
119 eval { ExtUtils::Packlist::read({}, 'abadfilename') };
135 	eval{ ExtUtils::Packlist::read($pl, 'eplist') };
149 	is( ExtUtils::Packlist::validate($pl), 1,
151 	ExtUtils::Packlist::validate($pl, 1);
156 	$pl = ExtUtils::Packlist->new('eplist');
161 is( ExtUtils::Packlist::packlist_file({ packfile => 'pl' }), 'pl',
163 is( ExtUtils::Packlist::packlist_file($pl), 'eplist',
164 	'packlist_file() should fetch packlist from ExtUtils::Packlist object' );
171 	ExtUtils::Packlist::mkfh();