Create a gist now

Instantly share code, notes, and snippets.

use strictures;
use Test::More;
use SOAP::Lite;
use utf8;
my $data = "";
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" );
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment