use strictures 1;
use Test::More;
-require 't/logsetup.pl';
+$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" };
-my $conn = Object::Remote::Connection->conn_from_spec("-", watchdog_timeout => 1)->connect;
+my $conn = Object::Remote->connect("-", watchdog_timeout => 1);
my $remote = HangClass->new::on($conn);
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);
}
}