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

# test module loading

use strict ;
use warnings ;

use Test::NoWarnings ;

use Test::More qw(no_plan);
use Test::Exception ;

BEGIN { use_ok( 'Eval::Context' ) or BAIL_OUT("Can't load module"); } ;

my $object = new Eval::Context ;

is(defined $object, 1, 'default constructor') ;
isa_ok($object, 'Eval::Context');

my $new_config = $object->new() ;
is(defined $new_config, 1, 'constructed from object') ;
isa_ok($new_config , 'Eval::Context');


dies_ok
	{
	Eval::Context::new () ;
	} "invalid constructor" ;