Avoid SIGNAL on IO error in 02_parallel.t and add test for it

Author: cfconrad

t/02_parallel.t

@@ -71,8 +71,8 @@ subtest batch => sub {
     set_pipes    => 1
   );
   $c->start();
-  is $c->last->getline, "Hello world 3\n";
   $c->wait_stop();
+  is $c->last->getline, "Hello world 3\n";
 
   my $result;
   $c->add(code => sub { return 40 + 2 }, separate_err => 0, set_pipes => 0);

t/14_sig_on_io.t

@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use Mojo::Base -strict;
+use Test::More;
+use Time::HiRes qw(sleep);
+use FindBin;
+use lib ("$FindBin::Bin/lib", "../lib", "lib");
+use Mojo::IOLoop::ReadWriteProcess qw(process batch);
+use Data::Dumper;
+
+my $sleepduration = 0;
+
+subtest "Signal on IO" => sub {
+    my @stack;
+
+    my $p1 = process(sub { sleep 2; print "Hello world\n" });
+    for my $i (1 .. 10) {
+        push (@stack, process(sub { sleep 0.2 * $i; print "Bye Bye"})) 
+    }
+    my $c = batch @stack;
+
+    $p1->start;
+    $c->start();
+    is ($p1->getline(), "Hello world\n", "P1 can read with signals received!");
+    is (!!$!{EINTR}, 1, "EINTR is set");
+};
+
+done_testing;