Petr Písař
11 years ago
parent
5038cd470a
commit
93072d4864
@ -0,0 +1,26 @@
|
||||
From 6458091dbcf08c5fed462f43a52254e57ef154aa Mon Sep 17 00:00:00 2001
|
||||
From: Kenichi Ishigaki <ishigaki@cpan.org>
|
||||
Date: Tue, 27 Aug 2013 12:14:45 +0900
|
||||
Subject: [PATCH] check only whether sort is defined or not, as sort may be
|
||||
zero under the new query planner introduced in SQLite 3.8.0
|
||||
|
||||
---
|
||||
t/53_status.t | 2 +-
|
||||
1 file changed, 1 insertion(+), 1 deletion(-)
|
||||
|
||||
diff --git a/t/53_status.t b/t/53_status.t
|
||||
index 50b29e0..141e4ec 100644
|
||||
--- a/t/53_status.t
|
||||
+++ b/t/53_status.t
|
||||
@@ -46,7 +46,7 @@ for my $func (@CALL_FUNCS) {
|
||||
my $num_of_keys = scalar keys %$st_status;
|
||||
ok $num_of_keys, "st status: $num_of_keys indicators";
|
||||
my $sort = $st_status->{sort};
|
||||
- ok defined $sort && $sort, "num of sort: $sort";
|
||||
+ ok defined $sort, "num of sort: $sort";
|
||||
}
|
||||
}
|
||||
|
||||
--
|
||||
1.8.5.1
|
||||
|
||||
@ -0,0 +1,56 @@
|
||||
From f8a45b96f62742351c06fd956a4965004df7226d Mon Sep 17 00:00:00 2001
|
||||
From: Kenichi Ishigaki <ishigaki@cpan.org>
|
||||
Date: Thu, 9 Jan 2014 02:30:37 +0900
|
||||
Subject: [PATCH] error messages have been slightly changed since 3.8.2
|
||||
|
||||
---
|
||||
t/07_error.t | 2 +-
|
||||
t/39_foreign_keys.t | 4 ++--
|
||||
t/rt_36838_unique_and_bus_error.t | 2 +-
|
||||
3 files changed, 4 insertions(+), 4 deletions(-)
|
||||
|
||||
diff --git a/t/07_error.t b/t/07_error.t
|
||||
index 68ea9ca..cf4fdb1 100644
|
||||
--- a/t/07_error.t
|
||||
+++ b/t/07_error.t
|
||||
@@ -28,4 +28,4 @@ eval {
|
||||
};
|
||||
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 --git a/t/39_foreign_keys.t b/t/39_foreign_keys.t
|
||||
index b7632fc..fc15d89 100644
|
||||
--- a/t/39_foreign_keys.t
|
||||
+++ b/t/39_foreign_keys.t
|
||||
@@ -49,7 +49,7 @@ ok insert_track(13, "My Way", 2);
|
||||
# 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 @@ ok insert_track(14, "Mr. Bojangles", undef);
|
||||
# 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 --git a/t/rt_36838_unique_and_bus_error.t b/t/rt_36838_unique_and_bus_error.t
|
||||
index 2c3a819..5a8aafe 100644
|
||||
--- a/t/rt_36838_unique_and_bus_error.t
|
||||
+++ b/t/rt_36838_unique_and_bus_error.t
|
||||
@@ -17,4 +17,4 @@ $dbh->do("CREATE TABLE nums (num INTEGER UNIQUE)");
|
||||
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
|
||||
--
|
||||
1.8.5.1
|
||||
|
||||
Loading…
Reference in new issue