add test case with fork to see how it behaves on Windows

mjgardner · Feb 22, 2021 · b0286fa · b0286fa
1 parent f3c62cf
commit b0286fa
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/t/80-fork.t b/t/80-fork.t
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use autodie;
+use Test::More tests => 1;
+
+use parent qw( Test::Class );
+
+sub test_fork : Tests() {
+    my $pid = fork or do {
+        exit;
+    };
+
+    waitpid $pid, 0;
+    ok 1, 'in parent';
+}
+
+__PACKAGE__->new()->runtests() if !caller;
+
+# See https://rt.cpan.org/Public/Bug/Display.html?id=128491