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

use strictures 1;
use Test::More;

require 't/logsetup.pl';

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

my $connector = Object::Remote::Connector::Local->new(
  timeout => 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
f129bfaf	4	require 't/logsetup.pl';
f129bfaf	5
49e9ae37	6	use Object::Remote;
	7	use Object::Remote::Connector::Local;
	8
	9	my $connector = Object::Remote::Connector::Local->new(
e1a0b9ca	10	timeout => 0.1,
49e9ae37	11	perl_command => [ 'perl', '-e', 'sleep 3' ],
	12	);
	13
	14	ok(!eval { $connector->connect; 1 }, 'Connection failed');
	15
	16	like($@, qr{timed out}, 'Connection failed with time out');
	17
	18	done_testing;