trunk/t/_MODULE.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = shift @ARGV;

use Test::More tests => 3;
use Data::Dump qw/dump/;
use lib 'lib';

BEGIN {
        use_ok('CWMP::_MODULE');
}

ok( my $obj = CWMP::_MODULE->new({
        debug => $debug,
}), 'new' );
isa_ok( $obj, 'CWMP::_MODULE' );

1	dpavlin	73	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7			use Test::More tests => 3;
8			use Data::Dump qw/dump/;
9			use lib 'lib';
10
11			BEGIN {
12			use_ok('CWMP::_MODULE');
13			}
14
15			ok( my $obj = CWMP::_MODULE->new({
16			debug => $debug,
17			}), 'new' );
18			isa_ok( $obj, 'CWMP::_MODULE' );
19