3 # TEST c-compress-pl with a number of examples and what should happen to them
13 /* A hell of a program */
16 #define bar /* haha "A /* comment */ that should /* remain" */
17 #define haha /* hoho */ "A /* comment */ that should /* remain" */
21 /* one lonely comment */
26 #define bar that should
27 #define haha "A /* comment */ that should /* remain" */
35 my $here = dirname $0;
36 my $c_compress = "$here/lang-compress.pl";
43 my $expected = $_->[1];
44 my $pid = open2(\*Reader, \*Writer, "perl $c_compress 'C'");
48 local $/ = undef; # slurp
51 if ($got ne $expected) {
52 print "MISMATCH:\n", diff \$expected, \$got;