Diff of /trunk/t/Issues/rt78588.t [000000] .. [r419]  Maximize  Restore

Switch to side-by-side view

--- a
+++ b/trunk/t/Issues/rt78588.t
@@ -0,0 +1,15 @@
+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;