Fix the binop leg of the parser to correctly consider only a single LHS node
[scpubgit/Q-Branch.git] / t / 12confmerge.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5
6 use SQL::Abstract::Tree;
7
8 my $tree = SQL::Abstract::Tree->new({
9    profile  => 'console',
10    colormap => {
11       select     => undef,
12       'group by' => ['yo', 'seph'] ,
13    },
14 });
15
16 is $tree->newline, "\n", 'console profile appears to have been used';
17 ok !defined $tree->colormap->{select}, 'select correctly got undefined from colormap';
18
19 ok eq_array($tree->colormap->{'group by'}, [qw(yo seph)]), 'group by correctly got overridden';
20 ok ref $tree->colormap->{'order by'}, 'but the rest of the colormap does not get blown away';
21
22 done_testing;