package Ġorg . http 4 k . lens Ċ Ċ import Ġcom . nat pr y ce . ham k rest . assertion . assertThat Ċ import Ġcom . nat pr y ce . ham k rest . equalTo Ċ import Ġorg . http 4 k . core . Body Ċ import Ġorg . http 4 k . core . ContentType . Companion . TEXT _ PLAIN Ċ import Ġorg . http 4 k . core . Method Ċ import Ġorg . http 4 k . core . Request Ċ import Ġorg . http 4 k . core . Response Ċ import Ġorg . http 4 k . core . Status . Companion . OK Ċ import Ġorg . http 4 k . core . with Ċ import Ġorg . http 4 k . lens . Header . Common . CONTENT _ TYPE Ċ import Ġorg . junit . Test Ċ Ċ class ĠHttp Message Test Ġ{ ĊĊĠĠĠ Ġprivate Ġval Ġempty Request Ġ= ĠRequest ( Method . GET , Ġ"") ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` can Ġbind Ġmany Ġobjects Ġto Ġa Ġrequest `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġpopulated Ġ= Ġempty Request . with ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠBody . string ( TEXT _ PLAIN ). to Lens () Ġof Ġ" the Ġbody ", ĊĠĠĠĠĠĠĠĠĠĠĠ ĠHeader . int (). required (" int Header ") Ġof Ġ 1 2 3 , ĊĠĠĠĠĠĠĠĠĠĠĠ ĠQuery . boolean (). required (" boolean ") Ġof Ġtrue ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ ĠassertThat ( pop ulated . body String (), ĠequalTo (" the Ġbody ")) ĊĠĠĠĠĠĠĠ ĠassertThat ( pop ulated . header (" int Header "), ĠequalTo (" 1 2 3 ")) ĊĠĠĠĠĠĠĠ ĠassertThat ( pop ulated . query (" boolean "), ĠequalTo (" true ")) ĊĠĠĠĠĠĠĠ ĠassertThat ( CONTENT _ TYPE ( pop ulated ), ĠequalTo ( TEXT _ PLAIN )) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġ` can Ġbind Ġmany Ġobjects Ġto Ġa Ġresponse `() Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġpopulated Ġ= ĠResponse ( OK ). with ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠBody . string ( TEXT _ PLAIN ). to Lens () Ġof Ġ" the Ġbody ", ĊĠĠĠĠĠĠĠĠĠĠĠ ĠHeader . int (). required (" int Header ") Ġof Ġ 1 2 3 ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ ĠassertThat ( pop ulated . body String (), ĠequalTo (" the Ġbody ")) ĊĠĠĠĠĠĠĠ ĠassertThat ( pop ulated . header (" int Header "), ĠequalTo (" 1 2 3 ")) ĊĠĠĠĠĠĠĠ ĠassertThat ( CONTENT _ TYPE ( pop ulated ), ĠequalTo ( TEXT _ PLAIN )) ĊĠĠĠ Ġ} Ċ } ĊĊĊ