extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / lib / h2ph.t
1 #!./perl
2
3 # quickie tests to see if h2ph actually runs and does more or less what is
4 # expected
5
6 BEGIN {
7     chdir 't' if -d 't';
8     @INC = '../lib';
9 }
10
11 my $extracted_program = '../utils/h2ph'; # unix, nt, ...
12 if ($^O eq 'VMS') { $extracted_program = '[-.utils]h2ph.com'; }
13 if (!(-e $extracted_program)) {
14     print "1..0 # Skip: $extracted_program was not built\n";
15     exit 0;
16 }
17
18 print "1..2\n";
19
20 # quickly compare two text files
21 sub txt_compare {
22     local ($/, $A, $B);
23     for (($A,$B) = @_) { open(_,"<$_") ? $_ = <_> : die "$_ : $!"; close _ }
24     $A cmp $B;
25 }
26
27 # does it run?
28 $ok = system("$^X \"-I../lib\" $extracted_program -d. \"-Q\" lib/h2ph.h");
29 print(($ok == 0 ? "" : "not "), "ok 1\n");
30     
31 # does it work? well, does it do what we expect? :-)
32 $ok = txt_compare("lib/h2ph.ph", "lib/h2ph.pht");
33 print(($ok == 0 ? "" : "not "), "ok 2\n");
34     
35 # cleanup - should this be in an END block?
36 unlink("lib/h2ph.ph");
37 unlink("_h2ph_pre.ph");