[libdata-objectdriver-perl] 01/03: Add patch to handle sqlite 3.10 in test suite's version comparison.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libdata-objectdriver-perl.

commit dd1676c0a9cadf49ca7a452985a11f28ce7d674b
Author: gregor herrmann <gregoa at debian.org>
Date:   Wed Jan 13 21:04:52 2016 +0100

    Add patch to handle sqlite 3.10 in test suite's version comparison.
    
    Closes: #810710
---
 debian/patches/series                 |  1 +
 debian/patches/test-sqlite-3.10.patch | 29 +++++++++++++++++++++++++++++
 2 files changed, 30 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index 2cd8e6f..2901b56 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 spelling.patch
 pod.patch
+test-sqlite-3.10.patch
diff --git a/debian/patches/test-sqlite-3.10.patch b/debian/patches/test-sqlite-3.10.patch
new file mode 100644
index 0000000..6e3a612
--- /dev/null
+++ b/debian/patches/test-sqlite-3.10.patch
@@ -0,0 +1,29 @@
+Description: Fix testsuite for sqlite 3.10 compatibility.
+ 3.10 > 3.5 fails, so let's use version.pm;
+ there might be more elegant options ...
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=810710
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2016-01-13
+Forwarded: https://github.com/sixapart/data-objectdriver/issues/21
+Bug: https://github.com/sixapart/data-objectdriver/issues/21
+
+--- a/t/02-basic.t
++++ b/t/02-basic.t
+@@ -9,6 +9,7 @@
+ 
+ use Test::More;
+ use Test::Exception;
++use version;
+ 
+ BEGIN {
+     unless (eval { require DBD::SQLite }) {
+@@ -244,7 +245,7 @@
+     # note sqlite is stupid and doesn't return the number of affected rows
+     # quick hack because I can't rely on version.pm to be installed everywhere
+     my ($sqlite_version) = Wine->driver->rw_handle->{sqlite_version} =~ /(\d+(?:\.\d+))/;
+-    my $count = $sqlite_version > 3.5 ? scalar @bad_wines : "0E0";
++    my $count = version->parse("v$sqlite_version") > version->parse("v3.5") ? scalar @bad_wines : "0E0";
+     is (Wine->remove({}, { nofetch => 1 }), $count, 'removing all bad wine');
+ }
+ 

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