Description: use Test::LongString for more readable failure output
Author: Florian Schlichting <fsfs@debian.org>
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=94968

--- a/t/01parse.t
+++ b/t/01parse.t
@@ -1,5 +1,6 @@
 # -*- cperl -*-
 use Test::More;
+use Test::LongString;
 use iCal::Parser::HTML;
 
 my $parser=iCal::Parser::HTML->new;
@@ -23,7 +24,7 @@
         $got    =~ s/^ *//gm; # $got is indented
         $expect =~ s/^ *//gm; # $expect is not intendet but once
         $expect =~ s/; charset=utf-8/;             charset=UTF-8/;
-	is($got,$expect,"$f -> $type");
+	is_string($got,$expect,"$f -> $type");
     }
 }
 #multiple calendar input
@@ -38,7 +39,7 @@
     $got    =~ s/^ *//gm; # $got is indented
     $expect =~ s/^ *//gm; # $expect is not intendet but once
     $expect =~ s/; charset=utf-8/;             charset=UTF-8/;
-    is($got,$expect,"multical -> $type");
+    is_string($got,$expect,"multical -> $type");
 }
 #no link output
 foreach my $type ( qw(day week month) ) {
@@ -52,7 +53,7 @@
     $got    =~ s/^ *//gm; # $got is indented
     $expect =~ s/^ *//gm; # $expect is not intendet but once
     $expect =~ s/; charset=utf-8/;             charset=UTF-8/;
-    is($got,$expect,"multical -> $type (no links)");
+    is_string($got,$expect,"multical -> $type (no links)");
 }
 sub dump_html {
     my($expect,$got)=@_;