[Bast-commits] r3142 - in trunk/DBIx-Class-TimeStamp: . t/lib/DBIC

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-03-25 20:04:56 +0100 (Sun, 25 Mar 2007)
New Revision: 3142

Modified:
   trunk/DBIx-Class-TimeStamp/MANIFEST
   trunk/DBIx-Class-TimeStamp/Makefile.PL
   trunk/DBIx-Class-TimeStamp/t/lib/DBIC/Test.pm
Log:
Last round of patches (to get in sync with what is pushed to CPAN)

Modified: trunk/DBIx-Class-TimeStamp/MANIFEST
===================================================================
--- trunk/DBIx-Class-TimeStamp/MANIFEST	2007-03-24 22:39:13 UTC (rev 3141)
+++ trunk/DBIx-Class-TimeStamp/MANIFEST	2007-03-25 19:04:56 UTC (rev 3142)
@@ -20,9 +20,10 @@
 t/05datetime.t
 t/06timestamp.t
 t/07date.t
-t/lib/TimeStampTest.pm
-t/lib/TimeStampTest/Schema.pm
-t/lib/TimeStampTest/Schema/Test.pm
-t/lib/TimeStampTest/Schema/TestDate.pm
-t/lib/TimeStampTest/Schema/TestDatetime.pm
-t/lib/TimeStampTest/Schema/TestTime.pm
+t/lib/DBIC/Test.pm
+t/lib/DBIC/Test/Schema.pm
+t/lib/DBIC/Test/Schema/Test.pm
+t/lib/DBIC/Test/Schema/TestDate.pm
+t/lib/DBIC/Test/Schema/TestDatetime.pm
+t/lib/DBIC/Test/Schema/TestTime.pm
+t/sql/test.sqlite.sql

Modified: trunk/DBIx-Class-TimeStamp/Makefile.PL
===================================================================
--- trunk/DBIx-Class-TimeStamp/Makefile.PL	2007-03-24 22:39:13 UTC (rev 3141)
+++ trunk/DBIx-Class-TimeStamp/Makefile.PL	2007-03-25 19:04:56 UTC (rev 3142)
@@ -6,6 +6,8 @@
 requires 'DateTime';
 requires 'DBIx::Class';
 
+build_requires 'DateTime::Format::MySQL';
+build_requires 'Class::Accessor::Grouped';
 build_requires 'Time::HiRes';
 build_requires 'Time::Warp';
 

Modified: trunk/DBIx-Class-TimeStamp/t/lib/DBIC/Test.pm
===================================================================
--- trunk/DBIx-Class-TimeStamp/t/lib/DBIC/Test.pm	2007-03-24 22:39:13 UTC (rev 3141)
+++ trunk/DBIx-Class-TimeStamp/t/lib/DBIC/Test.pm	2007-03-25 19:04:56 UTC (rev 3142)
@@ -71,7 +71,10 @@
             die $@;
         }
     } else {
-        open IN, catfile('t', 'sql', 'test.sqlite.sql' );
+        unless ( open(IN, catfile('t', 'sql', 'test.sqlite.sql') ) ) {
+            BAIL_OUT("Can't load schema, sorry: $!");
+            return;
+        }
         my $sql;
         { local $/ = undef; $sql = <IN>; }
         close IN;