[scpubgit/Object-Remote.git] / t / timeout.t

use strictures 1;
use Test::More;

use Object::Remote;
use Object::Remote::Connector::Local;

my $connector = Object::Remote::Connector::Local->new(
  timeout => { after => 0.1 },
  perl_command => [ 'perl', '-e', 'sleep 3' ],
);

ok(!eval { $connector->connect; 1 }, 'Connection failed');

like($@, qr{timed out}, 'Connection failed with time out');

done_testing;
Commit	Line	Data
49e9ae37	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;