util/c-compress-test.pl


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;
    }
}