Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[r419]: trunk / t / Issues / rt78588.t Maximize Restore History

Download this file

rt78588.t    16 lines (12 with data), 422 Bytes

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;