diff options
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/test_account.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/lib/test_account.pl b/t/lib/test_account.pl index 4b316db..b4fa603 100644 --- a/t/lib/test_account.pl +++ b/t/lib/test_account.pl @@ -12,9 +12,16 @@ sub test_account_or_skip { sub test_account { open TEST_ACCOUNT, "t/test_account" or return; - my($login, $password) = <TEST_ACCOUNT>; + my($login, $password, $hostport) = <TEST_ACCOUNT>; chomp $login; chomp $password; + chomp $hostport; + + if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) { + my($host, $port) = ($1, $3); + $Net::GlobalPOPs::MediaServicesAPI::HOST = $host; + $Net::GlobalPOPs::MediaServicesAPI::PORT = $port; + } return($login, $password); } |