use strict;
use warnings;
use Test::More;
use SQL::Abstract::Tree;
my $tree = SQL::Abstract::Tree->new({
   profile  => 'console',
   colormap => {
      select     => undef,
      'group by' => ['yo', 'seph'] ,
   },
});
is $tree->newline, "\n", 'console profile appears to have been used';
ok !defined $tree->colormap->{select}, 'select correctly got undefined from colormap';
ok eq_array($tree->colormap->{'group by'}, [qw(yo seph)]), 'group by correctly got overridden';
ok ref $tree->colormap->{'order by'}, 'but the rest of the colormap does not get blown away';
done_testing;