Put in place deprecation forgotten for several years

[dbsrgits/DBIx-Class.git] / t / sqlmaker / legacy_joins.t

diff --git a/t/sqlmaker/legacy_joins.t b/t/sqlmaker/legacy_joins.t
index 5d17e99..1c93c35 100644 (file)
--- a/t/sqlmaker/legacy_joins.t
+++ b/t/sqlmaker/legacy_joins.t
@@ -4,10 +4,13 @@ use warnings;
 use Test::More;
 use lib qw(t/lib);
 use DBICTest ':DiffSQL';
+use DBIx::Class::_Util 'sigwarn_silencer';
 
 use DBIx::Class::SQLMaker;
 my $sa = DBIx::Class::SQLMaker->new;
 
+$SIG{__WARN__} = sigwarn_silencer( qr/\Q{from} structures with conditions not conforming to the SQL::Abstract syntax are deprecated/ );
+
 my @j = (
     { child => 'person' },
     [ { father => 'person' }, { 'father.person_id' => 'child.father_id' }, ],