package Ġcom . sk sam uel . kot est . extensions . http Ċ Ċ import Ġio . kot est . core . spec . style . Fun Spec Ċ import Ġio . kot est . extensions . http . http Ċ import Ġio . kot est . extensions . mock server . Mock Server Listener Ċ import Ġio . kot est . matchers . shouldBe Ċ import Ġio . ktor . http . HttpStatusCode Ċ import Ġorg . mock server . client . Mock Server Client Ċ import Ġorg . mock server . model . HttpRequest . request Ċ import Ġorg . mock server . model . HttpResponse . response Ċ Ċ class ĠHttpRequest Test Ġ: ĠFun Spec ({ ĊĊĠĠ Ġlistener ( Mock Server Listener ( 8 0 8 0 )) ĊĊĠĠ Ġbefore Test Ġ{ ĊĠĠĠĠĠ ĠMock Server Client (" localhost ", Ġ 1 0 8 0 ). ` when `( ĊĠĠĠĠĠĠĠĠ Ġrequest () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with Method (" POST ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with Path ("/ login ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with Header (" Accept ", Ġ" application / json ") ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with Body ("{ username : Ġ' foo ', Ġpassword : Ġ' bar '} ") ĊĠĠĠĠĠ Ġ). respond ( ĊĠĠĠĠĠĠĠĠ Ġresponse () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with StatusCode ( 2 0 2 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with Cookie ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ" sessionId ", Ġ" 2 By 8 LO h B ma W 5 n ZXJ wc ml ud CI l MD Az MW " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ. with Header ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ" X - Test ", Ġ" foo " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠ Ġ) ĊĠĠ Ġ} ĊĊĠĠ Ġtest (" get Ġhttp Ġrequest ") Ġ{ ĊĠĠĠĠĠ Ġhttp ("/ example _ get . http ") Ġ{ ĊĠĠĠĠĠĠĠĠ Ġit . status ĠshouldBe ĠHttpStatusCode . OK ĊĠĠĠĠĠ Ġ} ĊĠĠ Ġ} ĊĊĠĠ Ġtest (" post Ġhttp Ġrequest ") Ġ{ ĊĠĠĠĠĠ Ġhttp ("/ example _ post . http ") Ġ{ ĊĠĠĠĠĠĠĠĠ Ġit . status ĠshouldBe ĠHttpStatusCode . Accepted ĊĠĠĠĠĠĠĠĠ Ġit . headers [" X - Test "] ĠshouldBe Ġ" foo " ĊĠĠĠĠĠ Ġ} ĊĠĠ Ġ} Ċ }) Ċ