| /* | |
| * Description : Test spatial accessors | |
| * Expected Result : Success | |
| * Date : Oct 17, 2012 | |
| */ | |
| drop dataverse test if exists; | |
| create dataverse test; | |
| use dataverse test; | |
| write output to nc1:"rttest/spatial_rectangle_accessor.adm"; | |
| let $rectangle := create-rectangle(create-point(9.2,49.0), create-point(77.8,111.1)) | |
| let $rectangle_list := get-points($rectangle) | |
| for $p in $rectangle_list | |
| return $p |