Weird test case

diff --git a/t/schema/clone.t b/t/schema/clone.t
new file mode 100644 (file)
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;