Lines Matching full:should

12 is( ref(ExtUtils::Packlist::mkfh()), 'GLOB', 'mkfh() should return a FH' );
17 is( ref tied %$pl, 'ExtUtils::Packlist', 'obj should be tied underneath' );
21 is( ref($pl), 'tieclass', 'TIEHASH() should bless into class' );
22 is( $pl->{packfile}, 'packfile', 'TIEHASH() should store packfile name' );
26 is( $pl->{data}{key}, 'value', 'STORE() should stuff stuff in data member' );
50 		'FIRSTKEY() should be consistent' );
53 		'and NEXTKEY() should also be consistent' );
57 ok( ExtUtils::Packlist::EXISTS($pl, 'bar'), 'EXISTS() should find keys' );
61 ok( !(exists $pl->{data}{bar}), 'DELETE() should delete cleanly' );
65 is( keys %{ $pl->{data} }, 0, 'CLEAR() should wipe out data' );
74 like( $@, qr/No packlist filename/, 'write() should croak without packfile' );
92 	    like( $@, qr/Can't open file/, 'write() should croak on open failure' );
108 	is( $@, '', 'write() should normally succeed' );
109 	is( $pl->{packfile}, 'eplist', 'write() should set packfile name' );
116 like( $@, qr/^No packlist filename/, 'read() should croak without packfile' );
120 like( $@, qr/^Can't open file/, 'read() should croak with bad packfile name' );
129 	like( $file, qr/single\n/, 'key with value should be available' );
130 	like( $file, qr!/\./abc\n!, 'key with no value should also be present' );
131 	like( $file, qr/hash.+baz=bup/, 'key with hash value should be present' );
132 	like( $file, qr/hash.+foo=bar/, 'second embedded hash value should appear');
136 	is( $@, '', 'read() should normally succeed' );
137 	is( $pl->{data}{single}, undef, 'single keys should have undef value' );
138 	is( ref($pl->{data}{hash}), 'HASH', 'multivalue keys should become hashes');
140 	is( $pl->{data}{hash}{foo}, 'bar', 'hash values should be set' );
141 	ok( exists $pl->{data}{'/abc'}, 'read() should resolve /./ to / in keys' );
150 		'validate() should find missing files' );
153 		'validate() should remove missing files when prompted' );
160 # packlist_file, $pl should be set from write test
162 	'packlist_file() should fetch packlist from passed hash' );
164 	'packlist_file() should fetch packlist from ExtUtils::Packlist object' );