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

WIP - Improve unit test & need to fix list notifications feature!!! (#1851)

Browse Source
This commit is contained in:
Christophe Maudoux 2019-07-21 22:47:48 +02:00
parent 3e50fbca20
commit 3972861ba4
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Notifications/JSON.pm
View File

@ -241,7 +241,9 @@ sub notificationServer {
elsif ( $req->method =~ /^GET$/i ) {
my $notifs;
( $notifs, $err ) =
eval { $self->notifObject->getNotifications() };
# !!!!!! TO BE FIXED HERE => USE JSON TO SELECT USER IF EXISTS !!!!!!
eval { $self->notifObject->getNotifications( 'dwho') };
return $self->p->sendError( $req, $@, 500 ) if ($@);
$res = [];
foreach ( keys %$notifs ) {

11
lemonldap-ng-portal/t/40-Notifications-JSON-Server.t
View File

@ -76,15 +76,18 @@ count(2);
ok(
$res = $client->_get(
'/notifications', #IO::String->new($json2),
'/notifications',
type => 'application/json',
#length => length($json2)
),
'List notifications'
);
ok( $res->[2]->[0] =~ /"result"\s*:\s*1/, 'Two notifications found' )
ok( $res->[2]->[0] =~ /"result"\s*:\s*/, 'Result found' )
or print STDERR Dumper( $res->[2]->[0] );
count(2);
ok( $res->[2]->[0] =~ /"reference":"testref"/, 'First notifications found' )
or print STDERR Dumper( $res->[2]->[0] );
ok( $res->[2]->[0] =~ /"reference":"testref2"/, 'Second notifications found' )
or print STDERR Dumper( $res->[2]->[0] );
count(4);
ok(
$res = $client->_put(