X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Ftxn.t;h=d48d84bef7cf5e62ec728a0da60501a536cf2b82;hb=7672675a2bafc1ddc0bd4237c01c36acfdcda71c;hp=24d40f12e4bd89b74d4f87395f81c716a8f44e8b;hpb=471a5fddd105be3f526ab3be978dc74f6b990609;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/storage/txn.t b/t/storage/txn.t
index 24d40f1..d48d84b 100644
--- a/t/storage/txn.t
+++ b/t/storage/txn.t
@@ -7,6 +7,9 @@ use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;
 
+plan skip_all => 'Disabled on windows, pending resolution of DBD::SQLite SIGSEGVs'
+  if $^O eq 'MSWin32';
+
 my $code = sub {
   my ($artist, @cd_titles) = @_;
 
@@ -15,7 +18,7 @@ my $code = sub {
     year => 2006,
   }) foreach (@cd_titles);
 
-  return $artist->cds;
+  return $artist->cds->all;
 };
 
 # Test checking of parameters
@@ -191,7 +194,7 @@ for my $want (0,1) {
 
     my @pids;
     my $guard = $schema->txn_scope_guard;
-    _forking_action ($schema);
+    @pids = _forking_action ($schema);
     $guard->commit;
 
     for my $pid (@pids) {