X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04modifiers.t;h=9a1dfb137bc53e8e318a0538f9bb50944adbb354;hb=70f98e4bba2ff14a3750ef75a9cb1ea575df6acb;hp=a271b3252efe546fc4771bcc84f5319bf7726d7e;hpb=7384c311d4543bf5d3cd6a1698a255c2e0153120;p=scpubgit%2FQ-Branch.git diff --git a/t/04modifiers.t b/t/04modifiers.t index a271b32..9a1dfb1 100644 --- a/t/04modifiers.t +++ b/t/04modifiers.t @@ -428,7 +428,7 @@ for my $case (@numbered_mods) { local $SIG{__WARN__} = sub { push @w, @_ }; my $sql = SQL::Abstract->new($case->{args} || {}); - { + lives_ok { my ($old_s, @old_b) = $sql->where($case->{backcompat}); my ($new_s, @new_b) = $sql->where($case->{correct}); is_same_sql_bind(