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 { $test_count = case_count() + 4 ; $method = 'Date::Manip' }
  11
  12 use Test::More tests => $test_count;
  13
  14 SKIP: {
  15   eval "use $method";
  16   skip("$method not installed", $test_count) if $@;
  17   check_datetool($method);
  18   check_basic_with_datetool($method);
  19   check_woy_with_datetool($method);
  20 }