diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/61-getDID.t | 2 | ||||
| -rw-r--r-- | t/62-getDIDs.t | 34 |
2 files changed, 35 insertions, 1 deletions
diff --git a/t/61-getDID.t b/t/61-getDID.t index e2d9a0e..721db23 100644 --- a/t/61-getDID.t +++ b/t/61-getDID.t @@ -26,4 +26,4 @@ use Data::Dumper; diag( Dumper($return) ) if $debug; #XXX test some things about the return... -ok( $return, 'auditDIDs returned something' ); +ok( $return, 'getDID returned something' ); diff --git a/t/62-getDIDs.t b/t/62-getDIDs.t new file mode 100644 index 0000000..7c1d444 --- /dev/null +++ b/t/62-getDIDs.t @@ -0,0 +1,34 @@ +#!/usr/bin/perl -w + +#BEGIN { +# $Net::HTTPS::Any::skip_NetSSLeay = 1; +# $Net::HTTPS::Any::skip_NetSSLeay = 1; +#} + +use Test::More; + +require 't/lib/test_account.pl'; + +my($login, $password) = test_account_or_skip(); +plan tests => 2; + +use_ok 'Net::GlobalPOPs::MediaServicesAPI'; + +my $debug = $ENV{TEST_VERBOSE}; + +my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login' => $login, + 'password' => $password, + 'debug' => $debug, + ); +my $return = $gp->getDIDs( + 'state' => 'CA', + 'lata' => '722', + #'npa' => '415', + 'orderby' => 'ORDER BY npa', #? +); + +use Data::Dumper; +diag( Dumper($return) ) if $debug; + +#XXX test some things about the return... +ok( $return, 'getDIDs returned something' ); |