diff options
Diffstat (limited to 't/61-getDID.t')
| -rw-r--r-- | t/61-getDID.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/61-getDID.t b/t/61-getDID.t index 15dfe54..cd1b8d9 100644 --- a/t/61-getDID.t +++ b/t/61-getDID.t @@ -22,7 +22,8 @@ my $gp = Net::VoIP_Innovations->new( 'login' => $login, my $return = $gp->getDID(); use Data::Dumper; -diag( Dumper($return) ) if $debug; -#XXX test some things about the return... -ok( $return, 'getDID returned something' ); +#test some things about the return... +ok( $return->{type} ne 'Error', 'getDID returned no error' ); +diag( Dumper($return) ) if $return->{type} eq 'Error'; + |