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