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