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

More tests (not running for now, #595)

Browse Source
This commit is contained in:
Xavier Guimard 2016-04-04 18:05:22 +00:00
parent 33569f8c8c
commit a8c64033a6
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lemonldap-ng-portal/t/01-AuthDemo.t
View File

@ -10,7 +10,24 @@ ok( $res = &client->_get('/'), 'Unauth JSON request' );
ok( $res->[0] == 401, 'Response is 401' ) or explain( $res, 401 );
count(2);
#ok( $res = &client->jsonPostResponse('/','',IO::String->new('user=dwho&password=dwho'),'application/x-www-form-urlencoded',23), 'Auth query');
#count(1);
ok(
$res = eval {
&client->jsonPostResponse(
'/', '',
IO::String->new('user=dwho&password=dwho'),
'application/x-www-form-urlencoded', 23
);
},
'Auth query'
)
or explain(
&client->_post(
'/', '',
IO::String->new('user=dwho&password=dwho'),
'application/x-www-form-urlencoded', 23
),
200
);
count(1);
done_testing( count() );