Term-ScreenColor-1.20/t/03-color-writers.t

18 my $teststring = 'zwerk';
109 		$scr->putcolored('bold',	$teststring)->puts("\n");
110 		$scr->putcolored('underline',	$teststring)->puts("\n");
111 		$scr->putcolored('reverse',	$teststring)->puts("\n");
114 		$scr->putcolored('reset',	$teststring)->puts("\n");
115 		$scr->putcolored('ansibold',	$teststring)->puts("\n");
116 		$scr->putcolored('italic',	$teststring)->puts("\n");
117 		$scr->putcolored('underscore',	$teststring)->puts("\n");
118 		$scr->putcolored('blink',	$teststring)->puts("\n");
119 		$scr->putcolored('inverse',	$teststring)->puts("\n");
120 		$scr->putcolored('concealed',	$teststring)->puts("\n");
122 		$scr->putcolored('noansibold',	$teststring)->puts("\n");
123 		$scr->putcolored('noitalic',	$teststring)->puts("\n");
124 		$scr->putcolored('nounderscore',$teststring)->puts("\n");
125 		$scr->putcolored('noblink',	$teststring)->puts("\n");
126 		$scr->putcolored('noinverse',	$teststring)->puts("\n");
127 		$scr->putcolored('noconcealed',	$teststring)->puts("\n");
168 		$scr->putcolored('black',	$teststring)->puts("\n");
169 		$scr->putcolored('red',		$teststring)->puts("\n");
170 		$scr->putcolored('green',	$teststring)->puts("\n");
171 		$scr->putcolored('yellow',	$teststring)->puts("\n");
172 		$scr->putcolored('blue',	$teststring)->puts("\n");
173 		$scr->putcolored('magenta',	$teststring)->puts("\n");
174 		$scr->putcolored('cyan',	$teststring)->puts("\n");
175 		$scr->putcolored('white',	$teststring)->puts("\n");
177 		$scr->putcolored('on_black',	$teststring)->puts("\n");
178 		$scr->putcolored('on_red',	$teststring)->puts("\n");
179 		$scr->putcolored('on_green',	$teststring)->puts("\n");
180 		$scr->putcolored('on_yellow',	$teststring)->puts("\n");
181 		$scr->putcolored('on_blue',	$teststring)->puts("\n");
182 		$scr->putcolored('on_magenta',	$teststring)->puts("\n");
183 		$scr->putcolored('on_cyan',	$teststring)->puts("\n");
184 		$scr->putcolored('on_white',	$teststring)->puts("\n");
199 		$scr->putcolored('33;41',           $teststring)->puts("\n");
200 		$scr->putcolored('ansibold yellow', $teststring)->puts("\n");
201 		$scr->putcolored('ansibold on red', $teststring)->puts("\n");
202 		$scr->putcolored('cyan on black',   $teststring)->puts("\n");
203 		$scr->putcolored('white on cyan',   $teststring)->puts("\n");
204 		$scr->putcolored('green on yellow', $teststring)->puts("\n");
205 		$scr->putcolored('magenta inverse', $teststring)->puts("\n");
206 		$scr->putcolored('on_red blink',    $teststring)->puts("\n");
207 		$scr->putcolored('yellow on blue',  $teststring)->puts("\n");
208 		$scr->putcolored('red underscore',  $teststring)->puts("\n");
217 		$scr->putcolored('bold yellow    ', $teststring)->puts("\n");
218 		$scr->putcolored('bold on red    ', $teststring)->puts("\n");
219 		$scr->putcolored('magenta reverse', $teststring)->puts("\n");
220 		$scr->putcolored('red underline  ', $teststring)->puts("\n");
228 		$scr->putcolored('normal on green', $teststring)->puts("\n");
283 		"apply simple termcap: bold                      (colorizable=no)", "\e[1m$teststring\e[0m",
284 		"apply simple termcap: underline                 (colorizable=no)", "\e[4m$teststring\e[0m",
285 		"apply simple termcap: reverse                   (colorizable=no)", "\e[7m$teststring\e[0m",
287 		"apply simple ansi: reset                        (colorizable=no)", $teststring,
288 		"apply simple ansi: ansibold                     (colorizable=no)", $teststring,
289 		"apply simple ansi: italic                       (colorizable=no)", $teststring,
290 		"apply simple ansi: underscore                   (colorizable=no)", $teststring,
291 		"apply simple ansi: blink                        (colorizable=no)", $teststring,
292 		"apply simple ansi: inverse                      (colorizable=no)", $teststring,
293 		"apply simple ansi: concealed                    (colorizable=no)", $teststring,
295 		"apply simple ansi: noansibold                   (colorizable=no)", $teststring,
296 		"apply simple ansi: noitalic                     (colorizable=no)", $teststring,
297 		"apply simple ansi: nounderscore                 (colorizable=no)", $teststring,
298 		"apply simple ansi: noblink                      (colorizable=no)", $teststring,
299 		"apply simple ansi: noinverse                    (colorizable=no)", $teststring,
300 		"apply simple ansi: noconcealed                  (colorizable=no)", $teststring,
338 		"apply simple color: black                       (colorizable=no)", $teststring,
339 		"apply simple color: red                         (colorizable=no)", $teststring,
340 		"apply simple color: green                       (colorizable=no)", $teststring,
341 		"apply simple color: yellow                      (colorizable=no)", $teststring,
342 		"apply simple color: blue                        (colorizable=no)", $teststring,
343 		"apply simple color: magenta                     (colorizable=no)", $teststring,
344 		"apply simple color: cyan                        (colorizable=no)", $teststring,
345 		"apply simple color: white                       (colorizable=no)", $teststring,
347 		"apply simple color: on_black                    (colorizable=no)", $teststring,
348 		"apply simple color: on_red                      (colorizable=no)", $teststring,
349 		"apply simple color: on_green                    (colorizable=no)", $teststring,
350 		"apply simple color: on_yellow                   (colorizable=no)", $teststring,
351 		"apply simple color: on_blue                     (colorizable=no)", $teststring,
352 		"apply simple color: on_magenta                  (colorizable=no)", $teststring,
353 		"apply simple color: on_cyan                     (colorizable=no)", $teststring,
354 		"apply simple color: on_white                    (colorizable=no)", $teststring,
367 		"apply complex ansi: 33;41                       (colorizable=no)", $teststring,
368 		"apply complex ansi: ansibold yellow             (colorizable=no)", $teststring,
369 		"apply complex ansi: ansibold on red             (colorizable=no)", $teststring,
370 		"apply complex ansi: cyan on black               (colorizable=no)", $teststring,
371 		"apply complex ansi: white on cyan               (colorizable=no)", $teststring,
372 		"apply complex ansi: green on yellow             (colorizable=no)", $teststring,
373 		"apply complex ansi: magenta inverse             (colorizable=no)", $teststring,
374 		"apply complex ansi: on_red blink                (colorizable=no)", $teststring,
375 		"apply complex ansi: yellow on blue              (colorizable=no)", $teststring,
376 		"apply complex ansi: red underscore              (colorizable=no)", $teststring,
383 		"apply termcap/ansi combination: bold yellow     (colorizable=no)", "\e[1m$teststring\e[0m",
384 		"apply termcap/ansi combination: bold on red     (colorizable=no)", "\e[1m$teststring\e[0m",
385 		"apply termcap/ansi combination: magenta reverse (colorizable=no)", "\e[7m$teststring\e[0m",
386 		"apply termcap/ansi combination: red underline   (colorizable=no)", "\e[4m$teststring\e[0m",
427 		"apply simple termcap: bold                      (colorizable=yes)", "\e[1m$teststring\e[0m",
428 		"apply simple termcap: underline                 (colorizable=yes)", "\e[4m$teststring\e[0m",
429 		"apply simple termcap: reverse                   (colorizable=yes)", "\e[7m$teststring\e[0m",
431 		"apply simple ansi: reset                        (colorizable=yes)", "\e[0m$teststring\e[0m",
432 		"apply simple ansi: ansibold                     (colorizable=yes)", "\e[1m$teststring\e[0m",
433 		"apply simple ansi: italic                       (colorizable=yes)", "\e[3m$teststring\e[0m",
434 		"apply simple ansi: underscore                   (colorizable=yes)", "\e[4m$teststring\e[0m",
435 		"apply simple ansi: blink                        (colorizable=yes)", "\e[5m$teststring\e[0m",
436 		"apply simple ansi: inverse                      (colorizable=yes)", "\e[7m$teststring\e[0m",
437 		"apply simple ansi: concealed                    (colorizable=yes)", "\e[8m$teststring\e[0m",
439 		"apply simple ansi: noansibold                   (colorizable=yes)", "\e[22m$teststring\e[0m",
440 		"apply simple ansi: noitalic                     (colorizable=yes)", "\e[23m$teststring\e[0m",
441 		"apply simple ansi: nounderscore                 (colorizable=yes)", "\e[24m$teststring\e[0m",
442 		"apply simple ansi: noblink                      (colorizable=yes)", "\e[25m$teststring\e[0m",
443 		"apply simple ansi: noinverse                    (colorizable=yes)", "\e[27m$teststring\e[0m",
444 		"apply simple ansi: noconcealed                  (colorizable=yes)", "\e[28m$teststring\e[0m",
482 		"apply simple color: black                       (colorizable=yes)", "\e[30m$teststring\e[0m",
483 		"apply simple color: red                         (colorizable=yes)", "\e[31m$teststring\e[0m",
484 		"apply simple color: green                       (colorizable=yes)", "\e[32m$teststring\e[0m",
485 		"apply simple color: yellow                      (colorizable=yes)", "\e[33m$teststring\e[0m",
486 		"apply simple color: blue                        (colorizable=yes)", "\e[34m$teststring\e[0m",
487 		"apply simple color: magenta                     (colorizable=yes)", "\e[35m$teststring\e[0m",
488 		"apply simple color: cyan                        (colorizable=yes)", "\e[36m$teststring\e[0m",
489 		"apply simple color: white                       (colorizable=yes)", "\e[37m$teststring\e[0m",
491 		"apply simple color: on_black                    (colorizable=yes)", "\e[40m$teststring\e[0m",
492 		"apply simple color: on_red                      (colorizable=yes)", "\e[41m$teststring\e[0m",
493 		"apply simple color: on_green                    (colorizable=yes)", "\e[42m$teststring\e[0m",
494 		"apply simple color: on_yellow                   (colorizable=yes)", "\e[43m$teststring\e[0m",
495 		"apply simple color: on_blue                     (colorizable=yes)", "\e[44m$teststring\e[0m",
496 		"apply simple color: on_magenta                  (colorizable=yes)", "\e[45m$teststring\e[0m",
497 		"apply simple color: on_cyan                     (colorizable=yes)", "\e[46m$teststring\e[0m",
498 		"apply simple color: on_white                    (colorizable=yes)", "\e[47m$teststring\e[0m",
511 		"apply complex ansi: 33;41                       (colorizable=yes)", "\e[33;41m$teststring\e[0m",
512 		"apply complex ansi: ansibold yellow             (colorizable=yes)", "\e[1;33m$teststring\e[0m",
513 		"apply complex ansi: ansibold on red             (colorizable=yes)", "\e[1;41m$teststring\e[0m",
514 		"apply complex ansi: cyan on black               (colorizable=yes)", "\e[36;40m$teststring\e[0m",
515 		"apply complex ansi: white on cyan               (colorizable=yes)", "\e[37;46m$teststring\e[0m",
516 		"apply complex ansi: green on yellow             (colorizable=yes)", "\e[32;43m$teststring\e[0m",
517 		"apply complex ansi: magenta inverse             (colorizable=yes)", "\e[35;7m$teststring\e[0m",
518 		"apply complex ansi: on_red blink                (colorizable=yes)", "\e[41;5m$teststring\e[0m",
519 		"apply complex ansi: yellow on blue              (colorizable=yes)", "\e[33;44m$teststring\e[0m",
520 		"apply complex ansi: red underscore              (colorizable=yes)", "\e[31;4m$teststring\e[0m",
527 		"apply termcap/ansi combination: bold yellow     (colorizable=yes)", "\e[1;33m$teststring\e[0m",
528 		"apply termcap/ansi combination: bold on red     (colorizable=yes)", "\e[1;41m$teststring\e[0m",
529 		"apply termcap/ansi combination: magenta reverse (colorizable=yes)", "\e[35;7m$teststring\e[0m",
530 		"apply termcap/ansi combination: red underline   (colorizable=yes)", "\e[31;4m$teststring\e[0m",
546 	$seq =~ /^(.*)$teststring/;
557 	ok($seq eq "\e[0;42m$teststring\e[0m\n",