X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2F61-getDID.t;h=cd1b8d920369a0c25fa17dfcbbedf927b5465a5b;hb=920293158ad908105cf20f047794a30ca39a64f3;hp=15dfe54ecb2c7bf53f5589744254c5a5665b7f8d;hpb=1d339ad33855e8df8c1f466b494acbfd0e0907da;p=Net-VoIP_Innovations.git 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'; +