From e8e126d8fe17184706729f0b01b223834ca5bc91 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 12 Jan 2011 03:19:59 +0000
Subject: test updates, turn down debugging verbosity

---
 t/lib/test_account.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 't/lib/test_account.pl')

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);
 }
-- 
cgit v1.2.1