1.16/t/06_cal.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 my($test_count, $method);
   6 BEGIN { $test_count = 17 ; $method = 'cal' }
   7
   8 use Test::More tests => $test_count;
   9
  10 use FindBin;
  11 use lib $FindBin::RealBin;
  12
  13 use testload;
  14
  15 SKIP: {
  16   my $CAL;
  17   chomp($CAL = `which cal`);
  18   skip("$method not installed", $test_count) unless -x $CAL;
  19   check_datetool($method);
  20   check_basic_with_datetool($method);
  21 }