X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2F62-getDIDs.t;h=79c33e7852c1695f6afbdc13a087d3c4f2efd3c4;hb=920293158ad908105cf20f047794a30ca39a64f3;hp=52f017026c6c0e1a75d2bd050f4e23fa8412b081;hpb=1d339ad33855e8df8c1f466b494acbfd0e0907da;p=Net-VoIP_Innovations.git

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';
+