package Ġio . doc ro zza . pro venance . rdf Ċ Ċ import Ġcom . st ard og . st ark . Values Ċ import Ġcom . st ard og . st ark . voc abs . X SD Ċ import Ġio . doc ro zza . pro venance . rdf . St ard og Utils . iri Ċ import Ġio . doc ro zza . pro venance . rdf . St ard og Utils . to Instant Ċ import Ġio . doc ro zza . pro venance . rdf . St ard og Utils . to Literal Ċ import Ġjava . time . Instant Ċ import Ġjava . time . Zone Id Ċ import Ġkotlin . test . assertEquals Ċ import Ġkotlin . test . assert Fails Ċ import Ġorg . junit . jupiter . api . Test Ġas Ġtest Ċ Ċ class ĠSt ard og UtilsTest Ġ{ ĊĊĠĠĠ Ġ@ test Ġfun Ġi ri () Ġ{ ĊĠĠĠĠĠĠĠ ĠassertEquals ( Values . iri (" urn : test : thing "), Ġ" urn : test :" . iri (" thing ")) ĊĠĠĠĠĠĠĠ ĠassertEquals ( Values . iri (" urn : test :", Ġ" thing "), Ġ" urn : test :" . iri (" thing ")) ĊĠĠĠĠĠĠĠ ĠassertEquals ( Values . iri (" urn : test : stuff # thing "), Ġ" urn : test : stuff # ". iri (" thing ")) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ test Ġfun Ġinstant To R df () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġzone Ġ= ĠZone Id . of (" Europe / L ondon ") ĊĊĠĠĠĠĠĠĠ Ġvar Ġinstant Ġ= ĠInstant . of Epoch Milli ( 1 5 8 3 0 6 4 0 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals (" 2 0 2 0 - 0 3 - 0 1 T 1 2 : 0 0 : 0 0 Z ", Ġto Literal ( instant ). label ()) ĊĠĠĠĠĠĠĠ ĠassertEquals (" 2 0 2 0 - 0 3 - 0 1 T 1 2 : 0 0 : 0 0 Z ", Ġto Literal ( instant , Ġzone ). label ()) ĊĊĠĠĠĠĠĠĠ Ġinstant Ġ= ĠInstant . of Epoch Milli ( 1 5 8 5 7 3 8 8 0 0 0 0 0 ) ĊĠĠĠĠĠĠĠ ĠassertEquals (" 2 0 2 0 - 0 4 - 0 1 T 1 1 : 0 0 : 0 0 Z ", Ġto Literal ( instant ). label ()) ĊĠĠĠĠĠĠĠ ĠassertEquals (" 2 0 2 0 - 0 4 - 0 1 T 1 2 : 0 0 : 0 0 + 0 1 : 0 0 ", Ġto Literal ( instant , Ġzone ). label ()) ĊĊĠĠĠĠĠĠĠ Ġinstant Ġ= ĠInstant . of Epoch Milli ( 1 5 8 5 7 3 8 8 0 0 0 4 2 ) ĊĠĠĠĠĠĠĠ ĠassertEquals (" 2 0 2 0 - 0 4 - 0 1 T 1 1 : 0 0 : 0 0 . 0 4 2 Z ", Ġto Literal ( instant ). label ()) ĊĠĠĠĠĠĠĠ ĠassertEquals (" 2 0 2 0 - 0 4 - 0 1 T 1 2 : 0 0 : 0 0 . 0 4 2 + 0 1 : 0 0 ", Ġto Literal ( instant , Ġzone ). label ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ test Ġfun Ġdate To Instant () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġzone Ġ= ĠZone Id . of (" Europe / L ondon ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 3 0 2 0 8 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 3 - 0 1 ", ĠXSD . DATE )). to Epoch Milli ()) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 5 6 9 9 2 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 4 - 0 1 ", ĠXSD . DATE )). to Epoch Milli ()) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 5 6 9 5 6 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 4 - 0 1 ", ĠXSD . DATE ), Ġzone ). to Epoch Milli ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ test Ġfun ĠdateTime To Instant () Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġzone Ġ= ĠZone Id . of (" Europe / L ondon ") ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 3 0 6 4 0 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 3 - 0 1 T 1 2 : 0 0 : 0 0 . 0 0 0 Z ", ĠXSD . DATETIME )). to Epoch Milli ()) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 5 7 4 2 4 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 4 - 0 1 T 1 2 : 0 0 : 0 0 . 0 0 0 Z ", ĠXSD . DATETIME )). to Epoch Milli ()) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 5 7 4 2 4 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 4 - 0 1 T 1 2 : 0 0 : 0 0 . 0 0 0 Z ", ĠXSD . DATETIME ), Ġzone ). to Epoch Milli ()) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 5 7 4 2 4 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 4 - 0 1 T 1 3 : 0 0 : 0 0 . 0 0 0 + 0 1 : 0 0 ", ĠXSD . DATETIME )). to Epoch Milli ()) ĊĠĠĠĠĠĠĠ ĠassertEquals ( 1 5 8 5 7 4 2 4 0 0 0 0 0 , Ġto Instant ( Values . literal (" 2 0 2 0 - 0 4 - 0 1 T 1 3 : 0 0 : 0 0 . 0 0 0 + 0 1 : 0 0 ", ĠXSD . DATETIME ), Ġzone ). to Epoch Milli ()) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġ@ test Ġfun Ġinvalid To Instant () Ġ{ ĊĠĠĠĠĠĠĠ Ġassert Fails Ġ{ Ġto Instant ( Values . literal ( true )) Ġ} ĊĠĠĠĠĠĠĠ Ġassert Fails Ġ{ Ġto Instant ( Values . literal ("")) Ġ} ĊĠĠĠĠĠĠĠ Ġassert Fails Ġ{ Ġto Instant ( Values . literal ( 1 3 )) Ġ} ĊĠĠĠ Ġ} Ċ }