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;