3 $Net::SSLeay::ssl_version = 10;
5 use Test::More; # skip_all => 'wtf';
7 require 't/lib/test_account.pl';
9 my($login, $password) = test_account_or_skip();
12 use_ok 'Net::GlobalPOPs::MediaServicesAPI';
14 my $debug = $ENV{TEST_VERBOSE};
16 my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login' => $login,
17 'password' => $password,
20 my $return = $gp->auditDIDs();
23 diag( Dumper($return) ) if $debug;
25 #XXX test some things about the return...
26 ok( $return, 'auditDIDs returned something' );