Fix using color from config with hyphen

[colorize.git] / t / conf / color.t

diff --git a/t/conf/color.t b/t/conf/color.t
index 3adfd5b60ebacab9c774786d1506337869a402f0..fc3ab71fbed023e6d6c5a2f9817249d7c0d05dc6 100755 (executable)
--- a/t/conf/color.t
+++ b/t/conf/color.t
@@ -8,7 +8,7 @@ use Colorize::Common qw(:defaults $write_to_tmpfile);
 use File::Temp qw(tmpnam);
 use Test::More;
 
-my $tests = 3;
+my $tests = 4;
 
 plan tests => $tests;
 
@@ -24,7 +24,8 @@ SKIP: {
     print {$fh} "color=green\n";
     close($fh);
 
-    is(qx($program $infile), "\e[32mfoo\e[0m", 'color from config');
+    is(qx(printf %s "foo" | $program -), "\e[32mfoo\e[0m", 'color from config (stdin)');
+    is(qx($program $infile), "\e[32mfoo\e[0m", 'color from config (file)');
     is(qx(printf %s "foo" | $program none/none), 'foo', 'read from stdin');
     is(qx($program none/none $infile), 'foo', 'read from file');