SOAP-Lite
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/Issues/rt78588.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use SOAP::Lite;
use utf8;
my $data = "mü\x{2013}";
my $serializer = SOAP::Serializer->new();
$serializer->typelookup()->{ base64Binary } = [ 10, sub { 0 }, undef];
my $xml = $serializer->envelope( freeform => $data );
my ( $cycled ) = values %{ SOAP::Deserializer->deserialize( $xml )->body };
is( $data, $cycled, "UTF-8 string is the same after serializing" );
done_testing;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.574 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-cec75d87357c )