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; |