18 lines
401 B
Factor
18 lines
401 B
Factor
USING: assocs kernel tools.test trees trees.cb trees.cb.private trees.private ;
|
|
IN: trees.cb.tests
|
|
|
|
CONSTANT: 4tree CB{ { 0 0 } { 1 1 } { 2 2 } { 3 3 } }
|
|
|
|
! Insertion into an empty tree
|
|
{ CB{ { 0 0 } } } [
|
|
0 0 <cb> [ set-at ] keep
|
|
] unit-test
|
|
|
|
! Insertion into a leaf-node resulting in splitting
|
|
{
|
|
CB{ { 0 0 } { 1 1 } }
|
|
} [
|
|
0 0 <cb> [ set-at ] keep
|
|
1 1 rot [ set-at ] keep
|
|
] unit-test
|