[r399]: branches / 0.71 / t / Issues / rt75169.t  Maximize  Restore  History

Download this file

17 lines (13 with data), 384 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
use strict;
use warnings;
use Test::More;
use SOAP::Lite;
use utf8;
use Encode;
my $data = "端";
my $soap = SOAP::Serializer->new();
$soap->autotype(0);
my $xml = $soap->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;

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks