package dbixcsl_dumper_tests;
use strict;
+use warnings;
use Test::More;
use File::Path;
use IPC::Open3;
no strict 'refs';
@{$schema_class . '::ISA'} = ('DBIx::Class::Schema::Loader');
$schema_class->loader_options(
- quiet => 1,
- %{$tdata{options}},
+ quiet => 1,
+ %{$tdata{options}},
);
my @warns;
my $check_warns = $tdata{warnings};
is(@$warns, @$check_warns, "$schema_class warning count")
- or diag @$warns;
+ or diag @$warns;
for(my $i = 0; $i <= $#$check_warns; $i++) {
like(($warns->[$i] || ''), $check_warns->[$i], "$schema_class warning $i");