t/04_datemanip.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FindBin;
   5 use lib $FindBin::RealBin;
   6
   7 use testload;
   8
   9 my($test_count, $method);
  10 BEGIN {
  11   $method = 'Date::Manip';
  12   $test_count = bulk_count() + odd_count() + woy_count() + 2;
  13 }
  14
  15 use Test::More tests => $test_count;
  16
  17 SKIP: {
  18   eval "use $method";
  19   skip("$method not installed", $test_count) if $@;
  20   check_datetool($method);
  21   check_bulk_with_datetool($method);
  22   check_odd_with_datetool($method);
  23   check_woy_with_datetool($method);
  24 }