The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use Test::More 'no_plan';

BEGIN {
use_ok( 'Config::Context' );
}

diag( "Testing Config::Context $Config::Context::VERSION" );

my $conf;
eval {
    $conf = Config::Context->new(
        driver => 'foo',
        borgle => 1
    );
};
like($@, qr/borgle/, 'caught bad param');

eval {
    $conf = Config::Context->new(
    );
};
like($@, qr/driver/,   'driver param required (2)');
like($@, qr/required/, 'driver param required (1)');

eval {
    $conf = Config::Context->new(
        driver => 'foo',
    );
};
like($@, qr/driver/, 'caught bad driver (1)');
like($@, qr/foo/,    'caught bad driver (2)');

eval {
    $conf = Config::Context->new(
        driver => 'ConfigGeneral',
    );
};


like($@, qr/required/, 'caught missing config, string, file (1)');
like($@, qr/string/,   'caught missing config, string, file (2)');
like($@, qr/file/,     'caught missing config, string, file (3)');
like($@, qr/config/,   'caught missing config, string, file (4)');