xt/extra/internals/dbictest_unlink_guard.t

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