12 unless ( DBICTest::AuthorCheck->is_author || $ENV{AUTOMATED_TESTING} || $ENV{RELEASE_TESTING} ) {
13 plan( skip_all => "Skipping test on plain module install" );
17 my $wait_for = 30; # how many seconds to wait
21 my $tmp = File::Temp->new(
25 EXLOCK => 0, # important for BSD and derivatives
28 my $tmp_fn = $tmp->filename;
31 local $SIG{ALRM} = sub { die sprintf (
32 "Timeout of %d seconds reached (tempfile still open: %s)",
33 $wait_for, $close ? 'No' : 'Yes'
39 my $schema = DBICTest::Schema->connect ("DBI:SQLite:$tmp_fn");
40 DBICTest->deploy_schema ($schema);
41 #DBICTest->populate_schema ($schema);