package Ġprojekt or . incoming results Ċ Ċ import Ġio . ktor . http .* Ċ import Ġio . ktor . server . testing .* Ċ import Ġio . ktor . util .* Ċ import Ġorg . junit . jupiter . api . Test Ċ import Ġprojekt or . Application TestCase Ċ import Ġprojekt or . parser . Group ed Results Xml Loader Ċ import Ġprojekt or . parser . Results Xml Loader Ċ import Ġprojekt or . parser . grouped . model . Git Metadata Ċ import Ġprojekt or . parser . grouped . model . Results Metadata Ċ import Ġstri kt . api . expect That Ċ import Ġstri kt . assertions . has Size Ċ import Ġstri kt . assertions . isEqualTo Ċ Ċ class ĠSingle Quote Xml Declaration Application Test Ġ: ĠApplication TestCase () Ġ{ ĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` should Ġsave Ġresults Ġwith Ġsingle - quoted ĠXML Ġdeclaration `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġgit Metadata Ġ= ĠGit Metadata () ĊĠĠĠĠĠĠĠ Ġgit Metadata . repo Name Ġ= Ġ" c raig atk / pro jekt or " ĊĠĠĠĠĠĠĠ Ġgit Metadata . branch Name Ġ= Ġ" main " ĊĠĠĠĠĠĠĠ Ġgit Metadata . is Main Branch Ġ= Ġtrue ĊĠĠĠĠĠĠĠ Ġval Ġmetadata Ġ= ĠResults Metadata () ĊĠĠĠĠĠĠĠ Ġmetadata . git Ġ= Ġgit Metadata ĊĊĠĠĠĠĠĠĠ Ġval Ġresult Xml Ġ= ĠResults Xml Loader (). single Quote Xml Declaration () ĊĠĠĠĠĠĠĠ Ġval Ġrequest Body Ġ= ĠGroup ed Results Xml Loader (). wrap Results Xml In Group ( result Xml , Ġmetadata ) ĊĊĠĠĠĠĠĠĠ Ġwith Test Application (:: create Test Application ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġhandle Request ( HttpMethod . Post , Ġ"/ grouped Results ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġadd Header ( HttpHeaders . ContentType , Ġ" application / json ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġset Body ( request Body ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ}. apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġ(_, Ġtest Run ) Ġ= ĠwaitFor Test Run Save To Complete ( response ) ĊĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġtest Su ites Ġ= Ġtest Suite Dao . fetch By Test Run Id ( test Run . id ) ĊĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġexpect That ( test Su ites ). has Size ( 1 ) ĊĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġexpect That ( test Su ites [ 0 ]) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġget Ġ{ ĠclassName Ġ}. isEqualTo (" Single Quote Spec ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ