Catalyst-Controller-SOAP
3 results

 view release on metacpan or  search on metacpan

t/PostApp.t  view on Meta::CPAN 

use strict;
use warnings; 
use Test::More tests => 19;
use lib 't/PostApp/lib';
use Catalyst::Test 'PostApp';
use HTTP::Request::Common;

my $response;

$response = soap_xml_post
  ('/ws/hello',
   '<Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/"><Body>World</Body></Envelope>'
  );

like($response->content, qr/Hello World/, 'Document Literal correct response: '.$response->content);
# diag("/ws/hello: ".$response->content);

t/PostApp/script/post.pl  view on Meta::CPAN 

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Encode;
my $ua = LWP::UserAgent->new();
print "REQUEST: =============\n";
my $message = <<SOAP;
<Envelope xmlns="http://www.w3.org/2003/05/soap-envelope">
    <Body>World</Body>
</Envelope>
SOAP
my $request = HTTP::Request->new('POST','http://localhost:3000/ws/hello');
$request->content_type('application/soap+xml');
$request->content_encoding('utf8');
$request->content(encode_utf8($message));
my $response = $ua->request($request);
print "RESPONSE: ============\n";
print $response->content;
print "======================\n";

__END__

$message = <<SOAP;
<Envelope xmlns="http://www.w3.org/2003/05/soap-envelope">
    <Body><hello>World</hello></Body>
</Envelope>
SOAP
$request = HTTP::Request->new('POST','http://localhost:3000/ws2');
$request->content_type('application/soap+xml');
$request->content_encoding('utf8');
$request->content(encode_utf8($message));
$response = $ua->request($request);
print "MENSAGEM 2============\n";
print $response->content;
print "======================\n";

t/type-in-message.t  view on Meta::CPAN 

use Test::More tests => 2;

BEGIN { use_ok('Catalyst::Controller::SOAP') };
use Catalyst::Action::SOAP::DocumentLiteral;
use lib qw(t/lib);
use Catalyst::Test 'TestApp2';
use Encode;
use HTTP::Request::Common;

my $response = soap_xml_post('/hello',<<SOAPENV);
   <Envelope xmlns="http://schemas.xmlsoap.org/soap/envelope/">
      <Body>
        <GreetingSpecifier xmlns="http://example.com/hello">
          <who>World</who>
          <greeting>Hello</greeting>
          <count>1</count>
        </GreetingSpecifier>
      </Body>



( run in 0.613 second using v1.01-cache-2.11-cpan-de7293f3b23 )