t/timeout.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use Object::Remote;
   5 use Object::Remote::Connector::Local;
   6
   7 my $connector = Object::Remote::Connector::Local->new(
   8   timeout => { after => 0.1 },
   9   perl_command => [ 'perl', '-e', 'sleep 3' ],
  10 );
  11
  12 ok(!eval { $connector->connect; 1 }, 'Connection failed');
  13
  14 like($@, qr{timed out}, 'Connection failed with time out');
  15
  16 done_testing;