#!/usr/bin/env jojo

(assert
(table 1 "1", 2 "2", 3 "3")
(table 2 "2", 3 "3", 4 "4")
(assert table-merge)
(table 1 "1", 2 "2", 3 "3", 4 "4")
table-equal?)

(assert
(table 1 "1", 2 "2", 3 "3", 4 "4")
{even?} table-key-filter
(table 2 "2", 4 "4")
table-equal?)

(assert
(table 1 "1", 2 "2", 3 "3", 4 "4")
{dec} table-key-map
(table 0 "1", 1 "2", 2 "3", 3 "4")
table-equal?)