From bb265dd786da5873d945cfae91b7e9cc86bdec29 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Wed, 7 May 2025 09:03:15 -0400
Subject: [PATCH] MT#55283 tests: add $host and $port knobs

Change-Id: I559fba70615c0591651041ad37cec71877edbf31
---
 perl/NGCP/Rtpengine/AutoTest.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl/NGCP/Rtpengine/AutoTest.pm b/perl/NGCP/Rtpengine/AutoTest.pm
index c6d9a7e6e..7c364ec51 100644
--- a/perl/NGCP/Rtpengine/AutoTest.pm
+++ b/perl/NGCP/Rtpengine/AutoTest.pm
@@ -16,6 +16,8 @@ use Exporter;
 our @ISA;
 our @EXPORT;
 our $launch_cb;
+our $host;
+our $port;
 
 BEGIN {
 	require Exporter;
@@ -69,7 +71,8 @@ sub autotest_start {
 sub autotest_init {
 	# keep trying to connect to the control socket while daemon is starting up
 	for (1 .. 300) {
-		$c = NGCP::Rtpengine->new($ENV{RTPENGINE_HOST} // '127.0.0.1', $ENV{RTPENGINE_PORT} // 2223);
+		$c = NGCP::Rtpengine->new($host // $ENV{RTPENGINE_HOST} // '127.0.0.1',
+			$port // $ENV{RTPENGINE_PORT} // 2223);
 		Time::HiRes::usleep(100000); # 100 ms x 300 = 30 sec
 
 		$tag_iter = 0;