projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
re-enable all_parameteres collection of first connect
[perl-cwmp.git]
/
t
/
06-queue.t
diff --git
a/t/06-queue.t
b/t/06-queue.t
index
8cdc92b
..
cef5f1c
100755
(executable)
--- a/
t/06-queue.t
+++ b/
t/06-queue.t
@@
-4,20
+4,24
@@
use warnings;
my $debug = shift @ARGV;
my $debug = shift @ARGV;
-use Test::More tests => 25
5
;
+use Test::More tests => 25
6
;
use Data::Dump qw/dump/;
use lib 'lib';
use Data::Dump qw/dump/;
use lib 'lib';
+#use Devel::LeakTrace::Fast;
+
BEGIN {
use_ok('CWMP::Queue');
}
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',
ok( my $obj = CWMP::Queue->new({
id => 'test',
+ dir => "$abs_path/queue",
+ clean => 1,
debug => $debug,
}), 'new' );
isa_ok( $obj, 'CWMP::Queue' );
debug => $debug,
}), 'new' );
isa_ok( $obj, 'CWMP::Queue' );