/*
 * 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_polygon_accessor.adm";

let $polygon := create-polygon(create-point(1.0,1.0), create-point(2.0,2.0), create-point(3.0,3.0), create-point(4.0,4.0))
let $polygon_list := get-points($polygon)
for $p in $polygon_list
return $p