[Bast-commits] r5031 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2008-10-31 00:26:58 +0000 (Fri, 31 Oct 2008)
New Revision: 5031

Modified:
   DBIx-Class/0.08/trunk/t/64db.t
Log:
It seems that some CPAN testers have a weird unreleased DBD::SQLite 1.14001 which return unexpected column info - fixing. Should take care of:
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


Modified: DBIx-Class/0.08/trunk/t/64db.t
===================================================================
--- DBIx-Class/0.08/trunk/t/64db.t	2008-10-30 21:30:47 UTC (rev 5030)
+++ DBIx-Class/0.08/trunk/t/64db.t	2008-10-31 00:26:58 UTC (rev 5031)
@@ -38,10 +38,16 @@
 
 # I know this is gross but SQLite reports the size differently from release
 # to release. At least this way the test still passes.
+# 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};
+    }
+  }
+}
 
-delete $type_info->{$_}{size} for keys %$type_info;
-
-
 my $test_type_info = {
     'artistid' => {
         'data_type' => 'INTEGER',