[packages/perl-DBD-SQLite] - up to 1.70, fix broken test

[baggins]

commit 761c334e6817b8afb39e737f331b80ead7064b3d
Author: Jan Rękorajski <baggins at pld-linux.org>
Date:   Wed Mar 2 07:23:43 2022 +0100

    - up to 1.70, fix broken test

 data_type.patch      | 11 +++++++++++
 perl-DBD-SQLite.spec |  8 +++++---
 2 files changed, 16 insertions(+), 3 deletions(-)
---
diff --git a/perl-DBD-SQLite.spec b/perl-DBD-SQLite.spec
index 0e6f96d..736f838 100644
--- a/perl-DBD-SQLite.spec
+++ b/perl-DBD-SQLite.spec
@@ -8,13 +8,14 @@
 Summary:	DBD::SQLite - Self Contained RDBMS in a DBI Driver (sqlite 3.x)
 Summary(pl.UTF-8):	DBD::SQLite - Kompletny RDBMS zawarty w sterowniku DBI (sqlite 3.x)
 Name:		perl-DBD-SQLite
-Version:	1.66
+Version:	1.70
 Release:	1
 # same as perl
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
-Source0:	http://www.cpan.org/modules/by-module/DBD/%{pdir}-%{pnam}-%{version}.tar.gz
-# Source0-md5:	38581209de5c981f0e79840c8937fa16
+Source0:	https://www.cpan.org/modules/by-module/DBD/%{pdir}-%{pnam}-%{version}.tar.gz
+# Source0-md5:	cc20dad09474da382488686ea07e8288
+Patch0:		data_type.patch
 URL:		https://metacpan.org/release/DBD-SQLite
 BuildRequires:	perl-DBI >= 1.57
 BuildRequires:	perl-devel >= 1:5.8.0
@@ -60,6 +61,7 @@ Aby używać baz danych stworzonych przy pomocy starszej wersji SQLite
 
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
+%patch0 -p1
 
 # honour USE_LOCAL_SQLITE instead of using bundled sqlite3 (see comments inside)
 %{__perl} -pi -e 's/if \( 0 \)/if ( 1 )/' Makefile.PL
diff --git a/data_type.patch b/data_type.patch
new file mode 100644
index 0000000..66807a0
--- /dev/null
+++ b/data_type.patch
@@ -0,0 +1,11 @@
+--- DBD-SQLite-1.70/t/51_table_column_metadata.t~	2021-01-17 19:28:36.000000000 +0100
++++ DBD-SQLite-1.70/t/51_table_column_metadata.t	2022-03-02 07:16:54.014601031 +0100
+@@ -19,7 +19,7 @@
+ 		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 $data->{data_type} => 'INTEGER', "data type is correct";
+ 		ok $data->{primary}, "id is a primary key";
+ 		ok !$data->{not_null}, "id is not null";
+ 	}
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-DBD-SQLite.git/commitdiff/761c334e6817b8afb39e737f331b80ead7064b3d