use dataverse test;

let $t1 := datetime("1987-11-19T23:49:23.938")
let $t2 := date("-1328-10-23")
let $dr1 := duration("P7382DT39283M3921.329S")
let $dr2 := duration("-PT63H398212M3219.328S")
let $dr3 := duration("P1Y90M")
let $dr4 := duration("-P3Y89M4089DT47382.983S")
let $cdr1 := calendar-duration-from-datetime($t1, $dr1)
let $dt1 := add-datetime-duration($t1, $dr1)
let $dtt1 := add-datetime-duration($t1, $cdr1)
let $c1 := $dt1 = $dtt1
let $cdr2 := calendar-duration-from-datetime($t1, $dr2)
let $dt2 := add-datetime-duration($t1, $dr2)
let $dtt2 := add-datetime-duration($t1, $cdr2)
let $c2 := $dt2 = $dtt2
let $cdr3 := calendar-duration-from-datetime($t1, $dr3)
let $dt3 := add-datetime-duration($t1, $dr3)
let $dtt3 := add-datetime-duration($t1, $cdr3)
let $c3 := $dt3 = $dtt3
let $cdr4 := calendar-duration-from-datetime($t1, $dr4)
let $dt4 := add-datetime-duration($t1, $dr4)
let $dtt4 := add-datetime-duration($t1, $cdr4)
let $c4 := $dt4 = $dtt4
let $cdr5 := calendar-duration-from-date($t2, $dr1)
let $dt5 := add-date-duration($t2, $dr1)
let $dtt5 := add-date-duration($t2, $cdr5)
let $c5 := $dt5 = $dtt5
let $cdr6 := calendar-duration-from-date($t2, $dr2)
let $dt6 := add-date-duration($t2, $dr2)
let $dtt6 := add-date-duration($t2, $cdr6)
let $c6 := $dt6 = $dtt6
let $cdr7 := calendar-duration-from-date($t2, $dr3)
let $dt7 := add-date-duration($t2, $dr3)
let $dtt7 := add-date-duration($t2, $cdr7)
let $c7 := $dt7 = $dtt7
let $cdr8 := calendar-duration-from-date($t2, $dr4)
let $dt8 := add-date-duration($t2, $dr4)
let $dtt8 := add-date-duration($t2, $cdr8)
let $c8 := $dt8 = $dtt8

return { "cduration1":$cdr1, "c1":$c1, "cduration2":$cdr2, "c2":$c2, "cduration3":$cdr3, "c3":$c3, "cduration4":$cdr4, "c4":$c4, "cduration5":$cdr5, "c5":$c5, "cduration6":$cdr6, "c6":$c6, "cduration7":$cdr7, "c7":$c7, "cduration8":$cdr8, "c8":$c8 }