commit:     d47cd2868d4d0d5d99c4f4cb45b5f735eba11618
Author:     Andreas K. Hüttel <dilfridge <AT> gentoo <DOT> org>
AuthorDate: Sat Dec 18 16:17:43 2021 +0000
Commit:     Andreas K. Hüttel <dilfridge <AT> gentoo <DOT> org>
CommitDate: Sat Dec 18 16:17:43 2021 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=d47cd286

dev-perl/HTML-TableParser: Fix tests

Bug: https://rt.cpan.org/Public/Bug/Display.html?id=121341
Closes: https://bugs.gentoo.org/737338
Package-Manager: Portage-3.0.28, Repoman-3.0.3
Signed-off-by: Andreas K. Hüttel <dilfridge <AT> gentoo.org>

 dev-perl/HTML-TableParser/HTML-TableParser-0.430.0.ebuild |  2 ++
 .../files/HTML-TableParser-0.430.0-tests.patch            | 15 +++++++++++++++
 2 files changed, 17 insertions(+)

diff --git a/dev-perl/HTML-TableParser/HTML-TableParser-0.430.0.ebuild 
b/dev-perl/HTML-TableParser/HTML-TableParser-0.430.0.ebuild
index d7949253c28d..f08f6403b7f1 100644
--- a/dev-perl/HTML-TableParser/HTML-TableParser-0.430.0.ebuild
+++ b/dev-perl/HTML-TableParser/HTML-TableParser-0.430.0.ebuild
@@ -25,3 +25,5 @@ BDEPEND="${RDEPEND}
                >=virtual/perl-Test-Simple-0.320.0
        )
 "
+
+PATCHES=( "${FILESDIR}/${P}-tests.patch" )

diff --git 
a/dev-perl/HTML-TableParser/files/HTML-TableParser-0.430.0-tests.patch 
b/dev-perl/HTML-TableParser/files/HTML-TableParser-0.430.0-tests.patch
new file mode 100644
index 000000000000..4e343bd9e0bf
--- /dev/null
+++ b/dev-perl/HTML-TableParser/files/HTML-TableParser-0.430.0-tests.patch
@@ -0,0 +1,15 @@
+https://bugs.gentoo.org/737338
+https://rt.cpan.org/Public/Bug/Display.html?id=121341
+
+
+diff -ruN HTML-TableParser-0.43.orig/t/req_order.t 
HTML-TableParser-0.43/t/req_order.t
+--- HTML-TableParser-0.43.orig/t/req_order.t   2018-03-22 21:31:52.000000000 
+0100
++++ HTML-TableParser-0.43/t/req_order.t        2021-12-18 17:14:37.239637221 
+0100
+@@ -48,5 +48,5 @@
+ my $p = HTML::TableParser->new( \@reqs );
+ $p->parse_file( 'data/ned.html' ) || die;
+ 
+-ok( eq_array( $header, $columns ), "$html header" );
+-ok( eq_array( $data->{Default}, \@parse_data ), "$html data" );
++is_deeply( $header, $columns, "$html header" );
++is_deeply( $data->{Default}, \@parse_data, "$html data" );

Reply via email to