X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fclauses.t;h=85d002db2edc594b01f0fa3181f96059ff3e203e;hb=df5d050778086f74e7e2701e5ea5eb988164f88f;hp=ffdd506eaca51813b87c90b011ddbf6825fa94d1;hpb=48b71e3b7c1fb4e370236037cf914c8034d0ab80;p=scpubgit%2FQ-Branch.git diff --git a/xt/clauses.t b/xt/clauses.t index ffdd506..85d002d 100644 --- a/xt/clauses.t +++ b/xt/clauses.t @@ -2,9 +2,15 @@ use strict; use warnings; use Test::More; use SQL::Abstract::Test import => [ qw(is_same_sql_bind is_same_sql) ]; +use SQL::Abstract; use SQL::Abstract::ExtraClauses; -my $sqlac = SQL::Abstract::ExtraClauses->new(unknown_unop_always_func => 1); +my $sqlac = SQL::Abstract->new( + unknown_unop_always_func => 1, + lazy_join_sql_parts => 1, +); + +SQL::Abstract::ExtraClauses->apply_to($sqlac); is_deeply( [ $sqlac->statement_list ],