Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
LemonLDAP NG
lemonldap-ng
Commits
b87d4e22
Commit
b87d4e22
authored
Aug 30, 2018
by
Yadd
Browse files
tidy
parent
248b81ad
Pipeline
#2708
passed with stages
in 5 minutes and 36 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
lemonldap-ng-manager/t/12-save-changed-conf.t
View file @
b87d4e22
...
...
@@ -37,19 +37,19 @@ while ( my $c = shift @{ $resBody->{details}->{__changes__} } ) {
my
@d2
=
grep
{
$_
->
{
key
}
eq
$c
->
{
key
}
}
@cmsg
;
@changes
=
grep
{
$_
->
{
key
}
ne
$c
->
{
key
}
}
@changes
;
@cmsg
=
grep
{
$_
->
{
key
}
ne
$c
->
{
key
}
}
@cmsg
;
if
(
$c
->
{
key
}
eq
'
applicationList
'
)
{
if
(
$c
->
{
key
}
eq
'
applicationList
'
)
{
pass
qq("$c->{key}" found)
;
}
else
{
ok
(
(
$cmp1
-
@changes
)
==
(
$cmp2
-
@cmsg
),
qq("$c->{key}" found)
)
or
print
STDERR
'
Expect:
'
.
(
$cmp1
-
@changes
)
.
'
, got:
'
.
(
$cmp2
-
@cmsg
)
.
"
\n
Expect:
"
.
Dumper
(
\
@d1
)
.
"
Got:
"
.
Dumper
(
\
@d2
);
}
ok
(
(
$cmp1
-
@changes
)
==
(
$cmp2
-
@cmsg
),
qq("$c->{key}" found)
)
or
print
STDERR
'
Expect:
'
.
(
$cmp1
-
@changes
)
.
'
, got:
'
.
(
$cmp2
-
@cmsg
)
.
"
\n
Expect:
"
.
Dumper
(
\
@d1
)
.
"
Got:
"
.
Dumper
(
\
@d2
);
}
count
(
1
);
}
ok
(
!
@changes
,
'
All changes detected
'
)
or
$bug
=
1
;
...
...
Write
Preview
Supports
Markdown
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