[dbsrgits/DBIx-Class.git] / xt / extra / internals / dbictest_unlink_guard.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use warnings;
use strict;

use Test::More;

use DBICTest;

# Once upon a time there was a problem with a leaking $sth
# which in turn delayed the $dbh destruction, which in turn
# made the inode comaprison fire at the wrong time
# This simulates the problem without doing much else
for (1..2) {
  my $schema = DBICTest->init_schema( sqlite_use_file => 1 );
  $schema->storage->ensure_connected;
  isa_ok ($schema, 'DBICTest::Schema');
}

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
574d9b69	3	use warnings;
	4	use strict;
	5
	6	use Test::More;
c0329273	7
574d9b69	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