--- google/t/20-response.t	2007/06/19 19:09:16	44
+++ google/t/20-response.t	2007/06/19 19:36:21	45
@@ -4,7 +4,7 @@
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 4;
+use Test::More tests => 5;
 use Data::Dump qw/dump/;
 use blib;
 
@@ -20,4 +20,15 @@
 
 ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );
 
+like( $inform, qr{\Q<soap:Envelope xmlns:cwmp="urn:dslforum-org:cwmp-1-0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+  <soap:Header>
+    <cwmp:ID mustUnderstand="1">42</cwmp:ID>
+  </soap:Header>
+  <soap:Body>
+    <cwmp:InformResponse>
+      <cwmp:MaxEnvelopes>1</cwmp:MaxEnvelopes>
+    </cwmp:InformResponse>
+  </soap:Body>
+</soap:Envelope>\E}, 'xml');
+
 diag $inform if $debug;