X-Git-Url: http://git.freeside.biz/gitweb/?p=Net-GlobalPOPs-MediaServicesAPI.git;a=blobdiff_plain;f=t%2Flib%2Ftest_account.pl;h=b4fa60348c864464d1e67931637fdaf3a2eb7b1f;hp=4b316dbd5bddb32c8f626ea03cc15e2622928411;hb=e8e126d8fe17184706729f0b01b223834ca5bc91;hpb=2d21621e966719b6769e5546c99e9f3b664213fd

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);
 }