X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F06-queue.t;h=8cdc92b2ad6b8468c6e4e216598d29949bf1f4f4;hb=71970361377c34791fd6e7970a32fd2ba345d8bc;hp=e56b93e89deb4d037567177246a6324c93a3b03c;hpb=fec1acf5d1dfce1a661535d2b40b0e9d97de6005;p=perl-cwmp.git

diff --git a/t/06-queue.t b/t/06-queue.t
index e56b93e..8cdc92b 100755
--- a/t/06-queue.t
+++ b/t/06-queue.t
@@ -4,7 +4,7 @@ use warnings;
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 213;
+use Test::More tests => 255;
 use Data::Dump qw/dump/;
 use lib 'lib';
 
@@ -23,18 +23,23 @@ ok( my $obj = CWMP::Queue->new({
 isa_ok( $obj, 'CWMP::Queue' );
 
 for my $i ( 1 .. 42 ) {
-	ok( $obj->enqueue({
-		i => $i,
-		foo => 'bar',
-	}), "enqueue $i" );
+	ok( $obj->enqueue(
+		"command-$i",
+		{
+			i => $i,
+			foo => 'bar',
+		}
+	), "enqueue $i" );
 };
 
 my $i = 1;
 
 while ( my $job = $obj->dequeue ) {
 	ok( $job, "dequeue $i" );
-	ok( my $dispatch = $job->dispatch, "dispatch $i" );
-	cmp_ok( $dispatch->{i}, '==', $i, "i == $i" );
+	ok( my ( $dispatch, $args ) = $job->dispatch, "job->dispatch $i" );
+	cmp_ok( $dispatch, 'eq', "command-$i", "dispatch $i" );
+	diag "args = ",dump( $args ) if $debug;
+	cmp_ok( $args->{i}, '==', $i, "args i == $i" );
 	ok( $job->finish, "finish $i" );
 	$i++;
 }