Commit | Line | Data |
574d9b69 |
1 | use warnings; |
2 | use strict; |
3 | |
4 | use Test::More; |
5 | use lib 't/lib'; |
6 | use DBICTest; |
7 | |
8 | # Once upon a time there was a problem with a leaking $sth |
9 | # which in turn delayed the $dbh destruction, which in turn |
10 | # made the inode comaprison fire at the wrong time |
11 | # This simulates the problem without doing much else |
12 | for (1..2) { |
13 | my $schema = DBICTest->init_schema( sqlite_use_file => 1 ); |
14 | $schema->storage->ensure_connected; |
15 | isa_ok ($schema, 'DBICTest::Schema'); |
16 | } |
17 | |
18 | done_testing; |
19 | |