[libanyevent-dbi-perl] 01/06: Add patch to make testsuite work with SQLite >= 3.7.15.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libanyevent-dbi-perl.

commit e2257f84fbf02646c6500594a947052fe3e0655b
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Sep 14 17:17:24 2014 +0200

    Add patch to make testsuite work with SQLite >= 3.7.15.
    
    Closes: #711418
---
 debian/patches/series                   |  1 +
 debian/patches/test-sqlite-3.7.15.patch | 29 +++++++++++++++++++++++++++++
 2 files changed, 30 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index c9352c4..4c97168 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 pod.patch
+test-sqlite-3.7.15.patch
diff --git a/debian/patches/test-sqlite-3.7.15.patch b/debian/patches/test-sqlite-3.7.15.patch
new file mode 100644
index 0000000..efe9f51
--- /dev/null
+++ b/debian/patches/test-sqlite-3.7.15.patch
@@ -0,0 +1,29 @@
+Description: the tests expects instr() to be an unknown function but this was introduced in sqlite 3.7.15
+Origin: vendor
+Bug: http://rt.cpan.org/Public/Bug/Display.html?id=85963
+Bug-Debian: https://bugs.debian.org/711418
+Forwarded: no, upstream closed the ticket
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2014-09-14
+
+--- a/t/02_sql_lite.t
++++ b/t/02_sql_lite.t
+@@ -180,6 +180,10 @@
+ ok(!$error,'No error occurs while setting AutoCommit => 1');
+ ok($result,'Accessor with set (AutoCommit) returns true');
+ 
++SKIP: {
++skip "instr() exists since sqlite 3.7.15, this test assumes it's an unknown function", 1
++    if $DBD::SQLite::sqlite_version >= 3.7.15;
++
+ # using bad function returns error
+ $cv = AnyEvent->condvar;
+ #$dbh->exec('select a_column from a_table where instr(a_column,?)','re',sub {return $cv->send($@) unless $_[0];$cv->send(undef, at _[1,2]);});
+@@ -188,6 +192,7 @@
+ my $hdl;
+ ($error,$hdl,$result,$rv) = $cv->recv();
+ like($error,qr{function}i,'Using an unknown function results in error');
++}
+ 
+ # create the function
+ $cv = AnyEvent->condvar;

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