diff options
author | ivan <ivan> | 2011-01-12 03:19:59 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-01-12 03:19:59 +0000 |
commit | e8e126d8fe17184706729f0b01b223834ca5bc91 (patch) | |
tree | 9aaae46b38963e690c8fd89a29ad5a177d229128 /t/62-getDIDs.t | |
parent | 2d21621e966719b6769e5546c99e9f3b664213fd (diff) |
Diffstat (limited to 't/62-getDIDs.t')
-rw-r--r-- | t/62-getDIDs.t | 8 |
1 files changed, 4 insertions, 4 deletions
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' ); |