public
Created

  • Download Gist
soap_utf8.t
Perl
1 2 3 4 5 6 7 8 9 10 11 12
use strictures;
 
use Test::More;
use SOAP::Lite;
use utf8;
 
my $data = "mü";
my $xml = SOAP::Serializer->envelope( freeform => $data );
my ( $cycled ) = values %{ SOAP::Deserializer->deserialize( $xml )->body };
 
is( length( $data ), length( $cycled ), "UTF-8 string is the same after serializing" );
done_testing;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.