X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2Ftestload.pm;h=d822ee7742b564ace66c3d17cf7e2b5c853c89bb;hb=627a8e2fb05a744a8381c58bf5fff6492a1cff02;hp=902069dc854e6120204cdb38236f98f08abd140c;hpb=50065656489ae7e83457ab2c12b6d174186339d7;p=deb_pkgs%2Flibhtml-calendarmonth-perl.git

diff --git a/t/testload.pm b/t/testload.pm
index 902069d..d822ee7 100644
--- 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);