2016-01-07 23:28:58 +01:00
|
|
|
# Test if an UTF-8 char is well returned
|
|
|
|
|
|
|
|
use Test::More;
|
|
|
|
use strict;
|
2016-01-11 21:32:44 +01:00
|
|
|
|
|
|
|
my $str = "The LemonLDAP::NG team \x{c2}\x{a9}";
|
2016-01-07 23:28:58 +01:00
|
|
|
|
|
|
|
require 't/test-lib.pm';
|
|
|
|
|
|
|
|
my $href = &client->jsonResponse('/confs/1/cfgAuthor');
|
2016-01-22 17:53:41 +01:00
|
|
|
|
2016-01-11 21:32:44 +01:00
|
|
|
#binmode STDERR;
|
|
|
|
|
2016-01-22 17:53:41 +01:00
|
|
|
ok( $href->{value} eq $str, 'Value is well encoded' )
|
|
|
|
or print STDERR "Expect '$href->{value}' eq '$str'";
|
2016-01-07 23:31:58 +01:00
|
|
|
count(1);
|
2016-01-07 23:28:58 +01:00
|
|
|
|
|
|
|
done_testing( count() );
|