It seems that some CPAN testers have a weird unreleased DBD::SQLite 1.14001 which...
Peter Rabbitson [Fri, 31 Oct 2008 00:26:58 +0000 (00:26 +0000)]
http://www.nntp.perl.org/group/perl.cpan.testers/2008/10/msg2525124.html
http://www.nntp.perl.org/group/perl.cpan.testers/2008/10/msg2525137.html

t/64db.t

index 3a761e4..40acdc1 100644 (file)
--- a/t/64db.t
+++ b/t/64db.t
@@ -38,9 +38,15 @@ my $type_info = $schema->storage->columns_info_for('artist');
 
 # I know this is gross but SQLite reports the size differently from release
 # to release. At least this way the test still passes.
-
-delete $type_info->{$_}{size} for keys %$type_info;
-
+# Also it seems that some SQLite releases report stuff that isn't there as
+# undef. So strip them out.
+for my $col (keys %$type_info) {
+  for my $type (keys %{$type_info->{$col}}) {
+    if ($type eq 'size' or not defined $type_info->{$col}{$type} ) {
+      delete $type_info->{$col}{$type};
+    }
+  }
+}
 
 my $test_type_info = {
     'artistid' => {