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