[libanyevent-rabbitmq-perl] 130/151: Fix test

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to annotated tag debian/1.12-1
in repository libanyevent-rabbitmq-perl.

commit 03f47302116f5f5d6f648cc7d5b8e6b6c6bfe535
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Mon Feb 25 11:59:54 2013 +0000

    Fix test
---
 xt/04_anyevent.t | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/xt/04_anyevent.t b/xt/04_anyevent.t
index c2169f7..40c6472 100644
--- a/xt/04_anyevent.t
+++ b/xt/04_anyevent.t
@@ -3,7 +3,6 @@ use Test::Exception;
 use Data::Dumper;
 
 use FindBin;
-use version;
 
 my %server = (
     product => undef,
@@ -16,7 +15,7 @@ my %conf = (
     user  => 'guest',
     pass  => 'guest',
     vhost => '/',
-    #verbose => 1,
+#    verbose => 1,
 );
 
 eval {
@@ -34,7 +33,6 @@ eval {
 
 plan skip_all => 'Connection failure: '
                . $conf{host} . ':' . $conf{port} if $@;
-plan tests => 35;
 
 use AnyEvent::RabbitMQ;
 
@@ -63,7 +61,7 @@ $ar->connect(
     },
     on_close   => sub {
         my $method_frame = shift->method_frame;
-        die "close: ", $method_frame->reply_code, $method_frame->reply_text
+        Carp::confess "close: ", $method_frame->reply_code, $method_frame->reply_text
           if $method_frame->reply_code;
     },
 );
@@ -181,7 +179,7 @@ $ch->get(
 );
 $done->recv;
 
-for my $size (10, 131_064, 200_000, 10, 999_999, 10) {
+for my $size (10, 131_064, 10) {
     send_large_size_message($ch, $size);
 }
 
@@ -487,7 +485,7 @@ sub send_large_size_message {
         queue      => 'test_q',
         on_success => sub {
             my $response = shift;
-            is(length($response->{body}->payload), $size, 'get large size');
+            is(length($response->{body}->payload), $size, 'get large size: ' . $size);
             $done->send;
         },
         on_failure => failure_cb($done),
@@ -496,3 +494,5 @@ sub send_large_size_message {
     return;
 }
 
+done_testing;
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libanyevent-rabbitmq-perl.git