Fix the test failure with SQLite 3.38.0 (bz#2069128)

3 years ago · 613a9625ae
parent 9c4ea41872
commit 613a9625ae
1 changed files with 76 additions and 0 deletions
--- a/DBIx-Class-0.082842-Fix-test-failure-with-SQLite-3.38.0.patch
+++ b/DBIx-Class-0.082842-Fix-test-failure-with-SQLite-3.38.0.patch
@ -0,0 +1,76 @@
+diff -up DBIx-Class-0.082842/t/60core.t.sqlite DBIx-Class-0.082842/t/60core.t
+--- DBIx-Class-0.082842/t/60core.t.sqlite	2022-03-30 10:49:17.774464160 +0200
+++ DBIx-Class-0.082842/t/60core.t	2022-03-30 10:55:57.400750864 +0200
+@@ -3,6 +3,7 @@ use warnings;
+ 
+ use Test::More;
+ use Test::Exception;
+use Test::Deep;
+ use Test::Warn;
+ use lib qw(t/lib);
+ use DBICTest ':DiffSQL';
+@@ -387,7 +388,7 @@ lives_ok (sub { my $newlink = $newbook->
+   $schema->source("Artist")->column_info_from_storage(1);
+   $schema->source("Artist")->{_columns_info_loaded} = 0;
+ 
+-  is_deeply (
+  cmp_deeply (
+     $schema->source('Artist')->columns_info,
+     {
+       artistid => {
+@@ -410,7 +411,7 @@ lives_ok (sub { my $newlink = $newbook->
+         size => 100
+       },
+       rank => {
+-        data_type => "integer",
+        data_type => re(qr/^integer$/i),
+         default_value => 13,
+         is_nullable => 0,
+         size => undef
+@@ -421,7 +422,7 @@ lives_ok (sub { my $newlink = $newbook->
+ 
+   ok($schema->source("Artist")->{_columns_info_loaded} == 1, 'Columns info loaded flag set');
+ 
+-  is_deeply (
+  cmp_deeply (
+     $schema->source('Artist')->columns_info([qw/artistid rank/]),
+     {
+       artistid => {
+@@ -431,7 +432,7 @@ lives_ok (sub { my $newlink = $newbook->
+         size => undef
+       },
+       rank => {
+-        data_type => "integer",
+        data_type => re(qr/^integer$/i),
+         default_value => 13,
+         is_nullable => 0,
+         size => undef
+diff -up DBIx-Class-0.082842/t/64db.t.sqlite DBIx-Class-0.082842/t/64db.t
+--- DBIx-Class-0.082842/t/64db.t.sqlite	2022-03-30 10:56:26.658928674 +0200
+++ DBIx-Class-0.082842/t/64db.t	2022-03-30 10:57:52.709451624 +0200
+@@ -2,6 +2,7 @@ use strict;
+ use warnings;
+ 
+ use Test::More;
+use Test::Deep;
+ use lib qw(t/lib);
+ use DBICTest;
+ 
+@@ -48,7 +49,7 @@ is_deeply (
+ );
+ 
+ {
+-  is_deeply (
+  cmp_deeply (
+     get_storage_column_info ($schema->storage, 'artist', qw/size/),
+     {
+       'artistid' => {
+@@ -60,7 +61,7 @@ is_deeply (
+           'is_nullable' => 1,
+       },
+       'rank' => {
+-          'data_type' => 'integer',
+          'data_type' => re(qr/^integer$/i),
+           'is_nullable' => 0,
+           'default_value' => '13',
+       },