dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve unit test (#1870)

Browse Source
This commit is contained in:
Christophe Maudoux 2019-08-01 20:26:50 +02:00
parent 3af9acd4df
commit 529c17042c
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
lemonldap-ng-portal/t/35-REST-config-backend.t
View File

@ -130,6 +130,53 @@ ok( $res->{uid} eq 'french', ' Uid is french' )
ok( $res->{cn} eq 'Frédéric Accents', 'UTF-8 values' );
count(5);
# Retrieve error messages
ok( $res = $issuer->_get("/error/fr/9"), 'Retrieve error message: 9 from lang: fr' );
expectOK($res);
ok( $res = eval { JSON::from_json( $res->[2]->[0] ) }, ' GET JSON' )
or print STDERR $@;
ok( $res->{lang} eq 'fr', ' Good lang' )
or explain( $res, 'lang => fr' );
ok( $res->{errorNum} eq '9', ' Good errorNum' )
or explain( $res, 'errorNum => 9' );
ok( $res->{errorMsg} eq 'Veuillez vous authentifier', ' Good errorMsg' )
or explain( $res, 'errorMsg => Veuillez vous authentifier' );
ok( $res->{result} eq '1', ' Good result' )
or explain( $res, 'result => 1' );
count(6);
ok( $res = $issuer->_get("/error/es"), 'Retrieve ALL error messages from lang: es' );
expectOK($res);
ok( $res = eval { JSON::from_json( $res->[2]->[0] ) }, ' GET JSON' )
or print STDERR $@;
ok( $res->{lang} eq 'es', ' Good lang' )
or explain( $res, 'lang => es' );
ok( $res->{errorNum} eq 'all', ' Good all errorNum' )
or explain( $res, 'errorNum => all' );
ok( $res->{errorMsg}->{PE4} eq 'Usuario no reconocido', ' Good errorMsg' )
or explain( $res, 'errorMsg PE4 => Usuario no reconocido' );
ok( keys %{$res->{errorMsg}} eq 84, ' Good number of error messages found' )
or explain( $res, 'Number of error messages' );
ok( $res->{result} eq '1', ' Good result' )
or explain( $res, 'result => 1' );
count(7);
ok( $res = $issuer->_get("/error"), 'Retrieve ALL error messages from lang: en (default)' );
expectOK($res);
ok( $res = eval { JSON::from_json( $res->[2]->[0] ) }, ' GET JSON' )
or print STDERR $@;
ok( $res->{lang} eq 'en', ' Good lang' )
or explain( $res, 'lang => en' );
ok( $res->{errorNum} eq 'all', ' Good all errorNum' )
or explain( $res, 'errorNum => all' );
ok( $res->{errorMsg}->{PE4} eq 'User not found in directory', ' Good errorMsg' )
or explain( $res, 'errorMsg PE4 => User not found in directory' );
ok( keys %{$res->{errorMsg}} eq 84, ' Good number of error messages found' )
or explain( $res, 'Number of error messages' );
ok( $res->{result} eq '1', ' Good result' )
or explain( $res, 'result => 1' );
count(7);
# Logout
switch ('sp');
ok(