perl-DBD-SQLite/backport-0001-Lowercase-datatype.patch
licihua fe324e7d76 Intergrate community patches
(cherry picked from commit a4a8efbc6b933e2e872cb6fb7f5c2f612833c461)
2023-11-28 14:04:32 +08:00

29 lines
1.0 KiB
Diff

From ba4f472e7372dbf453444c7764d1c342e7af12b8 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 2 Dec 2021 01:25:48 +0900
Subject: [PATCH] Tweak for 3.37.0
Conflict:NA
Reference:https://github.com/DBD-SQLite/DBD-SQLite/commit/ba4f472e7372dbf453444c7764d1c342e7af12b8
---
t/51_table_column_metadata.t | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/t/51_table_column_metadata.t b/t/51_table_column_metadata.t
index f6a6d70..7c63b59 100644
--- a/t/51_table_column_metadata.t
+++ b/t/51_table_column_metadata.t
@@ -19,7 +19,7 @@ for my $call_func (@CALL_FUNCS) {
my $data = $dbh->$call_func(undef, 'foo', 'id', 'table_column_metadata');
ok $data && ref $data eq ref {}, "got a metadata";
ok $data->{auto_increment}, "id is auto incremental";
- is $data->{data_type} => 'integer', "data type is correct";
+ is lc($data->{data_type}) => 'integer', "data type is correct";
ok $data->{primary}, "id is a primary key";
ok !$data->{not_null}, "id is not null";
}
--
2.32.0.windows.2