home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / lib / h2ph.t < prev    next >
Text File  |  1999-07-20  |  868b  |  36 lines
  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.     unshift @INC, '../lib';
  9. }
  10.  
  11. print "1..2\n";
  12.  
  13. # quickly compare two text files
  14. sub txt_compare {
  15.     local ($/, $A, $B);
  16.     for (($A,$B) = @_) { open(_,"<$_") ? $_ = <_> : die "$_ : $!"; close _ }
  17.     $A cmp $B;
  18. }
  19.  
  20. unless(-e '../utils/h2ph') {
  21.     print("ok 1\nok 2\n");
  22.     # i'll probably get in trouble for this :)
  23. } else {
  24.     # does it run?
  25.     $ok = system("./perl -I../lib ../utils/h2ph -d. -Q lib/h2ph.h");
  26.     print(($ok == 0 ? "" : "not "), "ok 1\n");
  27.     
  28.     # does it work? well, does it do what we expect? :-)
  29.     $ok = txt_compare("lib/h2ph.ph", "lib/h2ph.pht");
  30.     print(($ok == 0 ? "" : "not "), "ok 2\n");
  31.     
  32.     # cleanup - should this be in an END block?
  33.     unlink("lib/h2ph.ph");
  34.     unlink("_h2ph_pre.ph");
  35. }
  36.