diff options
author | ivan <ivan> | 2008-06-27 00:30:07 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-06-27 00:30:07 +0000 |
commit | 090a3e47b2880ff5b15027d2bcd29b0a448e2a9b (patch) | |
tree | 009a7cc9a65b0e7063ed867409fb7623824baaa4 /t | |
parent | 1ed8df25cb58e83f7470c714062a946b8d19ae07 (diff) |
slightly more testing/debugging. basically working
Diffstat (limited to 't')
-rw-r--r-- | t/41-auditDIDs.t | 38 |
1 files changed, 33 insertions, 5 deletions
diff --git a/t/41-auditDIDs.t b/t/41-auditDIDs.t index 4bb8907..1a1f43e 100644 --- a/t/41-auditDIDs.t +++ b/t/41-auditDIDs.t @@ -1,13 +1,11 @@ #!/usr/bin/perl -w -# -$Net::SSLeay::ssl_version = 10; use Test::More; # skip_all => 'wtf'; require 't/lib/test_account.pl'; my($login, $password) = test_account_or_skip(); -plan tests => 2; +plan tests => 4; use_ok 'Net::GlobalPOPs::MediaServicesAPI'; @@ -20,7 +18,37 @@ my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login' => $login, my $return = $gp->auditDIDs(); use Data::Dumper; -diag( Dumper($return) ) if $debug; +#diag( Dumper($return) ) if $debug; -#XXX test some things about the return... ok( $return, 'auditDIDs returned something' ); + +# 'did' => [ +# { +# 'statuscode' => '100', +# 'status' => 'Number currently assigned to you with refid rewritten as \'\' to endpoint 521', +# 'cnam' => 'False', +# 'expire_seconds' => {}, +# 'availability' => 'assigned', +# 'tn' => '2137851430', +# 'rewrite' => {}, +# 'endpoint' => '521', +# 'refid' => {} +# }, +# { +# 'statuscode' => '100', +# 'status' => 'Number currently assigned to you with refid rewritten as \'\' to endpoint 521', +# 'cnam' => 'False', +# 'expire_seconds' => {}, +# 'availability' => 'assigned', +# 'tn' => '5109626974', +# 'rewrite' => {}, +# 'endpoint' => '521', +# 'refid' => {} +# } +# ] + + +ok( $return->{'did'}, 'auditDIDs returned did data' ); + +ok( ref($return->{'did'}) eq 'ARRAY', 'auditDIDs did data is a list' ); + |