t/11unparse.t

   1 use strict;
   2 use warnings;
   3
   4 use SQL::Abstract::Tree;
   5
   6 my $sqlat = SQL::Abstract::Tree->new;
   7
   8 {
   9    my $sql = "SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE 'station'";
  10
  11    print "$sql\n";
  12    print $sqlat->format($sql) . "\n";
  13 }
  14
  15 {
  16    my $sql = "SELECT * FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'";
  17
  18    print "$sql\n";
  19    print $sqlat->format($sql) . "\n";
  20 }
  21
  22 # stuff we want:
  23 #    Nested indentation
  24 #    Max Width
  25 #    Color coding (console)
  26 #    Color coding (html)