diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/41-auditDIDs.t | 11 | ||||
| -rw-r--r-- | t/61-getDID.t | 7 | ||||
| -rw-r--r-- | t/62-getDIDs.t | 8 | ||||
| -rw-r--r-- | t/lib/test_account.pl | 9 |
4 files changed, 20 insertions, 15 deletions
diff --git a/t/41-auditDIDs.t b/t/41-auditDIDs.t index 1a1f43e..8bcd2e8 100644 --- a/t/41-auditDIDs.t +++ b/t/41-auditDIDs.t @@ -1,24 +1,23 @@ #!/usr/bin/perl -w -use Test::More; # skip_all => 'wtf'; +use Test::More skip_all => "not working with current test account?"; require 't/lib/test_account.pl'; +require Net::GlobalPOPs::MediaServicesAPI; my($login, $password) = test_account_or_skip(); -plan tests => 4; - -use_ok 'Net::GlobalPOPs::MediaServicesAPI'; +plan tests => 3; my $debug = $ENV{TEST_VERBOSE}; my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login' => $login, 'password' => $password, - 'debug' => $debug, + #'debug' => $debug, ); my $return = $gp->auditDIDs(); use Data::Dumper; -#diag( Dumper($return) ) if $debug; +diag( Dumper($return) ); # if $debug; ok( $return, 'auditDIDs returned something' ); diff --git a/t/61-getDID.t b/t/61-getDID.t index 721db23..fc59f18 100644 --- a/t/61-getDID.t +++ b/t/61-getDID.t @@ -8,17 +8,16 @@ use Test::More; require 't/lib/test_account.pl'; +require Net::GlobalPOPs::MediaServicesAPI; my($login, $password) = test_account_or_skip(); -plan tests => 2; - -use_ok 'Net::GlobalPOPs::MediaServicesAPI'; +plan tests => 1; my $debug = $ENV{TEST_VERBOSE}; my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login' => $login, 'password' => $password, - 'debug' => $debug, + #'debug' => $debug, ); my $return = $gp->getDID(); diff --git a/t/62-getDIDs.t b/t/62-getDIDs.t index 7c1d444..35e42be 100644 --- a/t/62-getDIDs.t +++ b/t/62-getDIDs.t @@ -8,17 +8,17 @@ use Test::More; require 't/lib/test_account.pl'; +require Net::GlobalPOPs::MediaServicesAPI; my($login, $password) = test_account_or_skip(); -plan tests => 2; +plan tests => 1; -use_ok 'Net::GlobalPOPs::MediaServicesAPI'; my $debug = $ENV{TEST_VERBOSE}; my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login' => $login, 'password' => $password, - 'debug' => $debug, + #'debug' => $debug, ); my $return = $gp->getDIDs( 'state' => 'CA', @@ -28,7 +28,7 @@ my $return = $gp->getDIDs( ); use Data::Dumper; -diag( Dumper($return) ) if $debug; +diag( Dumper($return) ); # if $debug; #XXX test some things about the return... ok( $return, 'getDIDs returned something' ); 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); } |