AnyEvent-FastPing/t/01_ping.t

BEGIN { $> and do { print "1..0 # skipped: will only run ping tests as root\n"; exit } }

print "1..4\n";

use strict;

use AnyEvent;
use AnyEvent::FastPing;

my $done = AnyEvent->condvar;

print "ok 1\n";

AnyEvent::FastPing::icmp_ping
   [[v127.0.0.1, v127.0.0.255], [v127.0.1.1, v127.0.1.5, 0.05]], 0, 0,
   sub { print "ok 3\n"; $done->broadcast };

print "ok 2\n";

$done->wait;

print "ok 4\n";
Revision:	1.3
Committed:	Sun Apr 27 15:43:51 2008 UTC (18 years, 4 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_1, rel-1_0, rel-1_15, rel-1_14, rel-1_11, rel-1_13, rel-1_12
Changes since 1.2:	+2 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.2	BEGIN { $> and do { print "1..0 # skipped: will only run ping tests as root\n"; exit } }
2
3	root	1.1	print "1..4\n";
4
5			use strict;
6
7			use AnyEvent;
8	root	1.3	use AnyEvent::FastPing;
9	root	1.1
10			my $done = AnyEvent->condvar;
11
12			print "ok 1\n";
13
14	root	1.3	AnyEvent::FastPing::icmp_ping
15	root	1.1	[[v127.0.0.1, v127.0.0.255], [v127.0.1.1, v127.0.1.5, 0.05]], 0, 0,
16			sub { print "ok 3\n"; $done->broadcast };
17
18			print "ok 2\n";
19
20			$done->wait;
21
22			print "ok 4\n";