+sub check_head_with_datetool {
+ my $datetool = shift;
+ my @days;
+ foreach (@Head) {
+ my($d, $y, $m, $wb, $other, $tc) = @$_;
+ my($hm, $hy, $hd, $hw) = @$other;
+ my $c = HTML::CalendarMonth->new(
+ year => $y,
+ month => $m,
+ week_begin => $wb,
+ head_m => $hm,
+ head_y => $hy,
+ head_dow => $hd,
+ head_week => $hw,
+ datetool => $datetool,
+ );
+ my $method = $c->_caltool->_name;
+ $method = "auto-select ($method)" unless $datetool;
+ my $msg = sprintf(
+ "(%d/%02d hm:%d hy:%d hd:%d hw:%d) using %s",
+ $y, $m, $hm, $hy, $hd, $hw, $method
+ );
+ cmp_ok(clean($c->as_HTML), 'eq', $tc, $msg);
+ }
+}
+