5 use SQL::Abstract::Tree;
7 my $sqlat = SQL::Abstract::Tree->new({
8 profile => 'console_monochrome',
12 my $sql = "SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE 'station'";
14 qq{SELECT a, b, c \n} .
16 qq{ WHERE foo.a = 1 AND foo.b LIKE 'station' };
17 is($sqlat->format($sql), $expected_sql,
18 'simple statement formatted correctly'
23 my $sql = "SELECT * FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'";
30 qq{ WHERE foo.a = 1 AND foo.b LIKE 'station' };
32 is($sqlat->format($sql), $expected_sql,
33 'subquery statement formatted correctly'
38 my $sql = "SELECT * FROM lolz WHERE ( foo.a =1 ) and foo.b LIKE 'station'";
42 qq{ WHERE (foo.a = 1) AND foo.b LIKE 'station' };
44 is($sqlat->format($sql), $expected_sql,
45 'simple statement with parens in where formatted correctly'
53 # Color coding (console)