| 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"); |