a "replacement" for awk and sed
[perl.git] / t / comp.cpp
1 #!./perl -P
2
3 # $Header: comp.cpp,v 1.0 87/12/18 13:12:22 root Exp $
4
5 print "1..3\n";
6
7 #this is a comment
8 #define MESS "ok 1\n"
9 print MESS;
10
11 #If you capitalize, it's a comment.
12 #ifdef MESS
13         print "ok 2\n";
14 #else
15         print "not ok 2\n";
16 #endif
17
18 open(try,">Comp.cpp.tmp") || die "Can't open temp perl file.";
19 print try '$ok = "not ok 3\n";'; print try "\n";
20 print try "#include <Comp.cpp.inc>\n";
21 print try "#ifdef OK\n";
22 print try '$ok = OK;'; print try "\n";
23 print try "#endif\n";
24 print try 'print $ok;'; print try "\n";
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"'; print try "\n";
29 close try;
30
31 $pwd=`pwd`;
32 $pwd =~ s/\n//;
33 $x = `./perl -P -I$pwd Comp.cpp.tmp`;
34 print $x;
35 `/bin/rm -f Comp.cpp.tmp Comp.cpp.inc`;