r200@brr: dpavlin | 2007-11-12 21:56:04 +0100

[perl-cwmp.git] / t / 06-queue.t

diff --git a/t/06-queue.t b/t/06-queue.t
new file mode 100755 (executable)
index 0000000..e8cfe3e
--- /dev/null
+++ b/t/06-queue.t
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $debug = shift @ARGV;
+
+use Test::More tests => 129;
+use Data::Dump qw/dump/;
+use lib 'lib';
+
+BEGIN {
+       use_ok('CWMP::Queue');
+}
+
+#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',
+       debug => $debug,
+}), 'new' );
+isa_ok( $obj, 'CWMP::Queue' );
+
+for my $i ( 1 .. 42 ) {
+       ok( $obj->enqueue(
+               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" );
+       $i++;
+}