aboutsummaryrefslogtreecommitdiffstats
path: root/test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'test.pl')
-rwxr-xr-xtest.pl4
1 files changed, 2 insertions, 2 deletions
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");