package Ġno . nav . person br uk er . dit tn av . event test producer . bes kj ed Ċ Ċ import Ġio . mock k . mock k Ċ import Ġkotlinx . coroutines . run Blocking Ċ import Ġno . nav . br uk er not ifik as jon . schemas . B es kj ed Ċ import Ġno . nav . br uk er not ifik as jon . schemas . N ok kel Ċ import Ġno . nav . br uk er not ifik as jon . schemas . builders . domain . Prefer ert K anal Ċ import Ġno . nav . person br uk er . dit tn av . event test producer . common . In n log getB ru ker Object M other Ċ import Ġno . nav . person br uk er . dit tn av . event test producer . common . create Key For Event Ċ import Ġno . nav . person br uk er . dit tn av . event test producer . common . kafka . Kafka Producer Wrapper Ċ import Ġorg . am sh ove . k lu ent .` should Ġbe Ġempty ` Ċ import Ġorg . am sh ove . k lu ent .` should Ġbe Ġequal Ġto ` Ċ import Ġorg . junit . jupiter . api . Test Ċ import Ġjava . util .* Ċ Ċ class ĠBes kj ed Producer Test Ġ{ ĊĊĠĠĠ Ġprivate Ġval Ġf od se ls nummer Ġ= Ġ" 1 2 3 4 5 6 7 8 9 1 0 " ĊĠĠĠ Ġprivate Ġval Ġevent Id Ġ= ĠUUID . randomUUID (). toString () ĊĠĠĠ Ġprivate Ġval Ġsystem br uk er Ġ= Ġ" x - d itt NAV " ĊĠĠĠ Ġprivate Ġval Ġlink Ġ= Ġ" https :// dummy . nav . no " ĊĠĠĠ Ġprivate Ġval Ġtek st Ġ= Ġ" dummy T ek st " ĊĠĠĠ Ġprivate Ġval Ġgr upper ings id Ġ= Ġ" dummy Gr upper ings id " ĊĠĠĠ Ġprivate Ġval Ġek st ern Var sl ing Ġ= Ġtrue ĊĠĠĠ Ġprivate Ġval Ġprefer erte K an aler Ġ= ĠlistOf ( Prefer ert K anal . SMS . toString (), ĠP refer ert K anal . E POST . toString ()) ĊĠĠĠ Ġprivate Ġval Ġinn log getB ru ker Ġ= ĠIn n log getB ru ker Object M other . create In n log getB ru ker ( f od se ls nummer ) ĊĠĠĠ Ġprivate Ġval Ġbes kj ed Kafka Producer Ġ= Ġmock k < Kafka Producer Wrapper < N ok kel , ĠBes kj ed >>() ĊĠĠĠ Ġprivate Ġval Ġbes kj ed Producer Ġ= ĠBes kj ed Producer ( bes kj ed Kafka Producer , Ġsystem br uk er ) ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġcreate Ġbes kj ed - event `() Ġ{ ĊĠĠĠĠĠĠĠ Ġrun Blocking Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġbes kj ed Dto Ġ= ĠPro duce B es kj ed Dto ( tek st , Ġlink , Ġgr upper ings id , Ġek st ern Var sl ing , Ġprefer erte K an aler ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġbes kj ed Kafka Event Ġ= Ġbes kj ed Producer . create B es kj ed For Ident ( inn log getB ru ker , Ġbes kj ed Dto ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . get Link () Ġ` should Ġbe Ġequal Ġto ` Ġlink ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . getT ek st () Ġ` should Ġbe Ġequal Ġto ` Ġtek st ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . get Gr upper ings Id () Ġ` should Ġbe Ġequal Ġto ` Ġgr upper ings id ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . get Ek st ern Var sl ing () Ġ` should Ġbe Ġequal Ġto ` Ġtrue ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . getP refer erte K an aler () Ġ` should Ġbe Ġequal Ġto ` Ġprefer erte K an aler ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġallow Ġno Ġlink Ġvalue `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġbes kj ed Dto Ġ= ĠPro duce B es kj ed Dto ( tek st , Ġnull , Ġgr upper ings id , Ġek st ern Var sl ing ) ĊĠĠĠĠĠĠĠ Ġval Ġbes kj ed Kafka Event Ġ= Ġbes kj ed Producer . create B es kj ed For Ident ( inn log getB ru ker , Ġbes kj ed Dto ) ĊĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . get Link () Ġ` should Ġbe Ġequal Ġto ` Ġ"" ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġcreate Ġbes kj ed - key `() Ġ{ ĊĠĠĠĠĠĠĠ Ġrun Blocking Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġnok kel Ġ= Ġcreate Key For Event ( eventId , Ġsystem br uk er ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġnok kel . getEvent Id () Ġ` should Ġbe Ġequal Ġto ` Ġevent Id ĊĠĠĠĠĠĠĠĠĠĠĠ Ġnok kel . getSystem br uk er () Ġ` should Ġbe Ġequal Ġto ` Ġsystem br uk er ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġallow Ġno Ġvalue Ġfor Ġprefer erte Ġkan aler `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġbes kj ed Dto Ġ= ĠPro duce B es kj ed Dto ( tek st , Ġlink , Ġgr upper ings id , Ġek st ern Var sl ing ) ĊĠĠĠĠĠĠĠ Ġval Ġbes kj ed Kafka Event Ġ= Ġbes kj ed Producer . create B es kj ed For Ident ( inn log getB ru ker , Ġbes kj ed Dto ) ĊĠĠĠĠĠĠĠ Ġbes kj ed Kafka Event . getP refer erte K an aler (). ` should Ġbe Ġempty `() ĊĠĠĠ Ġ} Ċ Ċ } Ċ