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

17 lines
328 B
Perl
Raw Normal View History

2016-01-07 23:28:58 +01:00
#!/usr/bin/env perl -I pl/lib
#
# Test if an UTF-8 char is well returned
use Test::More;
use JSON::MaybeXS;
use strict;
2016-01-07 23:31:58 +01:00
use utf8;
2016-01-07 23:28:58 +01:00
require 't/test-lib.pm';
my $href = &client->jsonResponse('/confs/1/cfgAuthor');
2016-01-07 23:31:58 +01:00
ok( $href->{value} eq "The LemonLDAP::NG team ©", 'Value is well encoded' );
count(1);
2016-01-07 23:28:58 +01:00
done_testing( count() );