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');
}

#use Cwd qw/abs_path/;
#ok(my $abs_path = abs_path($0), "abs_path");
#$abs_path =~ s!/[^/]*$!/!;     #!fix-vim

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

1	#!/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	#use Cwd qw/abs_path/;
16	#ok(my $abs_path = abs_path($0), "abs_path");
17	#$abs_path =~ s!/[^/]*$!/!; #!fix-vim
18
19	ok( my $obj = CWMP::_MODULE->new({
20	debug => $debug,
21	}), 'new' );
22	isa_ok( $obj, 'CWMP::_MODULE' );
23