4 require 't/logsetup.pl';
6 use Object::Remote::Connector::Local;
8 $SIG{ALRM} = sub { die "alarm signal\n" };
10 open(my $nullfh, '>', '/dev/null') or die "Could not open /dev/null: $!";
12 my $fatnode_text = Object::Remote::Connector::Local->new(timeout => 1)->fatnode_text;
14 #this simulates a node that has hung before it reaches
15 #the watchdog initialization - it's an edge case that
16 #could cause remote processes to not get cleaned up
17 #if it's not handled right
20 local *STDOUT = $nullfh;
21 $Object::Remote::FatNode::INHIBIT_RUN_NODE = 1;
25 die "could not eval fatnode text: $@";
33 is($@, "alarm signal\n", "Alarm handler was invoked");