[libdbix-class-perl] 01/01: add patch adapting tests to DBD::SQLite 1.40

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libdbix-class-perl.

commit 4d0859cdc355fe57e3800e3a67c1d76ea102c502
Author: Damyan Ivanov <dmn at debian.org>
Date:   Tue Jan 14 14:08:28 2014 +0000

    add patch adapting tests to DBD::SQLite 1.40
    
    Closes: #735024 -- FTBFS: test failures
---
 debian/changelog                       |  7 ++++++
 debian/patches/series                  |  1 +
 debian/patches/sqlite-exceptions.patch | 39 ++++++++++++++++++++++++++++++++++
 3 files changed, 47 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 5b4c7bd..cf9d64a 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+libdbix-class-perl (0.08250-2) UNRELEASED; urgency=medium
+
+  * add patch adapting tests to DBD::SQLite 1.40
+    Closes: #735024 -- FTBFS: test failures
+
+ -- Damyan Ivanov <dmn at debian.org>  Tue, 14 Jan 2014 16:06:52 +0200
+
 libdbix-class-perl (0.08250-1) unstable; urgency=low
 
   [ gregor herrmann ]
diff --git a/debian/patches/series b/debian/patches/series
index d267a44..dc8544a 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix-doc-typos.patch
+sqlite-exceptions.patch
diff --git a/debian/patches/sqlite-exceptions.patch b/debian/patches/sqlite-exceptions.patch
new file mode 100644
index 0000000..fea4981
--- /dev/null
+++ b/debian/patches/sqlite-exceptions.patch
@@ -0,0 +1,39 @@
+Description: adapt to changes in sqlite3 errors when vialating a NOT NULL constraint
+Author: Damyan Ivanov <dmn at debian.org>
+Bug-Debian: https://bugs.debian.org/735024
+Bug: https://rt.cpan.org/Ticket/Display.html?id=92138
+Forwarded: yes
+
+--- a/t/multi_create/standard.t
++++ b/t/multi_create/standard.t
+@@ -444,7 +444,7 @@ throws_ok ( sub {
+     #$t->cd($t->new_related('cd', { artist => undef } ) );
+     #$t->{_rel_in_storage} = 0;
+     $t->insert;
+-}, qr/cd.artist may not be NULL/, "Exception propogated properly");
++}, qr/cd.artist may not be NULL|NOT NULL constraint failed: cd.artist/, "Exception propogated properly");
+ 
+ lives_ok ( sub {
+   $schema->resultset('CD')->create ({
+--- a/t/relationship/update_or_create_multi.t
++++ b/t/relationship/update_or_create_multi.t
+@@ -69,7 +69,7 @@ throws_ok {
+     year => 2020,
+     title => 'the best thing since sliced bread',
+   })
+-} qr/\Qcd.artist may not be NULL/, 'ambiguous find + create failed';
++} qr/\Qcd.artist may not be NULL\E|\QNOT NULL constraint failed: cd.artist/, 'ambiguous find + create failed';
+ 
+ # expect a create, after a failed search using *only* the
+ # *current* relationship and the unique column constraints
+--- a/t/storage/error.t
++++ b/t/storage/error.t
+@@ -15,7 +15,7 @@ warnings_are ( sub {
+     sub {
+       $schema->resultset('CD')->create({ title => 'vacation in antarctica' })
+     },
+-    qr/DBI Exception.+cd\.artist.+NULL/s
++    qr/DBI Exception.+cd\.artist.+NULL|NOT NULL constraint failed: cd.artist/s
+   );  # as opposed to some other error
+ }, [], 'No warnings besides exception' );
+ 

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