projects
/
Net-GlobalPOPs-MediaServicesAPI.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
test updates, turn down debugging verbosity
[Net-GlobalPOPs-MediaServicesAPI.git]
/
t
/
lib
/
test_account.pl
diff --git
a/t/lib/test_account.pl
b/t/lib/test_account.pl
index
4b316db
..
b4fa603
100644
(file)
--- 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;
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 $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);
}
return($login, $password);
}