package Ġorg . k prop map Ċ Ċ import Ġcom . nat pr y ce . ham k rest . abs ent Ċ import Ġcom . nat pr y ce . ham k rest . assertion . assertThat Ċ import Ġcom . nat pr y ce . ham k rest . equalTo Ċ import Ġcom . nat pr y ce . ham k rest . present Ċ import Ġorg . junit . jupiter . api . Test Ċ import Ġorg . k prop map . test . Simple Values Ċ Ċ class ĠBasic Map Operations Test Ġ{ ĊĠ Ġ@ Test ĊĠ Ġfun Ġ` Gets Ġtyped Ġvalues `() Ġ{ ĊĠĠĠ Ġval Ġinput Ġ= Ġprop Map Of ( ĊĠĠĠĠĠ ĠSimple Values :: string Regular Ġto Ġnull , ĊĠĠĠĠĠ ĠSimple Values :: string Regular Nullable Ġto Ġnull , ĊĠĠĠĠĠ ĠSimple Values :: int Regular Ġto Ġ 5 , ĊĠĠĠĠĠ ĠSimple Values :: int Regular Nullable Ġto Ġ 6 ĊĠĠĠ Ġ) ĊĊĠĠĠ ĠassertThat ( input [ Simple Values :: string Regular ], Ġabsent ()) ĊĠĠĠ ĠassertThat ( input [ Simple Values :: string Regular Nullable ], Ġabsent ()) ĊĠĠĠ ĠassertThat ( input [ Simple Values :: int Regular ], Ġpresent ( equalTo ( 5 ))) ĊĠĠĠ ĠassertThat ( input [ Simple Values :: int Regular Nullable ], Ġpresent ( equalTo ( 6 ))) ĊĠ Ġ} ĊĊĠ Ġ@ Test ĊĠ Ġfun Ġ` Remov es Ġtyped Ġvalues `() Ġ{ ĊĠĠĠ Ġval Ġinput Ġ= Ġprop Map Of ( ĊĠĠĠĠĠ ĠSimple Values :: string Regular Ġto Ġnull , ĊĠĠĠĠĠ ĠSimple Values :: string Regular Nullable Ġto Ġnull , ĊĠĠĠĠĠ ĠSimple Values :: int Regular Ġto Ġ 5 , ĊĠĠĠĠĠ ĠSimple Values :: int Regular Nullable Ġto Ġ 6 ĊĠĠĠ Ġ) ĊĊĠĠĠ ĠassertThat ( input . remove ( Simple Values :: string Regular ), Ġabsent ()) ĊĠĠĠ ĠassertThat ( input . remove ( Simple Values :: string Regular Nullable ), Ġabsent ()) ĊĠĠĠ ĠassertThat ( input . remove ( Simple Values :: int Regular ), Ġpresent ( equalTo ( 5 ))) ĊĠĠĠ ĠassertThat ( input . remove ( Simple Values :: int Regular Nullable ), Ġpresent ( equalTo ( 6 ))) ĊĠ Ġ} ĊĊĠ Ġ@ Test ĊĠ Ġfun Ġ` Contains Ġtyped Ġvalues `() Ġ{ ĊĠĠĠ Ġval Ġinput Ġ= Ġprop Map Of ( ĊĠĠĠĠĠ ĠSimple Values :: string Regular Ġto Ġnull , ĊĠĠĠĠĠ ĠSimple Values :: string Regular Nullable Ġto Ġnull , ĊĠĠĠĠĠ ĠSimple Values :: int Regular Ġto Ġ 5 , ĊĠĠĠĠĠ ĠSimple Values :: int Regular Nullable Ġto Ġ 6 ĊĠĠĠ Ġ) ĊĊĠĠĠ ĠassertThat ( Simple Values :: string Regular Ġin Ġinput , ĠequalTo ( true )) ĊĠĠĠ ĠassertThat ( Simple Values :: string Regular Nullable Ġin Ġinput , ĠequalTo ( true )) ĊĠĠĠ ĠassertThat ( Simple Values :: int Regular Ġin Ġinput , ĠequalTo ( true )) ĊĠĠĠ ĠassertThat ( Simple Values :: int Regular Nullable Ġin Ġinput , ĠequalTo ( true )) ĊĠĠĠ ĠassertThat ( Simple Values :: boolean False Ġin Ġinput , ĠequalTo ( false )) ĊĠĠĠ ĠassertThat ( Simple Values :: boolean Nullable Ġin Ġinput , ĠequalTo ( false )) ĊĠ Ġ} Ċ } Ċ