X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Fwatchdog.t;h=22e29ce5096a3b70542e81036f6af95ede632c68;hp=e6f036ba8f737c77a8e240bd52274da51157eccd;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=5ccce2d5c1fb651f83c73c811069003e4a591a53 diff --git a/t/watchdog.t b/t/watchdog.t index e6f036b..22e29ce 100644 --- a/t/watchdog.t +++ b/t/watchdog.t @@ -4,7 +4,7 @@ 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" }; @@ -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/, "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); } }