[patch] Fix for tests

fix-failed-tests-DBD-1.35-for-sqlite-3.8.2.patch (text/plain), 1.96 KB, created by Dmytro Gorbunov on 2014-03-21 20:40:39 UTC

diff -ur DBD-SQLite-1.35/t/07_error.t DBD-SQLite-1.35-patched/t/07_error.t
--- DBD-SQLite-1.35/t/07_error.t	2014-03-21 21:22:29.946234347 +0100
+++ DBD-SQLite-1.35-patched/t/07_error.t	2014-03-21 21:35:10.180193035 +0100
@@ -28,4 +28,4 @@
 };
 ok($@, 'Statement 2 generated an error');
 is( $DBI::err, 19, '$DBI::err ok' );
-like( $DBI::errstr, qr/column a is not unique/, '$DBI::errstr ok' );
+like( $DBI::errstr, qr/column a is not unique|UNIQUE constraint failed/, '$DBI::errstr ok' );
diff -ur DBD-SQLite-1.35/t/39_foreign_keys.t DBD-SQLite-1.35-patched/t/39_foreign_keys.t
--- DBD-SQLite-1.35/t/39_foreign_keys.t	2014-03-21 21:22:29.946234347 +0100
+++ DBD-SQLite-1.35-patched/t/39_foreign_keys.t	2014-03-21 21:35:52.223190751 +0100
@@ -49,7 +49,7 @@
 # column (3) does not correspond to row in the artist table.
 
 ok !insert_track(14, "Mr. Bojangles", 3);
-ok $@ =~ qr/foreign key constraint failed/;
+ok $@ =~ qr/foreign key constraint failed/i;
 
 # This succeeds because a NULL is inserted into trackartist. A
 # corresponding row in the artist table is not required in this case.
@@ -62,7 +62,7 @@
 # artist table.
 
 ok !update_track(3, "Mr. Bojangles");
-ok $@ =~ /foreign key constraint failed/;
+ok $@ =~ /foreign key constraint failed/i;
 
 # Insert the required row into the artist table. It is then possible
 # to update the inserted row to set trackartist to 3 (since a
diff -ur DBD-SQLite-1.35/t/rt_36838_unique_and_bus_error.t DBD-SQLite-1.35-patched/t/rt_36838_unique_and_bus_error.t
--- DBD-SQLite-1.35/t/rt_36838_unique_and_bus_error.t	2014-03-21 21:22:29.946234347 +0100
+++ DBD-SQLite-1.35-patched/t/rt_36838_unique_and_bus_error.t	2014-03-21 21:36:36.799188328 +0100
@@ -17,4 +17,4 @@
 ok $dbh->do("INSERT INTO nums (num) VALUES (?)", undef, 1);
 
 eval { $dbh->do("INSERT INTO nums (num) VALUES (?)", undef, 1); };
-ok $@ =~ /column num is not unique/, $@;  # should not be a bus error
+ok $@ =~ /column num is not unique|UNIQUE constraint failed/, $@;  # should not be a bus error