package Ġg uru . z oro ark . p ang oro Ċ Ċ import Ġg uru . z oro ark . p ang oro . expect ations . P ang oro Expected Node Ċ import Ġkotlin . test .* Ċ Ċ class ĠExpected Node Test Ġ{ ĊĠĠĠ Ġclass ĠOne Ġ: ĠP ang oro Node Ġ{ ĊĠĠĠĠĠĠĠ Ġcompanion Ġobject Ġ: ĠP ang oro Node Declaration < One > Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġoverride Ġfun Ġmake ( args : ĠP ang oro Type Description ): ĠOne Ġ= ĠOne () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġclass ĠTwo Ġ: ĠP ang oro Node Ġ{ ĊĠĠĠĠĠĠĠ Ġcompanion Ġobject Ġ: ĠP ang oro Node Declaration < Two > Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġoverride Ġfun Ġmake ( args : ĠP ang oro Type Description ): ĠTwo Ġ= ĠTwo () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest _ undefined _ expected _ node _ fails () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexp Ġ= ĠP ang oro Expected Node ( Two , Ġnull ) ĊĠĠĠĠĠĠĠ Ġassert Fails With < P ang oro Exception > Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġexp . matches ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠP ang oro Parsing Context ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠlistOf (), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmap Of ( One Ġto ĠP ang oro Descri bed Type ( One , ĠlistOf ())) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ 0 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġ}. apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġmsg Ġ= Ġmessage ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertNotNull ( msg ) ĊĠĠĠĠĠĠĠĠĠĠĠ ĠassertTrue ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmsg . contains Jvm (" Two ") Ġ&& Ġmsg . contains (" declared "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ" Expected Ġ' Two ' Ġand Ġ' declared ' Ġin Ġexception Ġmessage Ġ$ msg " ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ Test ĊĠĠĠ Ġfun Ġtest _ successful () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġexp Ġ= ĠP ang oro Expected Node ( Two , Ġ" ye et ") ĊĠĠĠĠĠĠĠ Ġval Ġres Ġ= Ġexp . matches ( ĊĠĠĠĠĠĠĠĠĠĠĠ ĠP ang oro Parsing Context ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠlistOf (), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmap Of ( Two Ġto ĠP ang oro Descri bed Type ( Two , ĠlistOf ())) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ), Ġ 0 ĊĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ ĠassertTrue ( res Ġis ĠExpect ation Result . Success ) ĊĠĠĠĠĠĠĠ ĠassertTrue ( res . stored [" ye et "] Ġis ĠTwo ) ĊĠĠĠ Ġ} Ċ }