Commit | Line | Data |
---|---|---|
f30e8593 | 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; |