test.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use constant true  => 1;
   6 use constant false => 0;
   7
   8 use File::Temp qw(tempfile tmpnam);
   9 use IPC::Open3 qw(open3);
  10 use Symbol qw(gensym);
  11 use Test::More;
  12
  13 my $tests = 23;
  14
  15 my %BUF_SIZE = (
  16    normal => 1024,
  17    short  => 10,
  18 );
  19 my $source = 'colorize.c';
  20 my $warning_flags = '-Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter';
  21
  22 my $write_to_tmpfile = sub
  23 {
  24     my ($content) = @_;
  25
  26     my ($fh, $tmpfile) = tempfile(UNLINK => true);
  27     print {$fh} $content;
  28     close($fh);
  29
  30     return $tmpfile;
  31 };
  32
  33 plan tests => $tests;
  34
  35 SKIP: {
  36     skip "$source does not exist", $tests unless -e $source;
  37
  38     my $program = tmpnam();
  39     skip 'compiling failed (normal)', $tests unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{normal} $warning_flags -o $program $source") == 0;
  40
  41     is(system("$program --help >/dev/null 2>&1"), 0, 'exit value for help screen');
  42
  43     my $run_program_fail = sub
  44     {
  45         my ($program, $args, $message) = @_;
  46
  47         my @args = split /\s+/, $args;
  48
  49         my $err = gensym;
  50
  51         my $pid = open3(gensym, gensym, $err, $program, @args);
  52         waitpid($pid, 0);
  53
  54         my $output = do { local $/; <$err> };
  55
  56         return ($? >> 8 == 1 && $output =~ /$message/) ? true : false;
  57     };
  58
  59     {
  60         my $ok = true;
  61
  62         my $file = $write_to_tmpfile->('abc');
  63
  64         $ok &= $run_program_fail->($program, '--exclude-random=random', 'must be provided a color');
  65         $ok &= $run_program_fail->($program, '--clean --clean-all',     'mutually exclusive');
  66         $ok &= $run_program_fail->($program, '--clean file1 file2',     'more than one file');
  67         $ok &= $run_program_fail->($program, '--clean-all file1 file2', 'more than one file');
  68         $ok &= $run_program_fail->($program, '- file',                  'hyphen cannot be used as color string');
  69         $ok &= $run_program_fail->($program, '-',                       'hyphen must be preceeded by color string');
  70         $ok &= $run_program_fail->($program, "$file file",              'file cannot be used as color string');
  71         $ok &= $run_program_fail->($program, "$file",                   'file must be preceeded by color string');
  72         $ok &= $run_program_fail->($program, '/black',                  'foreground color missing');
  73         $ok &= $run_program_fail->($program, 'white/',                  'background color missing');
  74         $ok &= $run_program_fail->($program, 'white/black/yellow',      'one color pair allowed only');
  75         $ok &= $run_program_fail->($program, 'y3llow',                  'cannot be made of non-alphabetic characters');
  76         $ok &= $run_program_fail->($program, 'yEllow',                  'cannot be in mixed lower/upper case');
  77         $ok &= $run_program_fail->($program, 'None',                    'cannot be bold');
  78         $ok &= $run_program_fail->($program, 'white/Black',             'cannot be bold');
  79
  80         foreach my $color_pair (qw(random/none random/default none/random default/random)) {
  81             $ok &= $run_program_fail->($program, $color_pair, 'cannot be combined with');
  82         }
  83
  84         ok($ok, 'exit messages/values for failures');
  85     }
  86
  87     is(qx(echo    "hello world" | $program none/none), "hello world\n", 'line read from stdin with newline');
  88     is(qx(echo -n "hello world" | $program none/none), "hello world",   'line read from stdin without newline');
  89
  90     my $text = do { local $/; <DATA> };
  91
  92     my $infile1 = $write_to_tmpfile->($text);
  93
  94     is_deeply([split /\n/, qx(cat $infile1 | $program none/none)], [split /\n/, $text], 'text read from stdin');
  95     is_deeply([split /\n/, qx($program none/none $infile1)],       [split /\n/, $text], 'text read from file');
  96
  97     {
  98         my @fg_colors = (30..37, 39);
  99         my @bg_colors = (40..47, 49);
 100
 101         my @bold_colors = map "1;$_", @fg_colors;
 102
 103         my @values = (@fg_colors, @bg_colors, @bold_colors, 0);
 104
 105         my $ok = true;
 106         foreach my $value (@values) {
 107             $ok &= qx(echo -n "\e[${value}m" | $program --clean) eq '';
 108         }
 109         ok($ok, 'clean color sequences');
 110     }
 111
 112     my $check_clean = sub
 113     {
 114         my ($type) = @_;
 115
 116         my $switch = "--$type";
 117
 118         is(qx(echo -n "\e[35mhello\e[0m \e[36mworld\e[0m" | $program $switch),       'hello world', "$type colored words");
 119         is(qx(echo -n "hello world" | $program Magenta | $program $switch),          'hello world', "$type colored line");
 120         is_deeply([split /\n/, qx($program cyan $infile1 | $program $switch)], [split /\n/, $text], "$type colored text");
 121
 122         ok(qx(echo -n "\e[\e[33m" | $program $switch) eq "\e[", "$type with invalid sequence");
 123     };
 124
 125     $check_clean->($_) foreach qw(clean clean-all);
 126
 127     is(qx(echo -n "\e[4munderline\e[24m" | $program --clean-all), 'underline', 'clean-all color sequences');
 128
 129     my $check_clean_buf = sub
 130     {
 131         my ($program_buf, $type) = @_;
 132
 133         my $switch = "--$type";
 134
 135         # Check that line chunks are merged when cleaning text
 136         my $short_text = 'Linux dev 2.6.32-5-openvz-686 #1 SMP Sun Sep 23 11:40:07 UTC 2012 i686 GNU/Linux';
 137         is(qx(echo -n "$short_text" | $program_buf $switch), $short_text, "merge ${\length $short_text} bytes (BUF_SIZE=$BUF_SIZE{short}, $type)");
 138     };
 139
 140     SKIP: {
 141         my $program_buf = tmpnam();
 142         skip 'compiling failed (short buffer)', 2 unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{short} $warning_flags -o $program_buf $source") == 0;
 143         $check_clean_buf->($program_buf, $_) foreach qw(clean clean-all);
 144         unlink $program_buf;
 145     }
 146
 147     my $repeated = join "\n", ($text) x 7;
 148     my $infile2  = $write_to_tmpfile->($repeated);
 149
 150     is_deeply([split /\n/, qx(cat $infile2 | $program none/none)], [split /\n/, $repeated], "read ${\length $repeated} bytes (BUF_SIZE=$BUF_SIZE{normal})");
 151
 152     {
 153         my $colored_text = qx(echo "foo bar baz" | $program red);
 154         my $sequences = 0;
 155         $sequences++ while $colored_text =~ /\e\[\d+m/g;
 156         is($sequences, 2, 'count of sequences printed');
 157     }
 158
 159     is(qx(echo -n "hello\nworld\r\n" | $program none/none), "hello\nworld\r\n", 'stream mode');
 160
 161     is(system("echo \"hello world\" | $program random --exclude-random=black >/dev/null 2>&1"), 0, 'switch exclude-random');
 162
 163     SKIP: {
 164         skip 'valgrind not found', 1 unless system('which valgrind >/dev/null 2>&1') == 0;
 165         like(qx(valgrind $program none/none $infile1 2>&1 >/dev/null), qr/no leaks are possible/, 'valgrind memleaks');
 166     }
 167
 168     print <<'EOT';
 169 Colors
 170 ======
 171 EOT
 172     foreach my $color (qw(none black red green yellow blue cyan magenta white default random)) {
 173         system("echo $color | $program $color");
 174         next if $color eq 'none';
 175         my $bold_color = ucfirst $color;
 176         system("echo $bold_color | $program $bold_color");
 177     }
 178
 179     unlink $program;
 180 };
 181
 182 __DATA__
 183 Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vivamus urna mauris, ultricies faucibus placerat sit amet, rutrum eu
 184 nisi. Quisque dictum turpis non augue iaculis tincidunt nec a arcu. Donec euismod sapien ac dui blandit et adipiscing risus
 185 semper. Sed ornare ligula magna, vitae molestie eros. Praesent ligula est, euismod a luctus non, porttitor quis nunc. Fusce vel
 186 imperdiet turpis. Proin vitae mauris neque, fringilla vestibulum sapien. Pellentesque vitae nibh ipsum, non cursus diam. Cras
 187 vitae ligula mauris. Etiam tortor enim, varius nec adipiscing sed, lobortis et quam. Quisque convallis, diam sagittis adipiscing
 188 adipiscing, mi nibh fermentum sapien, et iaculis nisi sem sit amet odio. Cras a tortor at nibh tristique vehicula dapibus eu velit.
 189
 190 Vivamus porttitor purus eget leo suscipit sed posuere ligula gravida. In mollis velit quis leo pharetra gravida. Ut libero nisi,
 191 elementum sed varius tincidunt, hendrerit ut dui. Duis sit amet ante eget velit dictum ultrices. Nulla tempus, lacus eu dignissim
 192 feugiat, turpis mauris volutpat urna, quis commodo lorem augue id justo. Aenean consequat interdum sapien, sit amet
 193 imperdiet ante dapibus at. Pellentesque viverra sagittis tincidunt. Quisque rhoncus varius magna, sit amet rutrum arcu
 194 tincidunt eget. Etiam a lacus nec mauris interdum luctus sed in lacus. Ut pulvinar, augue at dictum blandit, nisl massa pretium
 195 ligula, in iaculis nulla nisi iaculis nunc.
 196
 197 Vivamus id eros nunc. Cras facilisis iaculis ante sit amet consequat. Nunc vehicula imperdiet sem, ac vehicula neque
 198 condimentum sed. Phasellus metus lacus, molestie ullamcorper imperdiet in, condimentum ut tellus. Nullam dignissim dui ut
 199 enim ullamcorper in tempus risus posuere. Ut volutpat enim eleifend diam convallis tristique. Proin porttitor augue sed sapien
 200 sagittis quis facilisis purus sodales. Integer auctor dolor rhoncus nisl consequat adipiscing. Aliquam eget ante sit amet quam
 201 porta eleifend.