additional options for test scripts

Change-Id: Idbbcc5323fa94f535ef7f868413f90800a1625ad

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

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;