X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fclauses.t;h=85d002db2edc594b01f0fa3181f96059ff3e203e;hb=1601bb47472f6eb2ca3633935bbf3f3399e78604;hp=40ad007ec42060ea0fdff4a91c9bd0447b576515;hpb=07070f1a6db1e1eb4bcac0dbe74b82f8b003cd27;p=scpubgit%2FQ-Branch.git

diff --git a/xt/clauses.t b/xt/clauses.t
index 40ad007..85d002d 100644
--- a/xt/clauses.t
+++ b/xt/clauses.t
@@ -2,13 +2,16 @@ 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(
+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 ],
   [ sort qw(select update insert delete) ],
@@ -26,8 +29,6 @@ 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{