add new version of libhtml-calendarmonth-perl

[deb_pkgs/libhtml-calendarmonth-perl.git] / t / testload.pm

diff --git a/t/testload.pm b/t/testload.pm
index 902069dc854e6120204cdb38236f98f08abd140c..d822ee7742b564ace66c3d17cf7e2b5c853c89bb 100644 (file)
--- a/t/testload.pm
+++ b/t/testload.pm
@@ -9,7 +9,7 @@ my $DEBUG = 0;
 
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw( $Dat_Dir check_datetool
+@EXPORT = qw( $Dat_Dir check_datetool case_count
               check_basic_with_datetool
               check_woy_with_datetool
             );
@@ -66,6 +66,8 @@ while (<D>) {
 
 close(D);
 
+sub case_count { scalar @Cals }
+
 sub check_datetool {
   my $datetool = shift;
   my $module = HTML::CalendarMonth::DateTool->toolmap($datetool);