Imported Upstream version 2.04

[deb_pkgs/libhtml-calendarmonth-perl.git] / t / 06_cal.t

diff --git a/t/06_cal.t b/t/06_cal.t
new file mode 100644 (file)
index 0000000..b2807a9
--- /dev/null
+++ b/t/06_cal.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use FindBin;
+use lib $FindBin::RealBin;
+
+use testload;
+
+my($test_count, $method);
+BEGIN {
+  $method = 'cal';
+  $test_count = bulk_count() + odd_count() + 3;
+}
+
+use Test::More tests => $test_count;
+
+use constant DTC => 'HTML::CalendarMonth::DateTool';
+
+use_ok(DTC);
+
+SKIP: {
+  skip("$method not installed", $test_count - 1) unless DTC->_cal_cmd;
+  check_datetool($method);
+  check_bulk_with_datetool($method);
+  check_odd_with_datetool($method);
+}