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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-08-21 20:52:09 +0100 (Tue, 21 Aug 2007)
New Revision: 3703

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/t/cdbi-t/11-triggers.t
Log:
force CDBICompat deps for developers, fix tests to work with latest Class::Trigger

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2007-08-21 19:17:22 UTC (rev 3702)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2007-08-21 19:52:09 UTC (rev 3703)
@@ -29,9 +29,11 @@
 
 tests "t/*.t t/*/*.t";
 
-# re-build README if we're in an svk checkout
-if( -e 'MANIFEST.SKIP' ) {
-    system('pod2text lib/DBIx/Class.pm > README');
+# re-build README and require CDBI modules for testing if we're in a checkout
+if( -e 'inc/.author' ) {
+  build_requires 'DBIx::ContextualFetch';
+  build_requires 'Class::Trigger';
+  system('pod2text lib/DBIx/Class.pm > README');
 }
 
 auto_provides;

Modified: DBIx-Class/0.08/trunk/t/cdbi-t/11-triggers.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi-t/11-triggers.t	2007-08-21 19:17:22 UTC (rev 3702)
+++ DBIx-Class/0.08/trunk/t/cdbi-t/11-triggers.t	2007-08-21 19:52:09 UTC (rev 3703)
@@ -25,13 +25,11 @@
 
 sub default_rating { $_[0]->Rating(15); }
 
-Film->add_trigger(
-	before_create => \&default_rating,
-	after_create  => \&create_trigger2,
-	after_delete  => \&delete_trigger,
-	before_update => \&pre_up_trigger,
-	after_update  => \&pst_up_trigger,
-);
+Film->add_trigger(before_create => \&default_rating);
+Film->add_trigger(after_create  => \&create_trigger2);
+Film->add_trigger(after_delete  => \&delete_trigger);
+Film->add_trigger(before_update => \&pre_up_trigger);
+Film->add_trigger(after_update  => \&pst_up_trigger);
 
 ok(
 	my $ver = Film->create({