[Bast-commits] r8046 - DBIx-Class/0.08/trunk/t/schema

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-12-08 13:23:31 +0000 (Tue, 08 Dec 2009)
New Revision: 8046

Modified:
   DBIx-Class/0.08/trunk/t/schema/clone.t
Log:
Fix the test - code is correct

Modified: DBIx-Class/0.08/trunk/t/schema/clone.t
===================================================================
--- DBIx-Class/0.08/trunk/t/schema/clone.t	2009-12-08 13:13:38 UTC (rev 8045)
+++ DBIx-Class/0.08/trunk/t/schema/clone.t	2009-12-08 13:23:31 UTC (rev 8046)
@@ -7,10 +7,7 @@
 
 my $schema = DBICTest->init_schema();
 
-ok ($schema->storage->connected, 'initialized schema connected');
-
 my $clone = $schema->clone;
-ok (!$clone->storage->connected, 'The clone storage is not connected');
-cmp_ok ($clone->storage, 'ne', $schema->storage, 'Storage cloned with schema');
+cmp_ok ($clone->storage, 'eq', $schema->storage, 'Storage copied into new schema (not a new instance)');
 
 done_testing;