summaryrefslogtreecommitdiff
path: root/t/62-getDIDs.t
diff options
context:
space:
mode:
authorivan <ivan>2011-01-12 03:19:59 +0000
committerivan <ivan>2011-01-12 03:19:59 +0000
commite8e126d8fe17184706729f0b01b223834ca5bc91 (patch)
tree9aaae46b38963e690c8fd89a29ad5a177d229128 /t/62-getDIDs.t
parent2d21621e966719b6769e5546c99e9f3b664213fd (diff)
test updates, turn down debugging verbosityHEADmaster
Diffstat (limited to 't/62-getDIDs.t')
-rw-r--r--t/62-getDIDs.t8
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' );