[libdbd-sqlite3-perl] 01/02: Add fix-test-sort.patch, fix test failure by forcing sqlite to actually sort something (closes: #723812)

[Florian Schlichting]

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

fsfs pushed a commit to branch master
in repository libdbd-sqlite3-perl.

commit 95028df6cbb2e433cfc6dc159c05f0bd0bb4034f
Author: Florian Schlichting <fsfs at debian.org>
Date:   Sat Sep 28 01:48:59 2013 +0200

    Add fix-test-sort.patch, fix test failure by forcing sqlite to actually sort something (closes: #723812)
---
 debian/patches/fix-test-sort.patch |   20 ++++++++++++++++++++
 debian/patches/series              |    1 +
 2 files changed, 21 insertions(+)

diff --git a/debian/patches/fix-test-sort.patch b/debian/patches/fix-test-sort.patch
new file mode 100644
index 0000000..5fb7147
--- /dev/null
+++ b/debian/patches/fix-test-sort.patch
@@ -0,0 +1,20 @@
+Description: fix test failure by forcing sqlite to actually sort something
+ Current versions of sqlite seem to not do any sorting if the result has just
+ one element. This patch makes sure the result picks up a few more elements,
+ so that the sort counter gets pushed above zero.
+Author: Florian Schlichting <fsfs at debian.org>
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=89011
+
+--- a/t/53_status.t
++++ b/t/53_status.t
+@@ -39,8 +39,8 @@
+ 	}
+ 
+ 	{
+-		my $sth = $dbh->prepare('select * from foo where text = ? order by text desc');
+-		$sth->execute("text1");
++		my $sth = $dbh->prepare('select * from foo where text LIKE ? order by text desc');
++		$sth->execute("text1%");
+ 		my $st_status = $sth->$func('st_status');
+ 		ok $st_status && ref $st_status eq ref {}, "st status is a hashref";
+ 		my $num_of_keys = scalar keys %$st_status;
diff --git a/debian/patches/series b/debian/patches/series
index 65230e8..90c8520 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 use_system_sqlite
+fix-test-sort.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdbd-sqlite3-perl.git