/*
 * 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