package Ġarrow . fx . coroutines Ċ Ċ import Ġarrow . core . right Ċ import Ġio . kot est . assertions . assert Soft ly Ċ import Ġio . kot est . assertions . fail Ċ import Ġio . kot est . matchers . string . should Start With Ċ import Ġio . kot est . property . Ar b Ċ import Ġio . kot est . property . ar bitrary . int Ċ Ċ class ĠPar Tra verse Either Jvm Test Ġ: ĠArrow Fx Spec ( ĊĠ Ġspec Ġ= Ġ{ ĊĠĠĠ Ġ" par Tra verse Either Ġfinishes Ġon Ġsingle Ġthread Ġ" Ġ{ Ġ// Ġ 1 0 0 Ġis Ġsame Ġdefault Ġlength Ġas ĠA rb . list ĊĠĠĠĠĠ Ġcheck All ( Ar b . int ( min Ġ= ĠInt . MIN _ VALUE , Ġmax Ġ= Ġ 1 0 0 )) Ġ{ Ġi Ġ-> ĊĠĠĠĠĠĠĠ Ġval Ġres Ġ= Ġsingle . use Ġ{ Ġctx Ġ-> ĊĠĠĠĠĠĠĠĠĠ Ġ( 0 Ġuntil Ġi ). par Tra verse Either ( ctx ) Ġ{ ĠThread . currentThread (). name . right () Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġassert Soft ly Ġ{ ĊĠĠĠĠĠĠĠĠĠ Ġres . or Null ()?. forEach Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit Ġshould Start With Ġ" single " ĊĠĠĠĠĠĠĠĠĠ Ġ} Ġ?: Ġfail (" Expected ĠRight Ġbut Ġfound Ġ$ res ") ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĠ Ġ} Ċ ) Ċ