another fix for refresh and report errors

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