/* Ċ Ġ* ĠCopyright Ġ 2 0 2 1 ĠM iko ÅĤ aj ĠLes zc zy ÅĦ ski Ġ& ĠApp mat t us ĠLimited Ċ Ġ* Ċ Ġ* ĠLicensed Ġunder Ġthe ĠApache ĠLicense , ĠVersion Ġ 2 . 0 Ġ( the Ġ" License "); Ċ Ġ* Ġyou Ġmay Ġnot Ġuse Ġthis Ġfile Ġexcept Ġin Ġcompliance Ġwith Ġthe ĠLicense . Ċ Ġ* ĠYou Ġmay Ġobtain Ġa Ġcopy Ġof Ġthe ĠLicense Ġat Ċ Ġ* Ċ Ġ* Ġhttp :// www . apache . org / licenses / LICENSE - 2 . 0 Ċ Ġ* Ċ Ġ* ĠUnless Ġrequired Ġby Ġapplicable Ġlaw Ġor Ġagreed Ġto Ġin Ġwriting , Ġsoftware Ċ Ġ* Ġdistributed Ġunder Ġthe ĠLicense Ġis Ġdistributed Ġon Ġan Ġ" AS ĠIS " ĠBASIS , Ċ Ġ* ĠWITHOUT ĠWARRANTIES ĠOR ĠCONDITIONS ĠOF ĠANY ĠKIND , Ġeither Ġexpress Ġor Ġimplied . Ċ Ġ* ĠSee Ġthe ĠLicense Ġfor Ġthe Ġspecific Ġlanguage Ġgoverning Ġpermissions Ġand Ċ Ġ* Ġlimitations Ġunder Ġthe ĠLicense . Ċ Ġ*/ Ċ Ċ package Ġorg . orbit m vi . orbit . internal Ċ Ċ import Ġkotlinx . atomic fu . atomic Ċ import Ġkotlinx . coroutines . Coroutine Scope Ċ import Ġkotlinx . coroutines . channels . Channel Ċ import Ġkotlinx . coroutines . flow . Flow Ċ import Ġkotlinx . coroutines . flow . State Flow Ċ import Ġorg . orbit m vi . orbit . Container Ċ import Ġorg . orbit m vi . orbit . Container Decorator Ċ import Ġorg . orbit m vi . orbit . syntax . Container Context Ċ Ċ public Ġclass ĠTest Container Decorator < STATE Ġ: ĠAny , ĠS IDE _ EFFECT Ġ: ĠAny >( ĊĠĠĠ Ġprivate Ġval Ġparent Scope : ĠCor outine Scope , ĊĠĠĠ Ġoverride Ġval Ġactual : ĠContainer < STATE , ĠS IDE _ EFFECT > Ċ ) Ġ: ĠContainer Decorator < STATE , ĠS IDE _ EFFECT > Ġ{ ĊĊĠĠĠ Ġprivate Ġval Ġdelegate Ġ= Ġatomic ( actual ) ĊĊĠĠĠ Ġpublic Ġval Ġsaved Intent s : ĠChannel <( suspend Ġ() Ġ-> ĠUnit )> ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġ( delegate . value Ġas ? ĠInter cept ing Container Decorator )?. saved Intent s Ġ?: ĠChannel () ĊĊĠĠĠ Ġoverride Ġval Ġsettings : ĠContainer . Settings ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġdelegate . value . settings ĊĊĠĠĠ Ġoverride Ġval Ġstate Flow : ĠState Flow < STATE > ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġdelegate . value . state Flow ĊĊĠĠĠ Ġoverride Ġval Ġside Effect Flow : ĠFlow < SIDE _ EFFECT > ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġdelegate . value . side Effect Flow ĊĊĠĠĠ Ġoverride Ġsuspend Ġfun Ġorbit ( orbit Intent : Ġsuspend ĠContainer Context < STATE , ĠS IDE _ EFFECT >. () Ġ-> ĠUnit ) Ġ{ ĊĠĠĠĠĠĠĠ Ġdelegate . value . orbit ( orbit Intent ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġpublic Ġfun Ġtest ( ĊĠĠĠĠĠĠĠ ĠinitialState : ĠSTATE , ĊĠĠĠĠĠĠĠ Ġstrategy : ĠTesting Strategy ĊĠĠĠ Ġ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġtest Delegate Ġ= ĠReal Container < STATE , ĠS IDE _ EFFECT >( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠinitialState Ġ= ĠinitialState , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġparent Scope Ġ= Ġparent Scope , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġsettings Ġ= Ġstrategy . settings ĊĠĠĠĠĠĠĠ Ġ). let Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( strategy Ġis ĠTesting Strategy . Sus pending ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠInter cept ing Container Decorator ( it ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġit ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġval Ġtest Delegate Set Ġ= Ġdelegate . compare AndSet ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġexpect Ġ= Ġactual , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġupdate Ġ= Ġtest Delegate ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ Ġif Ġ(! test Delegate Set ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġthrow ĠIllegalStateException (" Can Ġonly Ġcall Ġtest () Ġonce ") ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ