Fix 2 stupid omissions in tests
[dbsrgits/DBIx-Class.git] / t / storage / txn.t
index 24d40f1..d48d84b 100644 (file)
@@ -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) {