Commit | Line | Data |
16d20bd9 |
1 | #!./perl -P |
2 | |
16d20bd9 |
3 | print "1..3\n"; |
4 | |
16d20bd9 |
5 | #define MESS "ok 1\n" |
6 | print MESS; |
7 | |
16d20bd9 |
8 | #ifdef MESS |
9 | print "ok 2\n"; |
10 | #else |
11 | print "not ok 2\n"; |
12 | #endif |
13 | |
14 | open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file."; |
15 | |
16 | ($prog = <<'END') =~ s/X//g; |
17 | X$ok = "not ok 3\n"; |
18 | X#include "Comp.cpp.inc" |
19 | X#ifdef OK |
20 | X$ok = OK; |
21 | X#endif |
22 | Xprint $ok; |
23 | END |
24 | print TRY $prog; |
25 | close TRY; |
26 | |
27 | open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file."); |
28 | print TRY '#define OK "ok 3\n"' . "\n"; |
29 | close TRY; |
30 | |
31 | $pwd=`pwd`; |
32 | $pwd =~ s/\n//; |
33 | $x = `./perl -P Comp.cpp.tmp`; |
34 | print $x; |
35 | unlink "Comp.cpp.tmp", "Comp.cpp.inc"; |