package Ġcom . github . fs bar ata . functional . control . state Ċ Ċ import Ġcom . github . fs bar ata . functional . data . tuple . Tuple 2 Ċ import Ġcom . github . fs bar ata . functional . samples . state . random Generator Ċ import Ġorg . junit . Assert . assertEquals Ċ import Ġorg . junit . Test Ċ Ċ class ĠRandom Generator Kt Test Ġ{ Ċ ĉ @ Test Ċ ĉ fun Ġrandom Gen () Ġ{ Ċĉ ĉ val Ġseed Ġ= Ġ 2 0 0 L Ċĉ ĉ val Ġrandom Ġ= Ġrandom Generator () Ċĉ ĉ val Ġ( seed 2 , Ġout ) Ġ= Ġrandom . run State ( seed ) Ċĉ ĉ val Ġ(_, Ġout 2 ) Ġ= Ġrandom . run State ( seed 2 ) ĊĊĉ ĉ assertEquals ( Tuple 2 ( seed 2 , Ġout ), Ġrandom . run State ( seed )) Ċĉ ĉ assert ( out Ġ!= Ġout 2 ) Ċ ĉ } Ċ }