X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fzzzzzzz_sqlite_deadlock.t;h=e48baa25c97dd788ae44d231d8fd14568d7f573b;hb=c23f3cf145aea91ebb0881ac31e1b2593c84232a;hp=268fdaac5b8eb0c6cdaacb5985685aa7f54127af;hpb=48d2c1ea89b1346f1a77f76b9bdedea432021fa0;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/zzzzzzz_sqlite_deadlock.t b/t/zzzzzzz_sqlite_deadlock.t
index 268fdaa..e48baa2 100644
--- a/t/zzzzzzz_sqlite_deadlock.t
+++ b/t/zzzzzzz_sqlite_deadlock.t
@@ -12,11 +12,15 @@ use DBICTest::Schema;
 plan tests => 2;
 my $wait_for = 10;  # how many seconds to wait
 
-$TODO = "This seems to be a DBD::SQLite problem, don't test for now";
-
 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;