[libical-parser-html-perl] 02/09: Use Test::LongString for more useful failure output

[Florian Schlichting]

This is an automated email from the git hooks/post-receive script.

fsfs pushed a commit to branch master
in repository libical-parser-html-perl.

commit 0ffd81421479c1f0ac0c1ba89e80eca54dc76598
Author: Florian Schlichting <fsfs at debian.org>
Date:   Wed Apr 23 16:32:26 2014 +0200

    Use Test::LongString for more useful failure output
---
 debian/control                       |  1 +
 debian/patches/series                |  1 +
 debian/patches/test-longstring.patch | 40 ++++++++++++++++++++++++++++++++++++
 3 files changed, 42 insertions(+)

diff --git a/debian/control b/debian/control
index c9f0373..1f40023 100644
--- a/debian/control
+++ b/debian/control
@@ -7,6 +7,7 @@ Build-Depends: devscripts,
  cdbs (>= 0.4.78~),
  debhelper,
  dh-buildinfo,
+ libtest-longstring-perl,
  libxml-libxml-perl,
  libxml-libxslt-perl,
  libical-parser-sax-perl
diff --git a/debian/patches/series b/debian/patches/series
index a8647c9..ad40a12 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 normlize-test-output.patch
 this-month.patch
 perl5.18.patch
+test-longstring.patch
diff --git a/debian/patches/test-longstring.patch b/debian/patches/test-longstring.patch
new file mode 100644
index 0000000..9ccfb04
--- /dev/null
+++ b/debian/patches/test-longstring.patch
@@ -0,0 +1,40 @@
+Description: use Test::LongString for more readable failure output
+Author: Florian Schlichting <fsfs at 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)=@_;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libical-parser-html-perl.git