diff --git a/perl/NGCP/Rtpengine/AutoTest.pm b/perl/NGCP/Rtpengine/AutoTest.pm index 6d1bb6664..a404f5e4b 100644 --- a/perl/NGCP/Rtpengine/AutoTest.pm +++ b/perl/NGCP/Rtpengine/AutoTest.pm @@ -113,7 +113,9 @@ sub rtpe_req { my ($cmd, $name, $req) = @_; $req->{command} = $cmd; $req->{'call-id'} = $cid; + alarm(3); my $resp = $c->req($req); + alarm(0); is $resp->{result}, 'ok', "$name - '$cmd' status"; return $resp; }