[Catalyst-commits] r10366 - Catalyst-Model-SOAP/1.0/trunk/t

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2009-05-29 18:42:31 +0000 (Fri, 29 May 2009)
New Revision: 10366

Modified:
   Catalyst-Model-SOAP/1.0/trunk/t/03_docliteral_multipart.t
Log:
[C-M-SOAP] fix a test

Modified: Catalyst-Model-SOAP/1.0/trunk/t/03_docliteral_multipart.t
===================================================================
--- Catalyst-Model-SOAP/1.0/trunk/t/03_docliteral_multipart.t	2009-05-29 18:33:40 UTC (rev 10365)
+++ Catalyst-Model-SOAP/1.0/trunk/t/03_docliteral_multipart.t	2009-05-29 18:42:31 UTC (rev 10366)
@@ -26,13 +26,10 @@
   my $message = shift->toString;
   ok($message =~ /Hello|World/g, 'Output message contain parameters.');
   return $parser->parse_string(<<SOAPMESSAGE);
-<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body><hello:greeting xmlns:hello="http://example.com/hello">Hello World!</hello:greeting></SOAP-ENV:Body></SOAP-ENV:Envelope>
+<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body><hello:GreetingResponse xmlns:hello="http://example.com/hello"><hello:greeting>Hello World!</hello:greeting></hello:GreetingResponse></SOAP-ENV:Body></SOAP-ENV:Envelope>
 SOAPMESSAGE
 };
 my $ret = MyFooModel::Bar::Baz->Greet
   ({ who => 'World', greeting => 'Hello' });
 
-TODO: {
-  local $TODO = 'Some bug in XML::Compile here.';
-  is($ret->{greeting}, 'Hello World!', 'Output message processed!');
-}
+is($ret->{details}{greeting}, 'Hello World!', 'Output message processed!');