-libhtml-calendarmonth-perl (1.18-2) UNRELEASED; urgency=low
+libhtml-calendarmonth-perl (1.18-2) unstable; urgency=low
- * NOT RELEASED YET
+ * Fix test comparsion to handle changes in HTML::Table (closes: #420048)
* Add missing = in HTML::CalenderMonth pod (closes: #394126)
- -- Don Armstrong <don@debian.org> Fri, 26 May 2006 14:57:06 -0700
+ -- Don Armstrong <don@debian.org> Mon, 23 Apr 2007 17:51:26 -0700
libhtml-calendarmonth-perl (1.18-1) unstable; urgency=low
);
my $bstr = $b->as_HTML;
chomp($bstr);
+$bstr =~ s/\=\"(\d+)\"/=$1/g;
cmp_ok($bstr, 'eq', $basque, "i8n: ($year/$month : Basque) using auto-detect");
__DATA__
week_begin => $cal->[3],
datetool => $datetool,
);
+ # Because HTML::TreeBuilder has changed a few times, this can't be exactly equal
+ my $gen_html = $c->as_HTML;
+ $gen_html =~ s/\=\"(\d+)\"/=$1/g;
my $day1 = $days[$cal->[3] - 1];
- cmp_ok($c->as_HTML, 'eq', $cal->[2],
+ cmp_ok($gen_html, 'eq', $cal->[2],
sprintf("(%d/%-02d %s 1st day) using %s",
$cal->[0], $cal->[1], $day1, $method));
if ($DEBUG && $c->as_HTML ne $cal->[2]) {
);
my $ct = $cal->as_HTML;
chomp $ct;
+ $ct =~ s/\=\"(\d+)\"/=$1/g;
cmp_ok($ct, 'eq', $tc, "($year/$month week of year) using $datetool");
if ($DEBUG && $ct ne $tc) {
debug_dump('Broken', $ct, 'Test Data', $tc);