blob: 8ea3e045bc4fbee8d377e5500f0199954d9b1fd4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#! /usr/bin/env perl
#
# TEST c-compress-pl with a number of examples and what should happen to them
use strict;
use warnings;
use File::Basename;
my @pairs =
(
[ <<'_____'
/* A hell of a program */
#def\
ine foo/* bar */ 3
#define bar /* haha "A /* comment */ that should /* remain" */
#define haha /* hoho */ "A /* comment */ that should /* remain" */
int main() {
int x;
/* one lonely comment */
}
_____
, <<'_____'
#define foo 3
#define bar that should
#define haha "A /* comment */ that should /* remain" */
int main() {
int x;
}
_____
]
);
my $here = dirname $0;
my $c_compress = "$here/lang-compress.pl";
use FileHandle;
use IPC::Open2;
use Text::Diff;
foreach (@pairs) {
my $source = $_->[0];
my $expected = $_->[1];
my $pid = open2(\*Reader, \*Writer, "perl $c_compress 'C'");
print Writer $source;
close Writer;
local $/ = undef; # slurp
my $got = <Reader>;
if ($got ne $expected) {
print "MISMATCH:\n", diff \$expected, \$got;
}
}
|
