[p5sagit/Config-Any.git] / t / 63-invalid.t

use strict;
use warnings;

use Test::More tests => 2;

use Config::Any::Perl;

{
    my $file   = 't/conf/conf_invalid.pl';
    my $config = eval { Config::Any::Perl->load( $file ) };

    ok( !$config, 'config load failed' );
    ok( $@, "error thrown ($@)" ); 
}
Commit	Line	Data
8af0a7cf	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5
	6	use Config::Any::Perl;
	7
	8	{
	9	my $file = 't/conf/conf_invalid.pl';
	10	my $config = eval { Config::Any::Perl->load( $file ) };
	11
	12	ok( !$config, 'config load failed' );
	13	ok( $@, "error thrown ($@)" );
	14	}