1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# 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" ;
|
