package Ġcom . github . o ow ek y ala . rx string Ċ Ċ import Ġcom . github . o ow ek y ala . rx string . Item Renderer . asString Ċ import Ġcom . github . o ow ek y ala . rx string . Seq Renderer . de limited Ċ import Ġio . kot lint est . shouldBe Ċ import Ġio . kot lint est . specs . Fun Spec Ċ import Ġjavafx . collections . FX Collections Ċ import Ġjavafx . collections . Observable List Ċ import Ġio . kot lint est . shouldBe Ġas Ġk ot lint est ShouldBe Ċ Ċ /** Ċ Ġ* Ġ@ author ĠCl Ã©ment ĠF o urn ier Ċ Ġ* Ġ@ since Ġ 1 . 0 Ċ Ġ*/ Ċ class ĠDel imit ed Seq Test Ġ: ĠFun Spec () Ġ{ ĊĠĠĠ Ġclass ĠD Context ( ns : ĠList < Int >) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġnums : ĠObservable List < Int > Ġ= ĠFX Collections . observable ArrayList ( ns ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġvar Ġlt Ġ= ĠLive Template . newBuilder < D Context >(). bind Seq ({ Ġit . nums Ġ}, Ġdelimited ("[ ", Ġ" ]", Ġ",", Ġas String ())) ĊĊĠĠĠ Ġinit Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġi Ġ= Ġ 0 ĊĊĠĠĠĠĠĠĠ Ġfun ĠString . is Value After ( name : ĠString , Ġns : ĠList < Int > Ġ= ĠlistOf ( 1 0 , Ġ 1 5 ), Ġf : Ġ( Observable List < Int >) Ġ-> ĠUnit ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtest ("$ name : Ġexpected Ġ${ this @ is Value After }") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġt Ġ= Ġlt . to Bound Template ( D Context ( ns )) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġf ( t . data Context . nums ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġt . value ĠshouldBe Ġthis @ is Value After ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun ĠString . fis Value After ( name : ĠString , Ġns : ĠList < Int > Ġ= ĠlistOf ( 1 0 , Ġ 1 5 ), Ġf : Ġ( Observable List < Int >) Ġ-> ĠUnit ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġis Value After (" f :$ name ", Ġns , Ġf ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 1 5 ] ". is Value After (" base ") Ġ{ Ġ} ĊĊĊĠĠĠĠĠĠĠ Ġ" [] ". is Value After (" clear ") Ġ{ Ġit . clear () Ġ} ĊĠĠĠĠĠĠĠ Ġ" [] ". is Value After (" clear Ġone Ġelt ", ĠlistOf ( 2 )) Ġ{ Ġit . clear () Ġ} ĊĠĠĠĠĠĠĠ Ġ" [] ". is Value After (" clear Ġempty ", ĠlistOf ()) Ġ{ Ġit . clear () Ġ} ĊĠĠĠĠĠĠĠ Ġ" [] ". is Value After (" empty ", ĠlistOf ()) Ġ{ Ġ} ĊĊĠĠĠĠĠĠĠ Ġ"[ 1 0 ] ". is Value After (" remove Ġlast ") Ġ{ Ġit . remove At ( 1 ) Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 5 ] ". is Value After (" remove Ġfst ") Ġ{ Ġit . remove At ( 0 ) Ġ} ĊĠĠĠĠĠĠĠ Ġ" [] ". is Value After (" remove Ġto Ġempty ", ĠlistOf ( 1 )) Ġ{ Ġit . remove At ( 0 ) Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 1 2 ] ". is Value After (" remove Ġmid ", ĠlistOf ( 1 0 , Ġ 1 1 , Ġ 1 2 )) Ġ{ Ġit . remove At ( 1 ) Ġ} ĊĊĠĠĠĠĠĠĠ Ġ"[ 2 , 1 5 ] ". is Value After (" set Ġfst ") Ġ{ Ġit [ 0 ] Ġ= Ġ 2 Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 2 ] ". is Value After (" set Ġlast ") Ġ{ Ġit [ 1 ] Ġ= Ġ 2 Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 2 , 1 2 ] ". is Value After (" set Ġmid ", ĠlistOf ( 1 0 , Ġ 1 1 , Ġ 1 2 )) Ġ{ Ġit [ 1 ] Ġ= Ġ 2 Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 5 ] ". is Value After (" set Ġonly Ġelt ", ĠlistOf ( 1 )) Ġ{ Ġit [ 0 ] Ġ= Ġ 5 Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 , 2 , 3 ] ". is Value After (" set All ") Ġ{ Ġit . set All ( 1 , Ġ 2 , Ġ 3 ) Ġ} ĊĊĠĠĠĠĠĠĠ Ġ"[ 2 , 1 0 , 1 5 ] ". is Value After (" add Ġfst ") Ġ{ Ġit . add ( 0 , Ġ 2 ) Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 2 , 1 5 ] ". is Value After (" add Ġmid ") Ġ{ Ġit . add ( 1 , Ġ 2 ) Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 1 5 , 2 ] ". is Value After (" add Ġlast ") Ġ{ Ġit . add ( 2 , Ġ 2 ) Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 1 0 , 1 5 , 2 ] ". is Value After (" add Ġlast Ġ 2 ") Ġ{ Ġit Ġ+= Ġ 2 Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 4 ] ". is Value After (" add Ġto Ġempty ", ĠlistOf ()) Ġ{ Ġit Ġ+= Ġ 4 Ġ} ĊĠĠĠĠĠĠĠ Ġ"[ 4 , 5 , 6 ] ". is Value After (" addAll Ġto Ġempty ", ĠlistOf ()) Ġ{ Ġit . addAll ( 4 , Ġ 5 , Ġ 6 ) Ġ} ĊĊĊĠĠĠ Ġ} Ċ }