This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix skip count in cachepropagate-tcp.t
authorCraig A. Berry <craigberry@mac.com>
Sat, 4 Jan 2020 21:35:45 +0000 (15:35 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 4 Jan 2020 21:35:45 +0000 (15:35 -0600)
A new test was added in a section that is skipped when neither
fork nor pseudo-fork is available, so the skip count needs to be
adjusted to match.

dist/IO/t/cachepropagate-tcp.t

index 59a7adc..f59c133 100644 (file)
@@ -26,7 +26,7 @@ my $s = $listener->socktype();
 ok(defined($s), 'type defined');
 
 SKIP: {
-    skip "fork not available", 4
+    skip "fork not available", 5
        unless $Config{d_fork} || $Config{d_pseudofork};
 
     my $cpid = fork();