Skip to content

[test] extend tests for immutability of maps #3725

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
line-o wants to merge 7 commits into from
Closed

[test] extend tests for immutability of maps #3725

Changes from 1 commit
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
04075e8
[test] add tests for map immutability - refs #3724
line-o Feb 4, 2021
fd3f52d
[refactor] Group similar tests by function naming prefix. Makes it ea…
adamretter Feb 16, 2021
2773bb0
[refactor] Simplify the code, lookup operator is superfulous as a Map…
adamretter Feb 16, 2021
06bb886
[test] Further tests
adamretter Feb 16, 2021
947241f
[bugfix] Test mt:immutable-remove-then-remove#0 did not test what it …
adamretter Feb 18, 2021
b8ca79e
[test] Further tests
adamretter Feb 18, 2021
5a39843
[test] refine immutable map test cases
line-o May 18, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
[test] Further tests
  • Loading branch information
@adamretter @line-o
adamretter authored and line-o committed Jul 7, 2021
commit b8ca79ee5f19b7438aaff80986c6ce76becb2f40
56 changes: 35 additions & 21 deletions exist-core/src/test/xquery/maps/maps.xql
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -680,65 +680,79 @@ function mt:immutable-put-then-merge() {
};

declare
%test:assertTrue
%test:assertEquals("true", "true")
function mt:immutable-remove-then-put() {
let $removed := map:remove(mt:create-test-map(), $mt:test-key-two)
let $expected := $removed($mt:test-key-one)

let $result := map:put($removed, $mt:test-key-one, false())

return $expected eq $removed($mt:test-key-one)
return
(
$expected eq $removed($mt:test-key-one),
$expected ne $result($mt:test-key-one)
)
};

declare
%test:assertTrue
%test:assertEquals("true", "true")
function mt:immutable-remove-then-remove() {
let $removed := map:remove(mt:create-test-map(), $mt:test-key-two)
let $expected := $removed($mt:test-key-one)
let $result := map:remove($removed, $mt:test-key-one)
return
$expected eq $removed($mt:test-key-one),
(
$expected eq $removed($mt:test-key-one),
$expected ne $result($mt:test-key-one)
)
};

declare
%test:assertTrue
%test:assertEquals("true", "true")
function mt:immutable-remove-then-merge() {
let $removed := map:remove(mt:create-test-map(), $mt:test-key-two)
let $expected := $removed($mt:test-key-one)
let $result := map:merge(($removed, map { $mt:test-key-one : false() }))

return $expected eq $removed($mt:test-key-one)
return
(
$expected eq $removed($mt:test-key-one),
$expected ne $result($mt:test-key-one)
)
};

declare
%test:assertTrue
%test:assertEquals("true", "true")
function mt:immutable-merge-then-put() {
let $merged := map:merge(mt:create-test-map())
let $expected := $merged($mt:test-key-one)

let $result := map:put($merged, $mt:test-key-one, false())

return $expected eq $merged($mt:test-key-one)
return
(
$expected eq $merged($mt:test-key-one),
$expected ne $result($mt:test-key-one)
)
};

declare
%test:assertTrue
%test:assertEquals("true", "true")
function mt:immutable-merge-then-remove() {
let $merged := map:merge(mt:create-test-map())
let $expected := $merged($mt:test-key-one)

let $result := map:remove($merged, $mt:test-key-one)

return $expected eq $merged($mt:test-key-one)
return
(
$expected eq $merged($mt:test-key-one),
$expected ne $result($mt:test-key-one)
)
};

declare
%test:assertTrue
%test:assertEquals("true", "true")
function mt:immutable-merge-then-merge() {
let $merged := map:merge(mt:create-test-map())
let $expected := $merged($mt:test-key-one)

let $result := map:merge(($merged, map { $mt:test-key-one : false() }))

return $expected eq $merged($mt:test-key-one)
return
(
$expected eq $merged($mt:test-key-one),
$expected ne $result($mt:test-key-one)
)
};