USING: kernel tables test ; : test-table "a" "c" "z" over set-value "a" "o" "y" over set-value "a" "l" "x" over set-value "b" "o" "y" over set-value "b" "l" "x" over set-value "b" "s" "u" over set-value ; [ T{ table f H{ { "a" H{ { "l" "x" } { "c" "z" } { "o" "y" } } } { "b" H{ { "l" "x" } { "s" "u" } { "o" "y" } } } } H{ { "l" t } { "s" t } { "c" t } { "o" t } } } ] [ test-table ] unit-test [ "x" t ] [ "a" "l" test-table get-value ] unit-test [ "har" t ] [ "a" "z" "har" test-table [ set-value ] keep >r "a" "z" r> get-value ] unit-test : vector-test-table "a" "c" "z" over add-value "a" "c" "r" over add-value "a" "o" "y" over add-value "a" "l" "x" over add-value "b" "o" "y" over add-value "b" "l" "x" over add-value "b" "s" "u" over add-value ; [ T{ vector-table T{ table f H{ { "a" H{ { "l" "x" } { "c" V{ "z" "r" } } { "o" "y" } } } { "b" H{ { "l" "x" } { "s" "u" } { "o" "y" } } } } H{ { "l" t } { "s" t } { "c" t } { "o" t } } } } ] [ vector-test-table ] unit-test