use lib qw(t/lib);
use DBICTest;
+use DBIx::Class::_Util 'sigwarn_silencer';
BEGIN {
require DBIx::Class;
push @schemas, create_schema({
args => { parser_args => { $parser_args_key => $s } }
});
- } qr/\Qparser_args => {\E.+?is deprecated/,
+ } qr/\Qparser_args => {\E.+?is deprecated.+\Q@{[__FILE__]}/,
"deprecated crazy parser_arg '$parser_args_key' warned";
}
parser => 'SQL::Translator::Parser::YAML'
)->translate(
data => SQL::Translator->new(
- parser_args => { package => $s },
+ parser_args => { dbic_schema => $s },
parser => 'SQL::Translator::Parser::DBIx::Class',
producer => 'SQL::Translator::Producer::YAML',
)->translate
eval <<'EOE' or die $@;
END {
+ # we are in END - everything remains global
+ #
$^W = 1; # important, otherwise DBI won't trip the next fail()
$SIG{__WARN__} = sub {
fail "Unexpected global destruction warning"
lives_ok (sub {
my $sqlt_schema = do {
- local $SIG{__WARN__} = sub {
- warn @_
- unless $_[0] =~ /Ignoring relationship .+ related resultsource .+ is not registered with this schema/
- };
+ local $SIG{__WARN__} = sigwarn_silencer(
+ qr/Ignoring relationship .+ related resultsource .+ is not registered with this schema/
+ );
create_schema({ schema => $partial_schema });
};