test.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use constant true => 1;
   6
   7 use File::Temp qw(tempfile tmpnam);
   8 use Test::More;
   9
  10 my $tests = 15;
  11
  12 my %BUF_SIZE = (
  13    normal => 1024,
  14    short  => 10,
  15 );
  16 my $source = 'colorize.c';
  17 my $warning_flags = '-Wall -Wextra -Wformat -Wswitch-default -Wuninitialized -Wunused -Wno-unused-function -Wno-unused-parameter';
  18
  19 my $write_to_tmpfile = sub
  20 {
  21     my ($content) = @_;
  22
  23     my ($fh, $tmpfile) = tempfile(UNLINK => true);
  24     print {$fh} $content;
  25     close($fh);
  26
  27     return $tmpfile;
  28 };
  29
  30 plan tests => $tests;
  31
  32 SKIP: {
  33     skip "$source does not exist", $tests unless -e $source;
  34
  35     my $program = tmpnam();
  36     skip 'compiling failed (normal)', $tests unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{normal} $warning_flags -o $program $source") == 0;
  37
  38     is(system("$program --help >/dev/null 2>&1"), 0, 'exit value for help screen');
  39
  40     is(qx(echo    "hello world" | $program none/none), "hello world\n", 'line read from stdin with newline');
  41     is(qx(echo -n "hello world" | $program none/none), "hello world",   'line read from stdin without newline');
  42
  43     my $text = do { local $/; <DATA> };
  44
  45     my $infile1 = $write_to_tmpfile->($text);
  46
  47     is_deeply([split /\n/, qx(cat $infile1 | $program none/none)], [split /\n/, $text], 'text read from stdin');
  48     is_deeply([split /\n/, qx($program none/none $infile1)],       [split /\n/, $text], 'text read from file');
  49
  50     is(qx(echo -n "\e[35mhello\e[0m \e[36mworld\e[0m" | $program --clean),       'hello world', 'clean colored words');
  51     is(qx(echo -n "hello world" | $program Magenta | $program --clean),          'hello world', 'clean colored line');
  52     is_deeply([split /\n/, qx($program cyan $infile1 | $program --clean)], [split /\n/, $text], 'clean colored text');
  53
  54     ok(qx(echo -n "\e[\e[33m" | $program --clean) eq "\e[", 'clean with invalid sequence');
  55
  56     SKIP: {
  57         my $program_buf = tmpnam();
  58         skip 'compiling failed (short buffer)', 1 unless system("gcc -DTEST -DBUF_SIZE=$BUF_SIZE{short} $warning_flags -o $program_buf $source") == 0;
  59
  60         # Check that line chunks are merged when cleaning text
  61         my $short_text = 'Linux dev 2.6.32-5-openvz-686 #1 SMP Sun Sep 23 11:40:07 UTC 2012 i686 GNU/Linux';
  62         is(qx(echo -n "$short_text" | $program_buf --clean), $short_text, "merge ${\length $short_text} bytes (BUF_SIZE=$BUF_SIZE{short})");
  63
  64         unlink $program_buf;
  65     }
  66
  67     my $repeated = join "\n", ($text) x 7;
  68     my $infile2  = $write_to_tmpfile->($repeated);
  69
  70     is_deeply([split /\n/, qx(cat $infile2 | $program none/none)], [split /\n/, $repeated], "read ${\length $repeated} bytes (BUF_SIZE=$BUF_SIZE{normal})");
  71
  72     my $colored_text = qx(echo "foo bar baz" | $program red);
  73     my $sequences = 0;
  74     $sequences++ while $colored_text =~ /\e\[\d+m/g;
  75     is($sequences, 2, 'count of sequences printed');
  76
  77     is(qx(echo -n "hello\nworld\r\n" | $program none/none), "hello\nworld\r\n", 'stream mode');
  78
  79     is(system("echo \"hello world\" | $program random --exclude-random=black >/dev/null 2>&1"), 0, 'switch exclude-random');
  80
  81     SKIP: {
  82         skip 'valgrind not found', 1 unless system('which valgrind >/dev/null 2>&1') == 0;
  83         like(qx(valgrind $program none/none $infile1 2>&1 >/dev/null), qr/no leaks are possible/, 'valgrind memleaks');
  84     }
  85
  86     print <<'EOT';
  87 Colors
  88 ======
  89 EOT
  90     foreach my $color (qw(none black red green yellow blue cyan magenta white default random)) {
  91         system("echo $color | $program $color");
  92         next if $color eq 'none';
  93         my $bold_color = ucfirst $color;
  94         system("echo $bold_color | $program $bold_color");
  95     }
  96
  97     unlink $program;
  98 };
  99
 100 __DATA__
 101 Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vivamus urna mauris, ultricies faucibus placerat sit amet, rutrum eu
 102 nisi. Quisque dictum turpis non augue iaculis tincidunt nec a arcu. Donec euismod sapien ac dui blandit et adipiscing risus
 103 semper. Sed ornare ligula magna, vitae molestie eros. Praesent ligula est, euismod a luctus non, porttitor quis nunc. Fusce vel
 104 imperdiet turpis. Proin vitae mauris neque, fringilla vestibulum sapien. Pellentesque vitae nibh ipsum, non cursus diam. Cras
 105 vitae ligula mauris. Etiam tortor enim, varius nec adipiscing sed, lobortis et quam. Quisque convallis, diam sagittis adipiscing
 106 adipiscing, mi nibh fermentum sapien, et iaculis nisi sem sit amet odio. Cras a tortor at nibh tristique vehicula dapibus eu velit.
 107
 108 Vivamus porttitor purus eget leo suscipit sed posuere ligula gravida. In mollis velit quis leo pharetra gravida. Ut libero nisi,
 109 elementum sed varius tincidunt, hendrerit ut dui. Duis sit amet ante eget velit dictum ultrices. Nulla tempus, lacus eu dignissim
 110 feugiat, turpis mauris volutpat urna, quis commodo lorem augue id justo. Aenean consequat interdum sapien, sit amet
 111 imperdiet ante dapibus at. Pellentesque viverra sagittis tincidunt. Quisque rhoncus varius magna, sit amet rutrum arcu
 112 tincidunt eget. Etiam a lacus nec mauris interdum luctus sed in lacus. Ut pulvinar, augue at dictum blandit, nisl massa pretium
 113 ligula, in iaculis nulla nisi iaculis nunc.
 114
 115 Vivamus id eros nunc. Cras facilisis iaculis ante sit amet consequat. Nunc vehicula imperdiet sem, ac vehicula neque
 116 condimentum sed. Phasellus metus lacus, molestie ullamcorper imperdiet in, condimentum ut tellus. Nullam dignissim dui ut
 117 enim ullamcorper in tempus risus posuere. Ut volutpat enim eleifend diam convallis tristique. Proin porttitor augue sed sapien
 118 sagittis quis facilisis purus sodales. Integer auctor dolor rhoncus nisl consequat adipiscing. Aliquam eget ante sit amet quam
 119 porta eleifend.