/** Ċ Ġ* ĠCopyright Ġ 2 0 0 6 Ġ- Ġ 2 0 2 1 ĠJetBrains Ġs . r . o . Ċ Ġ* Ċ Ġ* Ġ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 Ġkotlinx . dn q Ċ Ċ import Ġcom . google . common . truth . Truth . assertThat Ċ import Ġjet brains . ex od us . entity store . Entity Ċ import Ġkotlinx . dn q . link . On Delete Policy . CASCADE Ċ import Ġkotlinx . dn q . link . On Delete Policy . CLEAR Ċ import Ġkotlinx . dn q . query . first Ċ import Ġkotlinx . dn q . query . toList Ċ import Ġorg . junit . Test Ċ Ċ class ĠDelete Test Ġ: ĠDB Test () Ġ{ ĊĊĠĠĠ Ġclass ĠCompany Team ( entity : ĠEntity ) Ġ: ĠX d Entity ( entity ) Ġ{ ĊĠĠĠĠĠĠĠ Ġcompanion Ġobject Ġ: ĠX d Natural EntityType < Company Team >() ĊĊĠĠĠĠĠĠĠ Ġvar Ġname Ġby Ġx d Required String Prop ( trimmed Ġ= Ġtrue ) ĊĠĠĠĠĠĠĠ Ġvar Ġparent Team : ĠCompany Team ? Ġby Ġx d Link 0 _ 1 ( Company Team :: nested Teams , ĠonDelete Ġ= ĠCLEAR ) ĊĠĠĠĠĠĠĠ Ġval Ġnested Teams Ġby Ġx d Link 0 _ N ( Company Team :: parent Team , ĠonDelete Ġ= ĠCASCADE ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġregister Entity Types () Ġ{ ĊĠĠĠĠĠĠĠ Ġsuper . register Entity Types () ĊĠĠĠĠĠĠĠ ĠX d Model . register Node ( Company Team ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġclear () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġ( user , Ġgroup ) Ġ= Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġuser Ġ= ĠUser . new Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġthis . login Ġ= Ġ" maz ine " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġthis . skill Ġ= Ġ 1 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġgroup Ġ= ĠRoot Group . new Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġname Ġ= Ġ" Group " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġusers . add ( user ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠĠĠĠĠ ĠPair ( user , Ġgroup ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertThat ( group . users . toList ()) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. contains Exactly ( user ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġuser . delete () ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertThat ( group . users . toList ()) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. isEmpty () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġclear Cascade () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġ( parent , Ġnested ) Ġ= Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġparent Ġ= ĠCompany Team . new Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġname Ġ= Ġ" parent " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġnested Ġ= ĠCompany Team . new Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġname Ġ= Ġ" nested " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġthis . parent Team Ġ= Ġparent ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ ĠPair ( parent , Ġnested ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertThat ( parent . nested Teams . first ()). isEqualTo ( nested ) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertThat ( nested . parent Team ). isEqualTo ( parent ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġnested . delete () ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġstore . transaction al Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertThat ( parent . nested Teams . toList ()). isEmpty () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ }