[libanyevent-handle-udp-perl] 12/60: Test receiving on handle more

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository libanyevent-handle-udp-perl.

commit 6754dda81b4e27660649dffe7339e992a74731c9
Author: Leon Timmermans <fawaka at gmail.com>
Date:   Tue Feb 14 22:45:55 2012 +0100

    Test receiving on handle more
---
 t/10-basics.t |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/10-basics.t b/t/10-basics.t
index 9ad90fe..4e1c429 100644
--- a/t/10-basics.t
+++ b/t/10-basics.t
@@ -2,7 +2,7 @@
 
 use strict;
 use warnings FATAL => 'all';
-use Test::More tests => 2;
+use Test::More tests => 3;
 use AnyEvent::Handle::UDP;
 use IO::Socket::INET;
 
@@ -20,6 +20,7 @@ alarm 3;
 	my $cb = AE::cv;
 	my $server = AnyEvent::Handle::UDP->new(bind => [ localhost => 1383 ], on_recv => sub {
 		my ($message, $handle, $client_addr) = @_;
+		is($message, "Hello", "received \"Hello\"");
 		$handle->push_send("World", $client_addr);
 	});
 	my $client = AnyEvent::Handle::UDP->new(connect => [ localhost => 1383 ], on_recv => $cb);

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