USING: kernel tables test ;

: test-table
    <table>
    "a" "c" "z" <entry> over set-value
    "a" "o" "y" <entry> over set-value
    "a" "l" "x" <entry> over set-value
    "b" "o" "y" <entry> over set-value
    "b" "l" "x" <entry> over set-value
    "b" "s" "u" <entry> 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" <entry> test-table [ set-value ] keep
    >r "a" "z" r> get-value
] unit-test

: vector-test-table
    <vector-table>
    "a" "c" "z" <entry> over add-value
    "a" "c" "r" <entry> over add-value
    "a" "o" "y" <entry> over add-value
    "a" "l" "x" <entry> over add-value
    "b" "o" "y" <entry> over add-value
    "b" "l" "x" <entry> over add-value
    "b" "s" "u" <entry> 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