initial profile and configuration support

[scpubgit/Q-Branch.git] / t / 11unparse.t

diff --git a/t/11unparse.t b/t/11unparse.t
index a865416..97eb5b7 100644 (file)
--- a/t/11unparse.t
+++ b/t/11unparse.t
@@ -3,7 +3,7 @@ use warnings;
 
 use SQL::Abstract::Tree;
 
-my $sqlat = SQL::Abstract::Tree->new;
+my $sqlat = SQL::Abstract::Tree->new({ profile => 'console' });
 
 {
    my $sql = "SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE 'station'";