Re: Net::Ping 2.23 t/450_service.t

[Dan Kogai]

On Tuesday, Oct 22, 2002, at 01:51 Asia/Tokyo, Rob Brown wrote:

Version 2.22 and 2.23 both had this bug. I've changed
the IPs to [127.0.0.1] for version Net-Ping-2.24. Can I
always assume THAT can be bind()ed to? It's in cvs:

cvs -z3 -q -d :pserver:[EMAIL PROTECTED]:/usr/local/cvsroot/freeware checkout Net-Ping
cd Net-Ping
perl Makefile.PL
make
perl -Iblib t/450_service.t
make test

Please let me know if this breaks before I waste another
version burning it up to CPAN. I do not have a Irix nor
Solaris nor a PowerBook G4 box to test it on.

Also thanks to Dan the Man for the most helpful feedback.

Rob Brown
CPANID: BBB

I'm sorry. It's still not good enough. MacOS X is now all right but not on my FreeBSD boxy (4.7-release). I suspect NetBSD and OpenBSD will fail. Here is what's going on;

> perl -Mblib t/450_service.t
1..26
# Running under perl version 5.008 for freebsd
# Current time local: Mon Oct 21 17:08:44 2002
# Current time GMT:   Tue Oct 22 02:08:44 2002
# Using Test.pm version 1.22
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
not ok 17
# Failed test 17 in t/450_service.t at line 142
#  t/450_service.t line 142 is: ok $p -> ping("127.0.0.1");
not ok 18
# Failed test 18 in t/450_service.t at line 145
#  t/450_service.t line 145 is: ok $p -> ack();
ok 19
ok 20
ok 21
ok 22
ok 23
ok 24
not ok 25
# Failed test 25 in t/450_service.t at line 186
#  t/450_service.t line 186 is: ok $p -> ping("127.0.0.1");
ok 26

It appears that they are all releated to "syn".

I still believe this 450_service should be optional, not compulsory. Consider the possibility someone tries to install your module on a machine that also acts as a firewall....

Dan the Man with Too Many Ports Open Already