13 my $wait_for = 10; # how many seconds to wait
15 # Fails on mac os *only*. Do not enable
16 $TODO = "This seems to be a DBD::SQLite problem, don't test for now";
20 my $tmp = File::Temp->new( UNLINK => 1, TMPDIR => 1, SUFFIX => '.sqlite' );
21 my $tmp_fn = $tmp->filename;
24 local $SIG{ALRM} = sub { die sprintf (
25 "Timeout of %d seconds reached (tempfile still open: %s)",
26 $wait_for, $close ? 'No' : 'Yes'
32 my $schema = DBICTest::Schema->connect ("DBI:SQLite:$tmp_fn");
33 DBICTest->deploy_schema ($schema);
34 DBICTest->populate_schema ($schema);