| /* |
| * Description : Check the calendar-duration functions |
| * Expected Result : Success |
| * Date : 15th Oct, 2012 |
| */ |
| |
| drop dataverse test if exists; |
| create dataverse test; |
| use dataverse test; |
| |
| write output to nc1:"rttest/temp_calendar_duration.adm"; |
| |
| 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 $cdr2 := calendar-duration-from-datetime($t1, $dr2) |
| let $cdr3 := calendar-duration-from-datetime($t1, $dr3) |
| let $cdr4 := calendar-duration-from-datetime($t1, $dr4) |
| let $cdr5 := calendar-duration-from-date($t2, $dr1) |
| let $cdr6 := calendar-duration-from-date($t2, $dr2) |
| let $cdr7 := calendar-duration-from-date($t2, $dr3) |
| let $cdr8 := calendar-duration-from-date($t2, $dr4) |
| |
| return { "cduration1":$cdr1, "cduration2":$cdr2, "cduration3":$cdr3, "cduration4":$cdr4, "cduration5":$cdr5, "cduration6":$cdr6, "cduration7":$cdr7, "cduration8":$cdr8 } |