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

[Net-VoIP_Innovations.git] / t / 61-getDID.t

diff --git a/t/61-getDID.t b/t/61-getDID.t
index 15dfe54..cd1b8d9 100644 (file)
--- 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';
+