From 89c0aa167dd3a2430833d5d100f8b9cbb599d550 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 14 Aug 2018 10:57:36 -0400
Subject: [PATCH] additional options for test scripts

Change-Id: Idbbcc5323fa94f535ef7f868413f90800a1625ad
---
 perl/NGCP/Rtpclient/ICE.pm  | 2 +-
 perl/NGCP/Rtpengine/Test.pm | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl/NGCP/Rtpclient/ICE.pm b/perl/NGCP/Rtpclient/ICE.pm
index b8e85ba0d..7138cb662 100644
--- a/perl/NGCP/Rtpclient/ICE.pm
+++ b/perl/NGCP/Rtpclient/ICE.pm
@@ -566,7 +566,7 @@ sub stun_handler_binding_success {
 	$self->debug("binding success from $address/$port\n");
 
 	# check xor address
-	$comp->{address} eq $hash->{address}->{address} or die;
+	$comp->{address} eq $hash->{address}->{address} or die("$comp->{address} $hash->{address}->{address}");
 	$comp->{port} == $hash->{address}->{port} or die;
 
 	# we must have remote candidate and a pair
diff --git a/perl/NGCP/Rtpengine/Test.pm b/perl/NGCP/Rtpengine/Test.pm
index 25fc81d86..0129316d9 100644
--- a/perl/NGCP/Rtpengine/Test.pm
+++ b/perl/NGCP/Rtpengine/Test.pm
@@ -54,7 +54,8 @@ sub new {
 	$self->{timers} = [];
 	$self->{clients} = [];
 
-	$self->{control} = NGCP::Rtpengine->new($args{host} // 'localhost', $args{port} // 2223);
+	$self->{control} = NGCP::Rtpengine->new($args{host} // $ENV{RTPENGINE_HOST} // 'localhost',
+		$args{port} // $ENV{RTPENGINE_POR} // 2223);
 	$self->{callid} = rand();
 
 	return $self;