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

use strict;
use warnings;

use SQL::Abstract::Tree;

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

   print "$sql\n";
   print SQL::Abstract::Tree::format($sql) . "\n";
}

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

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