[dbsrgits/SQL-Abstract.git] / t / 13whitespace_keyword.t

use strict;
use warnings;

use Test::More;
use SQL::Abstract::Tree;

my $sqlat = SQL::Abstract::Tree->new({
	newline => "\n",
	indent_string => " ",
	indent_amount => 1,
	indentmap => {
      select     => 0,
      where      => 1,
      from       => 2,
      join       => 3,
      on         => 4,
      'group by' => 5,
      'order by' => 6,
	},
});

for ( keys %{$sqlat->indentmap}) {
	my ($l, $r) = @{$sqlat->whitespace($_, 1)};
	is($r, ' ', "right is a space for $_");
	is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
}

is($sqlat->whitespace('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');

done_testing;
Commit	Line	Data
b4e0e260	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use SQL::Abstract::Tree;
	6
	7	my $sqlat = SQL::Abstract::Tree->new({
	8	newline => "\n",
	9	indent_string => " ",
	10	indent_amount => 1,
	11	indentmap => {
	12	select => 0,
	13	where => 1,
	14	from => 2,
	15	join => 3,
	16	on => 4,
	17	'group by' => 5,
	18	'order by' => 6,
	19	},
	20	});
	21
	22	for ( keys %{$sqlat->indentmap}) {
	23	my ($l, $r) = @{$sqlat->whitespace($_, 1)};
	24	is($r, ' ', "right is a space for $_");
	25	is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
	26	}
	27
	28	is($sqlat->whitespace('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
	29
	30	done_testing;