4 $ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
6 use Object::Remote::Connector::Local;
8 $SIG{ALRM} = sub { die "alarm signal\n" };
10 my $fatnode_text = Object::Remote::Connector::Local->new(timeout => 1)->fatnode_text;
12 #this simulates a node that has hung before it reaches
13 #the watchdog initialization - it's an edge case that
14 #could cause remote processes to not get cleaned up
15 #if it's not handled right
18 $Object::Remote::FatNode::INHIBIT_RUN_NODE = 1;
22 die "could not eval fatnode text: $@";
30 is($@, "alarm signal\n", "Alarm handler was invoked");