home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / pragma / diagnostics.t < prev    next >
Text File  |  2000-03-12  |  847b  |  39 lines

  1. #!./perl
  2.  
  3. BEGIN {
  4.     chdir '..' if -d '../pod';
  5.     unshift @INC, './lib' if -d './lib';
  6. }
  7.  
  8.  
  9. ######################### We start with some black magic to print on failure.
  10.  
  11. # Change 1..1 below to 1..last_test_to_print .
  12. # (It may become useful if the test is moved to ./t subdirectory.)
  13. use strict;
  14. use warnings;
  15.  
  16. use vars qw($Test_Num $Total_tests);
  17.  
  18. my $loaded;
  19. BEGIN { $| = 1; $Test_Num = 1 }
  20. END {print "not ok $Test_Num\n" unless $loaded;}
  21. print "1..$Total_tests\n";
  22. BEGIN { require diagnostics; } # Don't want diagnostics' noise yet.
  23. $loaded = 1;
  24. ok($loaded, 'compile');
  25. ######################### End of black magic.
  26.  
  27. sub ok {
  28.     my($test, $name) = shift;
  29.     print "not " unless $test;
  30.     print "ok $Test_Num";
  31.     print " - $name" if defined $name;
  32.     print "\n";
  33.     $Test_Num++;
  34. }
  35.  
  36.  
  37. # Change this to your # of ok() calls + 1
  38. BEGIN { $Total_tests = 1 }
  39.