mark 450_service.t#18 as a todo test on windows

p4raw-id: //depot/perl@19724

diff --git a/lib/Net/Ping/t/450_service.t b/lib/Net/Ping/t/450_service.t
index c41b84b..006bf64 100644 (file)
--- a/lib/Net/Ping/t/450_service.t
+++ b/lib/Net/Ping/t/450_service.t
@@ -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;