1 files changed, 187 insertions, 0 deletions
diff --git a/dist/Net-Ping/t/450_service.t b/dist/Net-Ping/t/450_service.t
new file mode 100644
index 0000000000..21e99f2c44
--- /dev/null
+++ b/dist/Net-Ping/t/450_service.t
@@ -0,0 +1,187 @@
+# Testing service_check method using tcp and syn protocols.
+
+BEGIN {
+  unless (eval "require IO::Socket") {
+    print "1..0 \# Skip: no IO::Socket\n";
+    exit;
+  }
+  unless (getservbyname('echo', 'tcp')) {
+    print "1..0 \# Skip: no echo port\n";
+    exit;
+  }
+}
+
+use strict;
+use Test;
+use Net::Ping;
+
+# I'm lazy so I'll just use IO::Socket
+# for the TCP Server stuff instead of doing
+# all that direct socket() junk manually.
+
+plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) :
+		   $^O eq "hpux"    ? (todo => [9, 18]) : ());
+
+# Everything loaded fine
+ok 1;
+
+# Start a tcp listen server on ephemeral port
+my $sock1 = new IO::Socket::INET
+  LocalAddr => "127.0.0.1",
+  Proto => "tcp",
+  Listen => 8,
+  or warn "bind: $!";
+
+# Make sure it worked.
+ok !!$sock1;
+
+# Start listening on another ephemeral port
+my $sock2 = new IO::Socket::INET
+  LocalAddr => "127.0.0.1",
+  Proto => "tcp",
+  Listen => 8,
+  or warn "bind: $!";
+
+# Make sure it worked too.
+ok !!$sock2;
+
+my $port1 = $sock1->sockport;
+ok $port1;
+
+my $port2 = $sock2->sockport;
+ok $port2;
+
+# Make sure the sockets are listening on different ports.
+ok ($port1 != $port2);
+
+$sock2->close;
+
+# This is how it should be:
+# 127.0.0.1:$port1 - service ON
+# 127.0.0.1:$port2 - service OFF
+
+#####
+# First, we test using the "tcp" protocol.
+# (2 seconds should be long enough to connect to loopback.)
+my $p = new Net::Ping "tcp", 2;
+
+# new() worked?
+ok !!$p;
+
+# Disable service checking
+$p->service_check(0);
+
+# Try on the first port
+$p->{port_num} = $port1;
+
+# Make sure it is reachable
+ok $p -> ping("127.0.0.1");
+
+# Try on the other port
+$p->{port_num} = $port2;
+
+# Make sure it is reachable
+ok $p -> ping("127.0.0.1");
+
+
+
+# Enable service checking
+$p->service_check(1);
+
+# Try on the first port
+$p->{port_num} = $port1;
+
+# Make sure service is on
+ok $p -> ping("127.0.0.1");
+
+# Try on the other port
+$p->{port_num} = $port2;
+
+# Make sure service is off
+ok !$p -> ping("127.0.0.1");
+
+# test 11 just finished.
+
+#####
+# Lastly, we test using the "syn" protocol.
+$p = new Net::Ping "syn", 2;
+
+# new() worked?
+ok !!$p;
+
+# Disable service checking
+$p->service_check(0);
+
+# Try on the first port
+$p->{port_num} = $port1;
+
+# Send SYN
+if (!ok $p -> ping("127.0.0.1")) {warn "ERRNO: $!";}
+
+# IP should be reachable
+ok $p -> ack();
+# No more sockets?
+ok !$p -> ack();
+
+###
+# Get a fresh object
+$p = new Net::Ping "syn", 2;
+
+# new() worked?
+ok !!$p;
+
+# Disable service checking
+$p->service_check(0);
+
+# Try on the other port
+$p->{port_num} = $port2;
+
+# Send SYN
+if (!ok $p -> ping("127.0.0.1")) {warn "ERRNO: $!";}
+
+# IP should still be reachable
+ok $p -> ack();
+# No more sockets?
+ok !$p -> ack();
+
+
+###
+# Get a fresh object
+$p = new Net::Ping "syn", 2;
+
+# new() worked?
+ok !!$p;
+
+# Enable service checking
+$p->service_check(1);
+
+# Try on the first port
+$p->{port_num} = $port1;
+
+# Send SYN
+ok $p -> ping("127.0.0.1");
+
+# Should have service on
+ok ($p -> ack(),"127.0.0.1");
+# No more good sockets?
+ok !$p -> ack();
+
+
+###
+# Get a fresh object
+$p = new Net::Ping "syn", 2;
+
+# new() worked?
+ok !!$p;
+
+# Enable service checking
+$p->service_check(1);
+
+# Try on the other port
+$p->{port_num} = $port2;
+
+# Send SYN
+if (!ok $p -> ping("127.0.0.1")) {warn "ERRNO: $!";}
+
+# No sockets should have service on
+ok !$p -> ack();