Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
LemonLDAP NG
lemonldap-ng
Commits
f4548758
Commit
f4548758
authored
Apr 06, 2016
by
Yadd
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More tests (
#595
)
parent
12fbce8a
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
19 additions
and
16 deletions
+19
-16
_example/etc/portal-apache2.X.conf
_example/etc/portal-apache2.X.conf
+1
-1
e2e-tests/lemonldap-ng.ini
e2e-tests/lemonldap-ng.ini
+2
-1
lemonldap-ng-portal/t/01-AuthDemo.t
lemonldap-ng-portal/t/01-AuthDemo.t
+16
-14
No files found.
_example/etc/portal-apache2.X.conf
View file @
f4548758
...
...
@@ -29,7 +29,7 @@
</
Files
>
# Temporary hook
<
Files
*.
ps
gi
>
<
Files
*.
fc
gi
>
SetHandler
fcgid
-
script
Options
+
ExecCGI
</
Files
>
...
...
e2e-tests/lemonldap-ng.ini
View file @
f4548758
...
...
@@ -19,7 +19,8 @@ localStorageOptions={ \
notification
=
0
checkXSS
=
0
portalSkin
=
pastel
portalSkin
=
bootstrap
templateDir
=
__pwd__/lemonldap-ng-portal/site/templates
[handler]
...
...
lemonldap-ng-portal/t/01-AuthDemo.t
View file @
f4548758
...
...
@@ -50,20 +50,22 @@ ok( $hdrs{'Lm-Remote-User'} eq 'dwho', 'User is set' )
or
explain
(
\
%hdrs
,
'
Lm-Remote-User => "dwho"
'
);
count
(
4
);
#ok(
# $res = &client->_get(
# '/',
# query => 'url=aHR0cHM6Ly90LmV4YW1wbGUuY29tLw==',
# cookie => "lemonldap=$id",
# accept => 'text/html'
# ),
# 'Auth request with bad url'
#);
#ok( $res->[0] == 200, 'Get redirection' ) or explain( $res, 200 );
#my %hdrs = @{ $res->[1] };
#ok( $hdrs{'Lm-Remote-User'} eq 'dwho', 'User is set' )
# or explain( \%hdrs, 'Lm-Remote-User => "dwho"' );
#count(3);
ok
(
$res
=
&client
->
_get
(
'
/
',
query
=>
'
url=aHR0cHM6Ly90LmV4YW1wbGUuY29tLw==
',
cookie
=>
"
lemonldap=
$id
",
accept
=>
'
text/html
'
),
'
Auth request with bad url
'
);
ok
(
$res
->
[
0
]
==
200
,
'
HTTP code is 200
'
)
or
explain
(
$res
,
200
);
my
%hdrs
=
@
{
$res
->
[
1
]
};
ok
(
$hdrs
{'
Lm-Remote-User
'}
eq
'
dwho
',
'
User is set
'
)
or
explain
(
\
%hdrs
,
'
Lm-Remote-User => "dwho"
'
);
ok
(
$hdrs
{'
Content-Type
'}
eq
'
text/html
',
'
Reponse is HTML
'
)
or
explain
(
\
%hdrs
,
'
Content-Type => "text/html"
'
);
count
(
4
);
#print STDERR Dumper($res);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment