[Bast-commits] r4427 - DBIx-Class/0.08/branches/replication_dedux/t

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2008-05-30 01:18:39 +0100 (Fri, 30 May 2008)
New Revision: 4427

Modified:
   DBIx-Class/0.08/branches/replication_dedux/t/03podcoverage.t
   DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t
Log:
fixed failing test in podcoverage, fixed regression in replication test that caused the default fake sqlite replication to fail.  not so important since sqlite doesnt replicate but we do not like to see failing tests.

Modified: DBIx-Class/0.08/branches/replication_dedux/t/03podcoverage.t
===================================================================
--- DBIx-Class/0.08/branches/replication_dedux/t/03podcoverage.t	2008-05-29 23:03:15 UTC (rev 4426)
+++ DBIx-Class/0.08/branches/replication_dedux/t/03podcoverage.t	2008-05-30 00:18:39 UTC (rev 4427)
@@ -98,9 +98,8 @@
 
     'DBIx::Class::Schema::Versioned' => { ignore => [ qw(connection) ] },
 
-# must kill authors.
-
-    'DBIx::Class::Storage::DBI::Replicated' => { skip => 1 },
+# don't bother since it's heavily deprecated
+    'DBIx::Class::ResultSetManager' => { skip => 1 },
 };
 
 foreach my $module (@modules) {

Modified: DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t
===================================================================
--- DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t	2008-05-29 23:03:15 UTC (rev 4426)
+++ DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t	2008-05-30 00:18:39 UTC (rev 4427)
@@ -243,6 +243,8 @@
 ## Make sure all the slaves have the table definitions
 
 $replicated->replicate;
+$replicated->schema->storage->replicants->{$replicant_names[0]}->active(1);
+$replicated->schema->storage->replicants->{$replicant_names[1]}->active(1);
 
 ## Make sure we can read the data.