Package: libur-perl / 0.470+ds-3

sqlite-case-insensitve.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Description: Fix test failure with newer (DBD::)SQLite
 ```
 t/URT/t/04a_sqlite.t
 not ok 80 - column details for table inline are correct
 #   Failed test 'column details for table inline are correct'
 #   at t/URT/t/04a_sqlite.t line 53.
 #     Structures begin differing at:
 #          $got->[0]{DATA_TYPE} = 'INTEGER'
 #     $expected->[0]{DATA_TYPE} = 'integer'
 # Looks like you failed 1 test of 80.
 Dubious, test returned 1 (wstat 256, 0x100)
 Failed 1/80 subtests 
 ```
 Use Test::Deep's cmp_deeply to be able to check against a case-insenstive regexp.
Origin: vendor
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2022-01-17
Forwarded: https://github.com/genome/UR/pull/155
Bug: https://github.com/genome/UR/pull/155

--- a/t/URT/t/04a_sqlite.t
+++ b/t/URT/t/04a_sqlite.t
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use Test::More tests => 80;
+use Test::Deep;
 
 use File::Basename;
 use lib File::Basename::dirname(__FILE__)."/../../../lib";
@@ -37,7 +38,7 @@
 
     my @expected = ( { TABLE_NAME  => 'inline',
                        COLUMN_NAME => 'id',
-                       DATA_TYPE   => 'integer',
+                       DATA_TYPE   => re(qr/^integer$/i),
                        COLUMN_SIZE => undef,
                        NULLABLE    => 1,
                        COLUMN_DEF  => undef,
@@ -50,7 +51,7 @@
                        COLUMN_DEF  => 'some name',
                      },
                   );
-    is_deeply(\@results,
+    cmp_deeply(\@results,
               \@expected,
                'column details for table inline are correct');
 }