This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mark 450_service.t#18 as a todo test on windows
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 9 Jun 2003 18:17:42 +0000 (18:17 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 9 Jun 2003 18:17:42 +0000 (18:17 +0000)
p4raw-id: //depot/perl@19724

lib/Net/Ping/t/450_service.t

index c41b84b..006bf64 100644 (file)
@@ -19,7 +19,7 @@ use Net::Ping;
 # for the TCP Server stuff instead of doing
 # all that direct socket() junk manually.
 
-plan tests => 26;
+plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) : ());
 
 # Everything loaded fine
 ok 1;