t/pragma/diagnostics.t

   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
  15 use vars qw($Test_Num $Total_tests);
  16
  17 my $loaded;
  18 BEGIN { $| = 1; $^W = 1; $Test_Num = 1 }
  19 END {print "not ok $Test_Num\n" unless $loaded;}
  20 print "1..$Total_tests\n";
  21 BEGIN { require diagnostics; } # Don't want diagnostics' noise yet.
  22 $loaded = 1;
  23 ok($loaded, 'compile');
  24 ######################### End of black magic.
  25
  26 sub ok {
  27         my($test, $name) = shift;
  28         print "not " unless $test;
  29         print "ok $Test_Num";
  30         print " - $name" if defined $name;
  31         print "\n";
  32         $Test_Num++;
  33 }
  34
  35
  36 # Change this to your # of ok() calls + 1
  37 BEGIN { $Total_tests = 1 }