Skip to content

Further Map Immutability Tests #4000

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

Merged
dizzzz merged 11 commits into from
Aug 3, 2021
Merged

Further Map Immutability Tests #4000

Changes from 1 commit
Commits
Show all changes
11 commits
Select commit Hold shift + click to select a range
ff05733
[test] add tests for map immutability - refs #3724
line-o Feb 4, 2021
5061a9a
[refactor] Group similar tests by function naming prefix. Makes it ea…
adamretter Feb 16, 2021
b17ada5
[refactor] Simplify the code, lookup operator is superfulous as a Map…
adamretter Feb 16, 2021
727f4c6
[test] Further tests
adamretter Feb 16, 2021
b124e03
[bugfix] Test mt:immutable-remove-then-remove#0 did not test what it …
adamretter Feb 18, 2021
8254ce8
[test] Further tests
adamretter Feb 18, 2021
e647a2a
[test] Fixes to map tests. ne on an empty-sequence() is tricksy!
adamretter Aug 2, 2021
85b4290
[test] Add tests for map:merge order
adamretter Feb 18, 2021
0325532
[test] Tests to demonstrate Bifurcan behaviour
adamretter Mar 3, 2021
7054e72
[test] Further tests
adamretter Feb 18, 2021
c7e436e
[ignore] Improve TODO statement about ignored test
adamretter Aug 2, 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
adamretter committed Aug 2, 2021
commit 8254ce846f00baffb8678b05b444da029ab0d097
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)
)
};