initial version appears to be hooked up and working against dev sandbox

[Net-VoIP_Innovations.git] / t / 62-getDIDs.t

diff --git a/t/62-getDIDs.t b/t/62-getDIDs.t
index 52f0170..79c33e7 100644 (file)
--- 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';
+