#!/usr/bin/perl
use strict;
+use FindBin;
+use lib $FindBin::RealBin;
+
+use testload;
my($test_count, $method);
-BEGIN { $test_count = 17 ; $method = 'cal' }
+BEGIN {
+ $method = 'cal';
+ $test_count = bulk_count() + odd_count() + 3;
+}
use Test::More tests => $test_count;
-use FindBin;
-use lib $FindBin::RealBin;
+use constant DTC => 'HTML::CalendarMonth::DateTool';
-use testload;
+use_ok(DTC);
SKIP: {
- my $CAL;
- chomp($CAL = `which cal`);
- skip("$method not installed", $test_count) unless -x $CAL;
+ skip("$method not installed", $test_count - 1) unless DTC->_cal_cmd;
check_datetool($method);
- check_basic_with_datetool($method);
+ check_bulk_with_datetool($method);
+ check_odd_with_datetool($method);
}