X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=t%2F06-queue.t;h=cef5f1c86038896d406ca84803ccee7706241457;hp=8cdc92b2ad6b8468c6e4e216598d29949bf1f4f4;hb=485fd0158e5c7ab2f5bf72f8f3f815dee57e8e44;hpb=6ae55ee7caaa8c33a10a983dcc3b50928eb52914

diff --git a/t/06-queue.t b/t/06-queue.t
index 8cdc92b..cef5f1c 100755
--- 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' );