t/schema/clone.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use lib qw(t/lib);
   6 use DBICTest;
   7
   8 my $schema = DBICTest->init_schema();
   9
  10 ok ($schema->storage->connected, 'initialized schema connected');
  11
  12 my $clone = $schema->clone;
  13 ok (!$clone->storage->connected, 'The clone storage is not connected');
  14 cmp_ok ($clone->storage, 'ne', $schema->storage, 'Storage cloned with schema');
  15
  16 done_testing;