add item tags around submissions

diff --git a/MANIFEST b/MANIFEST
index ab70e40..0da156f 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -7,6 +7,7 @@ t/00-load.t
 t/01-login.t
 t/41-auditDIDs.t
 t/61-getDID.t
+t/62-getDID.t
 t/pod-coverage.t
 t/pod.t
 t/lib/test_account.pl

diff --git a/lib/Net/GlobalPOPs/MediaServicesAPI.pm b/lib/Net/GlobalPOPs/MediaServicesAPI.pm
index 6b671fd..1622eaf 100644 (file)
--- a/lib/Net/GlobalPOPs/MediaServicesAPI.pm
+++ b/lib/Net/GlobalPOPs/MediaServicesAPI.pm
@@ -134,10 +134,12 @@ sub AUTOLOAD {
 
       $w->dataElement( 'requesttype' => $function );
 
-      foreach my $opt ( keys %$opts ) {
-
-        $w->dataElement( $opt => $opts->{$opt} );
-
+      if ( keys %$opts ) {
+        $w->startTag('item');
+          foreach my $opt ( keys %$opts ) {
+            $w->dataElement( $opt => $opts->{$opt} );
+          }
+        $w->endTag('item');
       }
 
     $w->endTag('body');

diff --git a/t/61-getDID.t b/t/61-getDID.t
index e2d9a0e..721db23 100644 (file)
--- a/t/61-getDID.t
+++ b/t/61-getDID.t
@@ -26,4 +26,4 @@ use Data::Dumper;
 diag( Dumper($return) ) if $debug;
 
 #XXX test some things about the return...
-ok( $return, 'auditDIDs returned something' );
+ok( $return, 'getDID returned something' );

diff --git a/t/62-getDIDs.t b/t/62-getDIDs.t
new file mode 100644 (file)
index 0000000..7c1d444
--- /dev/null
+++ b/t/62-getDIDs.t
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+
+#BEGIN {
+#  $Net::HTTPS::Any::skip_NetSSLeay = 1;
+#  $Net::HTTPS::Any::skip_NetSSLeay = 1;
+#}
+
+use Test::More;
+
+require 't/lib/test_account.pl';
+
+my($login, $password) = test_account_or_skip();
+plan tests => 2;
+
+use_ok 'Net::GlobalPOPs::MediaServicesAPI';
+
+my $debug = $ENV{TEST_VERBOSE};
+
+my $gp = Net::GlobalPOPs::MediaServicesAPI->new( 'login'    => $login,
+                                                 'password' => $password,
+                                                 'debug'    => $debug,
+                                               );
+my $return = $gp->getDIDs(
+  'state'   => 'CA',
+  'lata'    => '722',
+  #'npa'   => '415',
+  'orderby' => 'ORDER BY npa', #?
+);
+
+use Data::Dumper;
+diag( Dumper($return) ) if $debug;
+
+#XXX test some things about the return...
+ok( $return, 'getDIDs returned something' );