package Ġprojekt or . tests uite . repository Ċ Ċ import Ġio . ktor . util .* Ċ import Ġkotlinx . coroutines . run Blocking Ċ import Ġorg . junit . jupiter . api . Test Ċ import Ġprojekt or . Database Repository TestCase Ċ import Ġprojekt or . create Test Run Ċ import Ġprojekt or . database . generated . tables . po jos . TestSuite Ċ import Ġprojekt or . incoming results . random Public Id Ċ import Ġprojekt or . tests uite . TestSuite Database Repository Ċ import Ġstri kt . api . expect That Ċ import Ġstri kt . assertions .* Ċ Ċ class ĠTest Suite Database Repository Fetch Output Test Ġ: ĠDatabase Repository TestCase () Ġ{ ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġfetch Ġtest Ġsuite Ġsystem Ġout `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġtest Suite Database Repository Ġ= ĠTest Suite Database Repository ( dsl Context ) ĊĠĠĠĠĠĠĠ Ġval Ġpublic Id Ġ= Ġrandom Public Id () ĊĊĠĠĠĠĠĠĠ Ġval Ġtest Run Ġ= Ġcreate Test Run ( public Id , Ġ 1 ) ĊĠĠĠĠĠĠĠ Ġtest Run Dao . insert ( test Run ) ĊĊĠĠĠĠĠĠĠ Ġval Ġtest Suite DB Ġ= ĠTest Suite () ĊĠĠĠĠĠĠĠ Ġtest Suite DB . test Run Id Ġ= Ġtest Run . id ĊĠĠĠĠĠĠĠ Ġtest Suite DB . idx Ġ= Ġ 1 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . test Count Ġ= Ġ 1 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . pass ing Count Ġ= Ġ 1 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . failure Count Ġ= Ġ 0 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . skipped Count Ġ= Ġ 0 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . className Ġ= Ġ" TestSuite " ĊĠĠĠĠĠĠĠ Ġtest Suite DB . has System Out Ġ= Ġtrue ĊĠĠĠĠĠĠĠ Ġtest Suite DB . has System Err Ġ= Ġtrue ĊĠĠĠĠĠĠĠ Ġtest Suite DB . system Out Ġ= Ġ" My Ġsystem Ġout " ĊĠĠĠĠĠĠĠ Ġtest Suite DB . system Err Ġ= Ġ" My Ġsystem Ġerr " ĊĠĠĠĠĠĠĠ Ġtest Suite Dao . insert ( test Suite DB ) ĊĊĠĠĠĠĠĠĠ Ġval Ġsystem Out Ġ= Ġrun Blocking Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtest Suite Database Repository . fetch TestSuite System Out ( public Id , Ġ 1 ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġexpect That ( system Out ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. get Ġ{ Ġvalue Ġ}. isNotNull (). isEqualTo (" My Ġsystem Ġout ") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġfetch Ġtest Ġsuite Ġsystem Ġerr `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġtest Suite Database Repository Ġ= ĠTest Suite Database Repository ( dsl Context ) ĊĠĠĠĠĠĠĠ Ġval Ġpublic Id Ġ= Ġrandom Public Id () ĊĊĠĠĠĠĠĠĠ Ġval Ġtest Run Ġ= Ġcreate Test Run ( public Id , Ġ 1 ) ĊĠĠĠĠĠĠĠ Ġtest Run Dao . insert ( test Run ) ĊĊĠĠĠĠĠĠĠ Ġval Ġtest Suite DB Ġ= ĠTest Suite () ĊĠĠĠĠĠĠĠ Ġtest Suite DB . test Run Id Ġ= Ġtest Run . id ĊĠĠĠĠĠĠĠ Ġtest Suite DB . idx Ġ= Ġ 1 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . test Count Ġ= Ġ 1 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . pass ing Count Ġ= Ġ 1 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . failure Count Ġ= Ġ 0 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . skipped Count Ġ= Ġ 0 ĊĠĠĠĠĠĠĠ Ġtest Suite DB . className Ġ= Ġ" TestSuite " ĊĠĠĠĠĠĠĠ Ġtest Suite DB . has System Out Ġ= Ġtrue ĊĠĠĠĠĠĠĠ Ġtest Suite DB . has System Err Ġ= Ġtrue ĊĠĠĠĠĠĠĠ Ġtest Suite DB . system Out Ġ= Ġ" My Ġsystem Ġout " ĊĠĠĠĠĠĠĠ Ġtest Suite DB . system Err Ġ= Ġ" My Ġsystem Ġerr " ĊĠĠĠĠĠĠĠ Ġtest Suite Dao . insert ( test Suite DB ) ĊĊĠĠĠĠĠĠĠ Ġval Ġsystem Err Ġ= Ġrun Blocking Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtest Suite Database Repository . fetch TestSuite System Err ( public Id , Ġ 1 ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġexpect That ( system Err ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. get Ġ{ Ġvalue Ġ}. isNotNull (). isEqualTo (" My Ġsystem Ġerr ") ĊĠĠĠ Ġ} Ċ } Ċ