use FindBin;
my $path = $FindBin::RealBin . '/etc';
use Test::More tests => 10;
use App::Rad;
# kids, don't try this at home...
my $c = {};
bless $c, 'App::Rad';
$c->_init();
$c->load_config("$path/config1.txt");
$c->load_config("$path/config1.txt",
"$path/config2.txt"
);
$c->config->{'oito'} = 'eight';
is(keys( %{$c->config} ), 9, 'load_config() should have loaded 9 unique elements');
is($c->config->{'um' }, 'one' , 'config value mismatch');
is($c->config->{'dois' }, 'two' , 'config value mismatch');
is($c->config->{'tres' }, 'three', 'config value mismatch');
is($c->config->{'quatro'}, 'four' , 'config value mismatch');
is($c->config->{'cinco' }, 'sinc' , 'config value mismatch');
is($c->config->{'seis' }, 'six' , 'config value mismatch');
ok(exists $c->config->{'sete'}, 'unary values must exist');
is($c->config->{'oito' }, 'eight', 'should be able to define values in running code');
is($c->config->{'text' }, 'the quick brown fox jumps over the lazy dog', 'strings should be set correctly');