regularise more code, switch one test from die to warn verification
[dbsrgits/SQL-Abstract.git] / t / 13whitespace_keyword.t
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->pad_keyword($_, 1)};
24    is($r, '', "right is empty for $_");
25    is($l, "\n " . ' ' x $sqlat->indentmap->{$_}, "left calculated correctly for $_" );
26 }
27
28 is($sqlat->pad_keyword('select', 0)->[0], '', 'Select gets no newline or indent for depth 0');
29
30 done_testing;