13 my $wait_for = 10; # how many seconds to wait
17 my $tmp = File::Temp->new( UNLINK => 1, TMPDIR => 1, SUFFIX => '.sqlite' );
18 my $tmp_fn = $tmp->filename;
21 local $SIG{ALRM} = sub { die sprintf (
22 "Timeout of %d seconds reached (tempfile still open: %s)",
23 $wait_for, $close ? 'No' : 'Yes'
29 my $schema = DBICTest::Schema->connect ("DBI:SQLite:$tmp_fn");
31 DBICTest->deploy_schema ($schema);
32 DBICTest->populate_schema ($schema);