- my $ct = $cal->as_HTML;
- chomp $ct;
- cmp_ok($ct, 'eq', $tc, "($year/$month week of year) using $datetool");
- if ($DEBUG && $ct ne $tc) {
- debug_dump('Broken', $ct, 'Test Data', $tc);
- }
+ my $msg = sprintf("(%d/%02d week of year) using %s", $y, $m, $datetool);
+ cmp_ok(clean($c->as_HTML), 'eq', $tc, $msg);
+ }
+}
+
+sub check_i8n {
+ foreach (@I8N) {
+ my($d, $y, $m, $id, $tc) = @$_;
+ my $c = HTML::CalendarMonth->new(
+ year => $y,
+ month => $m,
+ locale => $id,
+ );
+ my $name = $c->loc->loc->name;
+ my $msg = sprintf(
+ "(%d/%02d i8n) %s (wb:%d) using auto-detect",
+ $y, $m, $name, $c->week_begin
+ );
+ cmp_ok(clean($c->as_HTML), 'eq', $tc, $msg);
+ }
+}
+
+sub check_narrow {
+ my @days;
+ foreach (@Nar) {
+ my($d, $y, $m, $wb, $tc) = @$_;
+ my $c = HTML::CalendarMonth->new(
+ year => $y,
+ month => $m,
+ week_begin => $wb,
+ full_days => -1,
+ );
+ @days = $c->dayheaders unless @days;
+ my $day1 = $days[$wb - 1];
+ my $msg = sprintf(
+ "(%d/%02d %s/%s 1st day) narrow/alias using auto-detect",
+ $y, $m, $day1, $c->item_alias($day1)
+ );
+ cmp_ok(clean($c->as_HTML), 'eq', $tc, $msg);