my $debug = shift @ARGV;
-use Test::More tests => 255;
+use Test::More tests => 256;
use Data::Dump qw/dump/;
use lib 'lib';
+use Devel::LeakTrace::Fast;
+
BEGIN {
use_ok('CWMP::Queue');
}
-#use Cwd qw/abs_path/;
-#ok(my $abs_path = abs_path($0), "abs_path");
-#$abs_path =~ s!/[^/]*$!/!; #!fix-vim
+use Cwd qw/abs_path/;
+ok(my $abs_path = abs_path($0), "abs_path");
+$abs_path =~ s!/[^/]*$!/!; #!fix-vim
ok( my $obj = CWMP::Queue->new({
id => 'test',
+ dir => "$abs_path/queue",
+ clean => 1,
debug => $debug,
}), 'new' );
isa_ok( $obj, 'CWMP::Queue' );