X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Fwatchdog.t;h=bd8f576b32f8ad832ef1ed96debdc66f72a23a23;hp=ca001707dad4c933d709f6950726710a19dc440b;hb=00de75a1ac52ad657b5987d6510233433f0b6d04;hpb=2d7fe21c807adcd610a00da274e096dcbbb3bbc2

diff --git a/t/watchdog.t b/t/watchdog.t
index ca00170..bd8f576 100644
--- a/t/watchdog.t
+++ b/t/watchdog.t
@@ -4,11 +4,11 @@ use Test::More;
 $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);
 
@@ -19,9 +19,9 @@ alarm(3);
 
 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__
 
@@ -30,12 +30,12 @@ package HangClass;
 use Moo;
 
 sub alive {
-  return 1; 
+  return 1;
 }
 
 sub hang {
   while(1) {
-    sleep(1); 
+    sleep(1);
   }
 }