[ test-tree2-higher-key 1array ] keep [ test-tree2 higher-node key>> ] curry unit-test
] each
{ f } [ 120 test-tree2 higher-node ] unit-test
{ f } [ 121 test-tree2 higher-node ] unit-test
{ f } [ 99 test-tree2 floor-node ] unit-test
[ test-tree2-higher-key 1array ] keep [ test-tree2 higher-node key>> ] curry unit-test
] each
{ f } [ 120 test-tree2 higher-node ] unit-test
{ f } [ 121 test-tree2 higher-node ] unit-test
{ f } [ 99 test-tree2 floor-node ] unit-test
[ test-tree2-ceiling-key 1array ] keep [ test-tree2 ceiling-node key>> ] curry unit-test
] each
{ f } [ 121 test-tree2 ceiling-node ] unit-test
[ test-tree2-ceiling-key 1array ] keep [ test-tree2 ceiling-node key>> ] curry unit-test
] each
{ f } [ 121 test-tree2 ceiling-node ] unit-test