Commit | Line | Data |
2fed0b4b |
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; |