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 Test::Harness qw(runtests);
  10 use Test::More;
  11
  12 my $tests = 24;
  13
  14 my %BUF_SIZE = (
  15    normal => 1024,
  16    short  => 10,
  17 );
  18 my $source = 'colorize.c';
  19 my $compiler = 'gcc';
  20 my $compiler_flags = '-ansi -pedantic -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 {
  34     my @test_files = glob('t/*.t');
  35     eval { runtests(@test_files) } or warn $@;
  36 }
  37
  38 plan tests => $tests;
  39
  40 SKIP: {
  41     skip "$source does not exist", $tests unless -e $source;
  42
  43     my $binary = tmpnam();
  44     skip 'compiling failed', $tests unless system("$compiler $compiler_flags -o $binary $source") == 0;
  45     unlink $binary;
  46
  47     my $program = tmpnam();
  48     skip 'compiling failed (normal)', $tests unless system("$compiler -DTEST -DBUF_SIZE=$BUF_SIZE{normal} -o $program $source") == 0;
  49
  50     is(system("$program --help >/dev/null 2>&1"),    0, 'exit value for help screen');
  51     is(system("$program --version >/dev/null 2>&1"), 0, 'exit value for version data');
  52
  53     is(qx(printf '%s\n' "hello world" | $program none/none), "hello world\n", 'line read from stdin with newline');
  54     is(qx(printf  %s    "hello world" | $program none/none), "hello world",   'line read from stdin without newline');
  55
  56     my $text = do { local $/; <DATA> };
  57
  58     my $infile1 = $write_to_tmpfile->($text);
  59
  60     is_deeply([split /\n/, qx(cat $infile1 | $program none/none)], [split /\n/, $text], 'text read from stdin');
  61     is_deeply([split /\n/, qx($program none/none $infile1)],       [split /\n/, $text], 'text read from file');
  62
  63     {
  64         my @fg_colors = (30..37, 39);
  65         my @bg_colors = (40..47, 49);
  66
  67         my @bold_colors = map "1;$_", @fg_colors;
  68
  69         my @values = (@fg_colors, @bg_colors, @bold_colors, 0);
  70
  71         my $ok = true;
  72         foreach my $value (@values) {
  73             $ok &= qx(printf %s "\e[${value}m" | $program --clean) eq '';
  74         }
  75         ok($ok, 'clean color sequences');
  76     }
  77
  78     my $check_clean = sub
  79     {
  80         my ($type) = @_;
  81
  82         my $switch = "--$type";
  83
  84         is(qx(printf %s "\e[35mhello\e[0m \e[36mworld\e[0m" | $program $switch),     'hello world', "$type colored words");
  85         is(qx(printf %s "hello world" | $program Magenta | $program $switch),        'hello world', "$type colored line");
  86         is_deeply([split /\n/, qx($program cyan $infile1 | $program $switch)], [split /\n/, $text], "$type colored text");
  87
  88         ok(qx(printf %s "\e[\e[33m" | $program $switch) eq "\e[", "$type with invalid sequence");
  89     };
  90
  91     $check_clean->($_) foreach qw(clean clean-all);
  92
  93     is(qx(printf %s "\e[4munderline\e[24m" | $program --clean-all), 'underline', 'clean-all color sequences');
  94
  95     my $check_clean_buf = sub
  96     {
  97         my ($program_buf, $type) = @_;
  98
  99         my $switch = "--$type";
 100
 101         # Check that line chunks are printed when cleaning text without sequences
 102         my $short_text = 'Linux dev 2.6.32-5-openvz-686 #1 SMP Sun Sep 23 11:40:07 UTC 2012 i686 GNU/Linux';
 103         is(qx(printf %s "$short_text" | $program_buf $switch), $short_text, "print ${\length $short_text} bytes (BUF_SIZE=$BUF_SIZE{short}, $type)");
 104     };
 105
 106     SKIP: {
 107         my $program_buf = tmpnam();
 108         skip 'compiling failed (short buffer)', 2 unless system("$compiler -DTEST -DBUF_SIZE=$BUF_SIZE{short} -o $program_buf $source") == 0;
 109         $check_clean_buf->($program_buf, $_) foreach qw(clean clean-all);
 110         unlink $program_buf;
 111     }
 112
 113     my $repeated = join "\n", ($text) x 7;
 114     my $infile2  = $write_to_tmpfile->($repeated);
 115
 116     is_deeply([split /\n/, qx(cat $infile2 | $program none/none)], [split /\n/, $repeated], "read ${\length $repeated} bytes (BUF_SIZE=$BUF_SIZE{normal})");
 117
 118     {
 119         my $colored_text = qx(printf '%s\n' "foo bar baz" | $program red);
 120         my $sequences = 0;
 121         $sequences++ while $colored_text =~ /\e\[\d+m/g;
 122         is($sequences, 2, 'count of sequences printed');
 123     }
 124
 125     is(qx(printf %s "hello\nworld\r\n" | $program none/none), "hello\nworld\r\n", 'stream mode');
 126
 127     is(system(qq(printf '%s\n' "hello world" | $program random --exclude-random=black >/dev/null 2>&1)), 0, 'switch exclude-random');
 128
 129     SKIP: {
 130         skip 'valgrind not found', 1 unless system('which valgrind >/dev/null 2>&1') == 0;
 131         like(qx(valgrind $program none/none $infile1 2>&1 >/dev/null), qr/no leaks are possible/, 'valgrind memleaks');
 132     }
 133
 134     {
 135         my $debug = tmpnam();
 136         is(system("$compiler -DDEBUG -o $debug $source"), 0, 'debugging build');
 137         unlink $debug if -e $debug;
 138     }
 139
 140     print <<'EOT';
 141 Colors
 142 ======
 143 EOT
 144     foreach my $color (qw(none black red green yellow blue magenta cyan white default random)) {
 145         system(qq(printf '%s\n' "$color" | $program $color));
 146         next if $color eq 'none';
 147         my $bold_color = ucfirst $color;
 148         system(qq(printf '%s\n' "$bold_color" | $program $bold_color));
 149     }
 150
 151     unlink $program;
 152 };
 153
 154 __DATA__
 155 Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vivamus urna mauris, ultricies faucibus placerat sit amet, rutrum eu
 156 nisi. Quisque dictum turpis non augue iaculis tincidunt nec a arcu. Donec euismod sapien ac dui blandit et adipiscing risus
 157 semper. Sed ornare ligula magna, vitae molestie eros. Praesent ligula est, euismod a luctus non, porttitor quis nunc. Fusce vel
 158 imperdiet turpis. Proin vitae mauris neque, fringilla vestibulum sapien. Pellentesque vitae nibh ipsum, non cursus diam. Cras
 159 vitae ligula mauris. Etiam tortor enim, varius nec adipiscing sed, lobortis et quam. Quisque convallis, diam sagittis adipiscing
 160 adipiscing, mi nibh fermentum sapien, et iaculis nisi sem sit amet odio. Cras a tortor at nibh tristique vehicula dapibus eu velit.
 161
 162 Vivamus porttitor purus eget leo suscipit sed posuere ligula gravida. In mollis velit quis leo pharetra gravida. Ut libero nisi,
 163 elementum sed varius tincidunt, hendrerit ut dui. Duis sit amet ante eget velit dictum ultrices. Nulla tempus, lacus eu dignissim
 164 feugiat, turpis mauris volutpat urna, quis commodo lorem augue id justo. Aenean consequat interdum sapien, sit amet
 165 imperdiet ante dapibus at. Pellentesque viverra sagittis tincidunt. Quisque rhoncus varius magna, sit amet rutrum arcu
 166 tincidunt eget. Etiam a lacus nec mauris interdum luctus sed in lacus. Ut pulvinar, augue at dictum blandit, nisl massa pretium
 167 ligula, in iaculis nulla nisi iaculis nunc.
 168
 169 Vivamus id eros nunc. Cras facilisis iaculis ante sit amet consequat. Nunc vehicula imperdiet sem, ac vehicula neque
 170 condimentum sed. Phasellus metus lacus, molestie ullamcorper imperdiet in, condimentum ut tellus. Nullam dignissim dui ut
 171 enim ullamcorper in tempus risus posuere. Ut volutpat enim eleifend diam convallis tristique. Proin porttitor augue sed sapien
 172 sagittis quis facilisis purus sodales. Integer auctor dolor rhoncus nisl consequat adipiscing. Aliquam eget ante sit amet quam
 173 porta eleifend.