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

let $line := create-line(create-point(100.6,999.4), create-point(-872.0,-876.9))
let $line_list := get-points($line)
for $p in $line_list
return $p