13 my $wait_for = 10; # how many seconds to wait
17 my $tmp = File::Temp->new(
21 EXLOCK => 0, # important for BSD and derivatives
24 my $tmp_fn = $tmp->filename;
27 local $SIG{ALRM} = sub { die sprintf (
28 "Timeout of %d seconds reached (tempfile still open: %s)",
29 $wait_for, $close ? 'No' : 'Yes'
35 my $schema = DBICTest::Schema->connect ("DBI:SQLite:$tmp_fn");
36 DBICTest->deploy_schema ($schema);
37 #DBICTest->populate_schema ($schema);