$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
-use Object::Remote::Connector::Local;
+use Object::Remote::Connector::Local;
$SIG{ALRM} = sub { die "alarm signal\n" };
-open(my $nullfh, '>', '/dev/null') or die "Could not open /dev/null: $!";
-
my $fatnode_text = Object::Remote::Connector::Local->new(timeout => 1)->fatnode_text;
#this simulates a node that has hung before it reaches
#if it's not handled right
eval {
no warnings 'once';
- local *STDOUT = $nullfh;
- $Object::Remote::FatNode::INHIBIT_RUN_NODE = 1;
+ $Object::Remote::FatNode::INHIBIT_RUN_NODE = 1;
eval $fatnode_text;
-
+
if ($@) {
die "could not eval fatnode text: $@";
- }
-
+ }
+
while(1) {
sleep(1);
}
is($@, "alarm signal\n", "Alarm handler was invoked");
-done_testing;
+done_testing;