21 lines
399 B
Perl
21 lines
399 B
Perl
#!/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() );
|