X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fzzzzzzz_sqlite_deadlock.t;h=ebc18a901586ab9281558230f5826808b774fbc6;hb=366c2b1054bced0154781828218b3b189177d5e7;hp=080d31cf1e4f6ebede7ff7e70fb2f89bb3bea238;hpb=6914a192411468bb5c27368c661ef754cb856712;p=dbsrgits%2FDBIx-Class.git diff --git a/t/zzzzzzz_sqlite_deadlock.t b/t/zzzzzzz_sqlite_deadlock.t index 080d31c..ebc18a9 100644 --- a/t/zzzzzzz_sqlite_deadlock.t +++ b/t/zzzzzzz_sqlite_deadlock.t @@ -9,14 +9,18 @@ use File::Temp (); use DBICTest; use DBICTest::Schema; -plan skip_all => 'Fails on mac os *only*. Devs notified. Do not enable.'; - plan tests => 2; -my $wait_for = 10; # how many seconds to wait +my $wait_for = 30; # how many seconds to wait for my $close (0,1) { - my $tmp = File::Temp->new( UNLINK => 1, TMPDIR => 1, SUFFIX => '.sqlite' ); + my $tmp = File::Temp->new( + UNLINK => 1, + TMPDIR => 1, + SUFFIX => '.sqlite', + EXLOCK => 0, # important for BSD and derivatives + ); + my $tmp_fn = $tmp->filename; close $tmp if $close; @@ -30,7 +34,7 @@ for my $close (0,1) { lives_ok (sub { my $schema = DBICTest::Schema->connect ("DBI:SQLite:$tmp_fn"); DBICTest->deploy_schema ($schema); - DBICTest->populate_schema ($schema); + #DBICTest->populate_schema ($schema); }); alarm 0;