t/01_autodetect.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FindBin;
   5 use lib $FindBin::RealBin;
   6
   7 use testload;
   8
   9 use HTML::CalendarMonth::DateTool;
  10
  11 my($test_count, $detected);
  12 BEGIN {
  13   $test_count = bulk_count() + 1;
  14   eval { $detected = HTML::CalendarMonth::DateTool->new };
  15 }
  16
  17 use Test::More tests => $test_count;
  18
  19 ok($detected, 'auto-detected a datetool');
  20
  21 SKIP: {
  22   skip("no datetools installed", $test_count - 1) unless $detected;
  23   check_bulk_with_datetool();
  24 }