lemonldap-ng/lemonldap-ng-manager/t/07-utf8.t

#!/usr/bin/env perl -I pl/lib
#
# Test if an UTF-8 char is well returned

use Test::More;
use strict;

my $str = "The LemonLDAP::NG team \x{c2}\x{a9}";

require 't/test-lib.pm';

my $href = &client->jsonResponse('/confs/1/cfgAuthor');

#binmode STDERR;

ok( $href->{value} eq $str, 'Value is well encoded' )
  or print STDERR "Expect '$href->{value}' eq '$str'";
count(1);

done_testing( count() );