xt/dbictest_unlink_guard.t

   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