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