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

use strict;
use warnings;

use SQL::Abstract::Tree;

my $sqlat = SQL::Abstract::Tree->new;

{
   my $sql = "SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE 'station'";

   print "$sql\n";
   print $sqlat->format($sql) . "\n";
}

{
   my $sql = "SELECT * FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'";

   print "$sql\n";
   print $sqlat->format($sql) . "\n";
}

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