Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix end_to_end.t test failure with Test::Net::RabbitMQ >= 0.07

  • Loading branch information...
commit 806b9666041c55a70ddac6dcff2bce606a88cd20 1 parent dd68f60
@abraxxa authored
Showing with 24 additions and 3 deletions.
  1. +1 −0  Changes
  2. +1 −1  dist.ini
  3. +22 −2 t/end_to_end.t
View
1  Changes
@@ -2,6 +2,7 @@
- simplify connection cache key generation
- remove obscure hash slice syntax since _connect_cached only returns one
arg anyway
+ - fix end_to_end.t test failure with Test::Net::RabbitMQ >= 0.07
0.102030 2010-07-22 08:47:59 EDT
- no real changes to the code, just the build
View
2  dist.ini
@@ -39,7 +39,7 @@ format = -- %-9v %{yyyy-MM-dd HH:mm:ss VVV}d
; Prereqs missed by AutoPrereq
[Prereqs]
-Test::Net::RabbitMQ = 0
+Test::Net::RabbitMQ = 0.09
; Pick a version Number based on the day
[AutoVersion]
View
24 t/end_to_end.t
@@ -53,7 +53,27 @@ $logger->debug("debugging message 1 ");
ok(! defined $mq->recv(), "debug lvl ignored as per config");
$logger->info("info message 1 ");
-is($mq->recv(), "INFO>info message 1 \n", "info message sent to Rabbit with proper format");
+is_deeply(
+ $mq->recv(),
+ {
+ body => "INFO>info message 1 \n",
+ routing_key => 'myqueue',
+ exchange => 'myexchange',
+ delivery_tag => 1,
+ consumer_tag => '',
+ props => undef,
+ },
+ "info message sent to Rabbit with proper format");
$logger->warn("warning message 1 ");
-is($mq->recv(), "WARN>warning message 1 \n", "warn message sent to Rabbit with proper format");
+is_deeply(
+ $mq->recv(),
+ {
+ body => "WARN>warning message 1 \n",
+ routing_key => 'myqueue',
+ exchange => 'myexchange',
+ delivery_tag => 2,
+ consumer_tag => '',
+ props => undef,
+ },
+ "warn message sent to Rabbit with proper format");
Please sign in to comment.
Something went wrong with that request. Please try again.