X-Git-Url: http://git.refcnt.org/?p=colorize.git;a=blobdiff_plain;f=test.pl;h=ee514727c273fd6d78eaa44c64bbc856ea27e0c7;hp=729884fe0bf57dfc400031c4f6d20118c74636c8;hb=b2b1fa65b9f09ee878e2ad48c5396f6e9460f673;hpb=0ffd3036fe3f53cf5e6d25f128c075163b305f68 diff --git a/test.pl b/test.pl index 729884f..ee51472 100755 --- a/test.pl +++ b/test.pl @@ -128,8 +128,8 @@ SKIP: { my $switch = "--$type"; - is(qx(printf %s "\e[35mhello\e[0m \e[36mworld\e[0m" | $program $switch), 'hello world', "$type colored words"); - is(qx(printf %s "hello world" | $program Magenta | $program $switch), 'hello world', "$type colored line"); + is(qx(printf %s "\e[35mhello\e[0m \e[36mworld\e[0m" | $program $switch), 'hello world', "$type colored words"); + is(qx(printf %s "hello world" | $program Magenta | $program $switch), 'hello world', "$type colored line"); is_deeply([split /\n/, qx($program cyan $infile1 | $program $switch)], [split /\n/, $text], "$type colored text"); ok(qx(printf %s "\e[\e[33m" | $program $switch) eq "\e[", "$type with invalid sequence");