test.pl

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