X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fclauses.t;h=40ad007ec42060ea0fdff4a91c9bd0447b576515;hb=b7516a3a3ffbb07e06b84f712a975b8825cf1698;hp=ffdd506eaca51813b87c90b011ddbf6825fa94d1;hpb=61bcff300732e6865bc3f1e10b9e9a7aeb8dbe09;p=dbsrgits%2FSQL-Abstract.git

diff --git a/xt/clauses.t b/xt/clauses.t
index ffdd506..40ad007 100644
--- a/xt/clauses.t
+++ b/xt/clauses.t
@@ -4,7 +4,10 @@ use Test::More;
 use SQL::Abstract::Test import => [ qw(is_same_sql_bind is_same_sql) ];
 use SQL::Abstract::ExtraClauses;
 
-my $sqlac = SQL::Abstract::ExtraClauses->new(unknown_unop_always_func => 1);
+my $sqlac = SQL::Abstract::ExtraClauses->new(
+  unknown_unop_always_func => 1,
+  lazy_join_sql_parts => 1,
+);
 
 is_deeply(
   [ $sqlac->statement_list ],
@@ -23,6 +26,8 @@ my ($sql, @bind) = $sqlac->select({
   having => { '>' => [ { -count => 'cd.id' }, 3 ] }
 });
 
+::Dwarn([ $sql->formatter->_simplify($sql->to_array), $sql->stringify ]);
+
 is_same_sql_bind(
   $sql, \@bind,
   q{