package Ġcom . ek db Ċ Ċ import Ġkotlin . test . Test Ċ import Ġkotlin . test . assertEquals Ċ Ċ class ĠTree Index Test Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġindex Columns Ġ= Ġint ArrayOf ( 0 , Ġ 1 , Ġ 2 ) ĊĠĠĠĠĠĠĠ Ġval Ġc Ġ= ĠMem Tree Index ( index Columns , Ġfalse ) ĊĠĠĠĠĠĠĠ Ġc . insert ( Record ( array Of ( Value . Integer Value ( 1 0 ), ĠValue . Integer Value ( 1 1 ), ĠValue . Integer Value ( 1 2 )), Ġ 0 u L , Ġfalse )) ĊĠĠĠĠĠĠĠ Ġval Ġrr Ġ= ĠMemory ResultSet () ĊĠĠĠĠĠĠĠ Ġc . select ( array Of ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠOperator . EQ Ġto ĠValue . Integer Value ( 1 0 ), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠOperator . EQ Ġto ĠValue . Integer Value ( 1 1 ), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠOperator . EQ Ġto ĠValue . Integer Value ( 1 2 ) ĊĠĠĠĠĠĠĠ Ġ )){ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġrr . add Result ( it . values ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtrue ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġresult Ġ= Ġrr . list ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 , Ġresult . size ) ĊĠĠĠĠĠĠĠ Ġresult [ 0 ]. also Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 0 ), Ġit [ 0 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 1 ), Ġit [ 1 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 2 ), Ġit [ 2 ]) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest 2 () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġindex Columns Ġ= Ġint ArrayOf ( 0 ) ĊĠĠĠĠĠĠĠ Ġval Ġc Ġ= ĠMem Tree Index ( index Columns , Ġfalse ) ĊĠĠĠĠĠĠĠ Ġc . insert ( Record ( array Of ( Value . Integer Value ( 9 ), ĠValue . Integer Value ( 1 1 ), ĠValue . Integer Value ( 1 2 )), Ġ 0 u L , Ġfalse )) ĊĠĠĠĠĠĠĠ Ġc . insert ( Record ( array Of ( Value . Integer Value ( 1 0 ), ĠValue . Integer Value ( 1 1 ), ĠValue . Integer Value ( 1 2 )), Ġ 0 u L , Ġfalse )) ĊĠĠĠĠĠĠĠ Ġc . insert ( Record ( array Of ( Value . Integer Value ( 1 1 ), ĠValue . Integer Value ( 1 1 ), ĠValue . Integer Value ( 1 2 )), Ġ 0 u L , Ġfalse )) ĊĠĠĠĠĠĠĠ Ġval Ġrr Ġ= ĠMemory ResultSet () ĊĠĠĠĠĠĠĠ Ġc . select ( array Of ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠOperator . GE Ġto ĠValue . Integer Value ( 1 0 ) ĊĠĠĠĠĠĠĠ Ġ )){ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġrr . add Result ( it . values ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtrue ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġval Ġresult Ġ= Ġrr . list ĊĠĠĠĠĠĠĠ ĠassertEquals ( 2 , Ġresult . size ) ĊĠĠĠĠĠĠĠ Ġresult [ 0 ]. also Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 0 ), Ġit [ 0 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 1 ), Ġit [ 1 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 2 ), Ġit [ 2 ]) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġresult [ 1 ]. also Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 1 ), Ġit [ 0 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 1 ), Ġit [ 1 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( Value . Integer Value ( 1 2 ), Ġit [ 2 ]) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ }