package Ġcom . ep am . drill . admin . store Ċ Ċ import Ġcom . ep am . k od ux .* Ċ import Ġjet brains . ex od us . entity store .* Ċ import Ġkotlinx . coroutines .* Ċ import Ġkotlinx . serialization . Serializable Ċ import Ġjava . io .* Ċ import Ġjava . util .* Ċ import Ġkotlin . test .* Ċ Ċ class ĠMessage Pers isting Test Ġ{ ĊĊĠĠĠ Ġ@ Serializable ĊĠĠĠ Ġdata Ġclass ĠSimple Message ( val Ġs : ĠString ) ĊĊĠĠĠ Ġprivate Ġval Ġstorage Dir Ġ= ĠFile (" build / tmp / test / stores /${ this :: class . simple Name }-${ UUID . randomUUID () }") ĊĊĠĠĠ Ġprivate Ġval Ġstore Client Ġ= ĠStore Client ( Persistent Entity Stores . newInstance ( storage Dir )) ĊĊĠĠĠ Ġ@ After Test ĊĠĠĠ Ġfun Ġclean Store () Ġ{ ĊĠĠĠĠĠĠĠ Ġstore Client . store . close () ĊĠĠĠĠĠĠĠ Ġstorage Dir . delete Re cursively () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` store Message Ġ- Ġread Message `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġmessage Ġ= ĠSimple Message (" data ") ĊĠĠĠĠĠĠĠ Ġrun Blocking Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertNull ( store Client . read Message (" 1 ")) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġstore Client . store Message (" 1 ", Ġmessage ) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertEquals ( message , Ġstore Client . read Message (" 1 ")) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ