Clean sequences more strictly

[colorize.git] / test.pl

diff --git a/test.pl b/test.pl
index 373a4bcde96d74f4ab284470406e3c63a24d4ab4..056f818d7b4d6d27c6649e9572fb1eb025baa4e1 100755 (executable)
--- a/test.pl
+++ b/test.pl
@@ -7,7 +7,7 @@ use constant true => 1;
 use File::Temp qw(tempfile tmpnam);
 use Test::More;
 
-my $tests = 21;
+my $tests = 22;
 
 my %BUF_SIZE = (
    normal => 1024,
@@ -47,6 +47,21 @@ SKIP: {
     is_deeply([split /\n/, qx(cat $infile1 | $program none/none)], [split /\n/, $text], 'text read from stdin');
     is_deeply([split /\n/, qx($program none/none $infile1)],       [split /\n/, $text], 'text read from file');
 
+    {
+        my @fg_colors = (30..37, 39);
+        my @bg_colors = (40..47, 49);
+
+        my @bold_colors = map "1;$_", @fg_colors;
+
+        my @values = (@fg_colors, @bg_colors, @bold_colors, 0);
+
+        my $ok = true;
+        foreach my $value (@values) {
+            $ok &= qx(echo -n "\e[${value}m" | $program --clean) eq '';
+        }
+        ok($ok, 'clean color sequences');
+    }
+
     my $check_clean = sub
     {
         my ($type) = @_;