$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
use Object::Remote::Connection;
-use Object::Remote::FromData;
+use Object::Remote::FromData;
$SIG{ALRM} = sub { fail("Watchdog killed remote process in time"); die "test failed" };
eval { $remote->hang };
-like($@, qr/^Object::Remote connection lost: eof/, "Correct error message");
+like($@, qr/^Object::Remote connection lost: (?:eof|.*Broken pipe)/, "Correct error message");
-done_testing;
+done_testing;
__DATA__
use Moo;
sub alive {
- return 1;
+ return 1;
}
sub hang {
while(1) {
- sleep(1);
+ sleep(1);
}
}