X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F06-queue.t;h=8cdc92b2ad6b8468c6e4e216598d29949bf1f4f4;hb=5d739fbf3bb8900d1e6bd08289632bdf15f98f97;hp=e8cfe3e6a986b836249797c82ec42f8043728f4a;hpb=b7d41b116145fb3ae84f32e493ef7a7b1fad4da7;p=perl-cwmp.git

diff --git a/t/06-queue.t b/t/06-queue.t
index e8cfe3e..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 => 129;
+use Test::More tests => 255;
 use Data::Dump qw/dump/;
 use lib 'lib';
 
@@ -24,15 +24,22 @@ isa_ok( $obj, 'CWMP::Queue' );
 
 for my $i ( 1 .. 42 ) {
 	ok( $obj->enqueue(
-		i => $i,
-		foo => 'bar',
+		"command-$i",
+		{
+			i => $i,
+			foo => 'bar',
+		}
 	), "enqueue $i" );
 };
 
 my $i = 1;
 
-while ( my $data = $obj->dequeue ) {
-	ok( $data, "dequeue $i" );
-	cmp_ok( $data->{i}, '==', $i, "i == $i" );
+while ( my $job = $obj->dequeue ) {
+	ok( $job, "dequeue $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++;
 }