[Bast-commits] r8045 - in DBIx-Class/0.08/trunk/t: . schema

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-12-08 13:13:38 +0000 (Tue, 08 Dec 2009)
New Revision: 8045

Added:
   DBIx-Class/0.08/trunk/t/schema/
   DBIx-Class/0.08/trunk/t/schema/clone.t
Log:
Weird test case

Added: DBIx-Class/0.08/trunk/t/schema/clone.t
===================================================================
--- DBIx-Class/0.08/trunk/t/schema/clone.t	                        (rev 0)
+++ DBIx-Class/0.08/trunk/t/schema/clone.t	2009-12-08 13:13:38 UTC (rev 8045)
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use Test::More;
+
+use lib qw(t/lib);
+use DBICTest;
+
+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');
+
+done_testing;