[Bast-commits] r6486 - in DBIx-Class/0.08/trunk: . t/cdbi t/cdbi/testlib

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-03 08:14:51 +0000 (Wed, 03 Jun 2009)
New Revision: 6486

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/t/cdbi/04-lazy.t
   DBIx-Class/0.08/trunk/t/cdbi/testlib/MyFoo.pm
Log:
Require a recent version of Date::Simple during CDBI tests

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2009-06-02 20:28:12 UTC (rev 6485)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2009-06-03 08:14:51 UTC (rev 6486)
@@ -67,7 +67,7 @@
   'Class::Trigger'            => 0,
   'Time::Piece::MySQL'        => 0,
   'Clone'                     => 0,
-  'Date::Simple'              => 0,
+  'Date::Simple'              => 3.03,
 
   # t/52cycle.t
   'Test::Memory::Cycle'       => 0,

Modified: DBIx-Class/0.08/trunk/t/cdbi/04-lazy.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/04-lazy.t	2009-06-02 20:28:12 UTC (rev 6485)
+++ DBIx-Class/0.08/trunk/t/cdbi/04-lazy.t	2009-06-03 08:14:51 UTC (rev 6486)
@@ -10,12 +10,10 @@
 
 BEGIN {
   eval "use DBIx::Class::CDBICompat;";
-  if ($@) {
-    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
-    next;
-  }
-	eval "use DBD::SQLite";
-	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 36);
+  plan $@ 
+    ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required')
+    : (tests => 36)
+  ;
 }
 
 INIT {
@@ -120,7 +118,7 @@
 
 # Now again for inflated values
 SKIP: {
-    skip "Requires Date::Simple", 5 unless eval "use Date::Simple; 1; ";
+    skip "Requires Date::Simple 3.03", 5 unless eval "use Date::Simple 3.03; 1; ";
     Lazy->has_a(
         orp     => 'Date::Simple',
         inflate => sub { Date::Simple->new($_[0] . '-01-01') },

Modified: DBIx-Class/0.08/trunk/t/cdbi/testlib/MyFoo.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/testlib/MyFoo.pm	2009-06-02 20:28:12 UTC (rev 6485)
+++ DBIx-Class/0.08/trunk/t/cdbi/testlib/MyFoo.pm	2009-06-03 08:14:51 UTC (rev 6486)
@@ -3,6 +3,8 @@
 
 use base 'MyBase';
 
+use Date::Simple 3.03;
+
 use strict;
 
 __PACKAGE__->set_table();