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

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2008-05-01 00:15:28 +0100 (Thu, 01 May 2008)
New Revision: 4314

Modified:
   DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t
Log:
added test to check when nothing is found

Modified: DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t
===================================================================
--- DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t	2008-04-30 22:50:09 UTC (rev 4313)
+++ DBIx-Class/0.08/branches/replication_dedux/t/93storage_replication.t	2008-04-30 23:15:28 UTC (rev 4314)
@@ -8,7 +8,7 @@
     eval "use Moose";
     plan $@
         ? ( skip_all => 'needs Moose for testing' )
-        : ( tests => 33 );
+        : ( tests => 34 );
 }
 
 use_ok 'DBIx::Class::Storage::DBI::Replicated::Pool';
@@ -225,7 +225,12 @@
 
 is $replicated->schema->storage->pool->connected_replicants => 1
     => "One replicant reconnected to handle the job";
+    
+## What happens when we try to select something that doesn't exist?
 
+ok ! $replicated->schema->resultset('Artist')->find(666)
+    => 'Correctly failed to find something.';
+
 ## Delete the old database files
 $replicated->cleanup;