From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 8 Dec 2009 13:13:38 +0000 (+0000)
Subject: Weird test case
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f30e859374060d238fdf1dab7f54a6a3c5753210;p=dbsrgits%2FDBIx-Class-Historic.git

Weird test case
---

diff --git a/t/schema/clone.t b/t/schema/clone.t
new file mode 100644
index 0000000..4ce817f
--- /dev/null
+++ b/t/schema/clone.t
@@ -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;