diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-01-25 16:53:20 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-01-25 16:53:20 -0800 |
| commit | 920293158ad908105cf20f047794a30ca39a64f3 (patch) | |
| tree | 2b23e5f81a384c43b6872dc64b20cebccfe5b15a /t/62-getDIDs.t | |
| parent | 1d339ad33855e8df8c1f466b494acbfd0e0907da (diff) | |
initial version appears to be hooked up and working against dev sandbox
Diffstat (limited to 't/62-getDIDs.t')
| -rw-r--r-- | t/62-getDIDs.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/62-getDIDs.t b/t/62-getDIDs.t index 52f0170..79c33e7 100644 --- a/t/62-getDIDs.t +++ b/t/62-getDIDs.t @@ -18,6 +18,7 @@ my $debug = $ENV{TEST_VERBOSE}; my $gp = Net::VoIP_Innovations->new( 'login' => $login, 'password' => $password, + #'debug' => 2, #'debug' => $debug, ); my $return = $gp->getDIDs( @@ -28,7 +29,8 @@ my $return = $gp->getDIDs( ); use Data::Dumper; -diag( Dumper($return) ); # if $debug; -#XXX test some things about the return... -ok( $return, 'getDIDs returned something' ); +#test some things about the return... +ok( $return->{type} ne 'Error', 'getDIDs returned no error' ); +diag( Dumper($return) ) if $return->{type} eq 'Error'; + |