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) = @_;
year => 2006,
}) foreach (@cd_titles);
- return $artist->cds;
+ return $artist->cds->all;
};
# Test checking of parameters
my @pids;
my $guard = $schema->txn_scope_guard;
- _forking_action ($schema);
+ @pids = _forking_action ($schema);
$guard->commit;
for my $pid (@pids) {