1.18/t/06_cal.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() + 2 ; $method = 'cal' }
  11
  12 use Test::More tests => $test_count;
  13
  14 SKIP: {
  15   my $CAL;
  16   chomp($CAL = `which cal`);
  17   skip("$method not installed", $test_count) unless -x $CAL;
  18   check_datetool($method);
  19   check_basic_with_datetool($method);
  20 }