#!/usr/bin/perl
use strict;
-
-my($test_count, $method);
-BEGIN { $test_count = 17 ; $method = 'cal' }
-
-use Test::More tests => $test_count;
-
use FindBin;
use lib $FindBin::RealBin;
use testload;
+my($test_count, $method);
+BEGIN { $test_count = case_count() + 2 ; $method = 'cal' }
+
+use Test::More tests => $test_count;
+
SKIP: {
my $CAL;
chomp($CAL = `which cal`);