[scpubgit/Q-Branch.git] / t / 12confmerge.t

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;
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;