Lines Matching full:should
47 is( $path, $files, 'termcap_path() should find default files' );
55 'termcap_path() should find file from $ENV{TERMCAP}' );
59 'termcap_path() should find file from $ENV{TERMPATH}' );
70 is( $t->Tpad(), undef, 'Tpad() should return undef with no arguments' );
71 is( $t->Tpad('x'), 'x', 'Tpad() should return strings verbatim with no match' );
72 is( $t->Tpad( '1*a', 2 ), 'apcpc', 'Tpad() should pad paddable strings' );
75 is( $t->Tpad( '1*a', 3, *OUT ), 'apcpc', 'Tpad() should perform pad math' );
76 is( $out->read(), 'apcpc', 'Tpad() should write to filehandle when passed' );
78 is( $t->Tputs('PADDING'), 2, 'Tputs() should return existing value' );
79 is( $t->Tputs('pc', 2), 'pc', 'Tputs() should delegate to Tpad()' );
81 is( $t->{pc}, 'pc', 'Tputs() should cache pc value when asked' );
82 is( $out->read(), 'pc', 'Tputs() should write to filehandle when passed' );
85 is( $@, '', 'Trequire() should finds existing cap' );
88 'Trequire() should croak with unsupported cap' );
99 like( $@, qr/TERM not set/, 'Tgetent() should croaks without TERM' );
100 like( $warn, qr/OSPEED was not set/, 'Tgetent() should set default OSPEED' );
112 is( $warn, '', 'Tgetent() should not work if OSPEED is provided' );
113 is( $vals->{PADDING}, 200, 'Tgetent() should set slow PADDING when needed' );
124 isnt( $@, '', 'Tgetent() should catch bad termcap file' );
130 # it won't find the termtype in this fake file, so it should croak
134 like( $@, qr/failed termcap/, 'Tgetent() should die with bad termcap' );
141 # like( $@, qr/failed termcap loop/, 'Tgetent() should catch deep recursion');
147 is( $t->{_f1}, 1, 'Tgetent() should set a single field correctly' );
148 is( $t->{_f2}, 1, 'Tgetent() should set another field on the same line' );
149 is( $t->{_no}, '', 'Tgetent() should set a blank field correctly' );
150 is( $t->{_k1}, 'v1', 'Tgetent() should set a key value pair correctly' );
151 like( $t->{_k2}, qr/v2\\\n2/, 'Tgetent() should set and translate pairs' );
153 # and it should have set these two fields
154 is( $t->{_pc}, "\0", 'should set _pc field correctly' );
155 is( $t->{_bc}, "\b", 'should set _bc field correctly' );
175 is( $t->Tgoto('test', '', 1, *OUT), 'a1', 'Tgoto() should handle %d code' );
176 is( $out->read(), 'a1', 'Tgoto() should print to filehandle if passed' );
179 like( $t->Tgoto('test', '', 1), qr/^a\x01/, 'Tgoto() should handle %.' );
182 'Tgoto() should handle %. and magic' );
185 'Tgoto() should handle %. and magic' );
189 like( $t->Tgoto('test', '', 1), qr/a\x01/, 'Tgoto() should handle %+' );
191 is( $t->Tgoto('test', '', 1), 'ab', 'Tgoto() should handle %+char' );
194 'Tgoto() should substr()s %+ if needed' );
197 is( $t->Tgoto('test', 1, ''), 'a1', 'Tgoto() should swaps params with %r' );
200 is( $t->Tgoto('test', '', 1), 'abc', 'Tgoto() should unpack args with %>' );
203 is( $t->Tgoto('test'), 'a001', 'Tgoto() should format with %2' );
206 is( $t->Tgoto('test'), 'a0001', 'Tgoto() should also formats with %3' );
209 is( $t->Tgoto('test', '', 1), 'a021', 'Tgoto() should increment args with %i' );
212 is( $t->Tgoto('test'), 'OOPS', 'Tgoto() should catch invalid args' );