Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Kamil Shakirov
alexandria
Commits
a019eda8
Unverified
Commit
a019eda8
authored
Jul 30, 2014
by
Attila Lendvai
Browse files
Extended DELETE-FROM-PLIST.1 test to test the removal of duplicate keys.
parent
4c4361c9
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests.lisp
View file @
a019eda8
...
...
@@ -870,7 +870,7 @@
t
))
(
deftest
delete-from-plist.1
(
let
((
orig
'
(
a
1
b
2
c
3
d
4
)))
(
let
((
orig
'
(
a
1
b
2
c
3
d
4
d
5
)))
(
list
(
delete-from-plist
(
copy-list
orig
)
'a
'c
)
(
delete-from-plist
(
copy-list
orig
)
'b
'd
)
(
delete-from-plist
(
copy-list
orig
)
'b
)
...
...
@@ -880,10 +880,10 @@
(
delete-from-plist
(
copy-list
orig
)
'a
'b
'c
'd
'x
)
(
equal
orig
(
delete-from-plist
orig
))
(
eq
orig
(
delete-from-plist
orig
))))
((
b
2
d
4
)
((
b
2
d
4
d
5
)
(
a
1
c
3
)
(
a
1
c
3
d
4
)
(
b
2
c
3
d
4
)
(
a
1
c
3
d
4
d
5
)
(
b
2
c
3
d
4
d
5
)
(
a
1
b
2
c
3
)
nil
nil
...
...
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