EVOLUTION-MANAGER

Edit File: 00-measures-04.t

use strict;
use warnings;
use bytes;
use v5.10;
use Test::More;
BEGIN { use_ok('Geo::GDAL') };

# test measured geometries in pg driver

#Geo::GDAL::SetConfigOption('CPL_DEBUG', 'ON');
#Geo::GDAL::DontUseExceptions();

my @data = (
    Point => 'POINT (1 2)',
    PointZ => 'POINT Z (1 2 3)',
    PointM => 'POINT M (1 2 3)',
    PointZM => 'POINT ZM (1 2 3 4)',

LineStringM => 'LINESTRING M (1 2 3)',
    LineStringZM => 'LINESTRING ZM (1 2 3 4,5 6 7 8)',

PolygonM => 'POLYGON M ((1 2 3))',
    MultiPointM => 'MULTIPOINT M ((1 2 3))',
    MultiLineStringM => 'MULTILINESTRING M ((1 2 3))',
    MultiPolygonM => 'MULTIPOLYGON M (((1 2 3)))',
    CircularStringM => 'CIRCULARSTRING M (1 2 3,1 2 3,1 2 3)',
    CompoundCurveM => 'COMPOUNDCURVE M ((0 1 2,2 3 4))',
    CurvePolygonM => 'CURVEPOLYGON M ((0 0 1,0 1 1,1 1 1,1 0 1,0 0 1))',
    MultiCurveM => 'MULTICURVE M (CIRCULARSTRING M (0 0 2,1 0 2,0 0 2),(0 0 2,1 1 2))',
    MultiSurfaceM => 'MULTISURFACE M (((1 2 3)))',

PolygonZM => 'POLYGON ZM ((1 2 3 4,5 6 7 8,9 6 7 8,1 2 3 0))',
    MultiPointZM => 'MULTIPOINT ZM ((1 2 3 4))',
    MultiLineStringZM => 'MULTILINESTRING ZM ((1 2 3 4,5 6 7 8))',
    MultiPolygonZM => 'MULTIPOLYGON ZM (((1 2 3 4,5 6 7 8,9 6 7 8,1 2 3 0)))',
    CircularStringZM => 'CIRCULARSTRING ZM (1 2 3 4,1 2 3 4,1 2 3 4)',
    CompoundCurveZM => 'COMPOUNDCURVE ZM ((0 1 2 3,2 3 4 5))',
    CurvePolygonZM => 'CURVEPOLYGON ZM ((0 0 1 2,0 1 1 2,1 1 1 2,1 0 1 2,0 0 1 2))',
    MultiCurveZM => 'MULTICURVE ZM (CIRCULARSTRING ZM (0 0 2 3,1 0 2 3,0 0 2 3),(0 0 2 3,1 1 2 3))',
    MultiSurfaceZM => 'MULTISURFACE ZM (((1 2 3 4,5 6 7 8,9 6 7 8,1 2 3 0)))',
);

my $driver = 'PostgreSQL';

eval {
    Geo::OGR::Open('PG:dbname=autotest', 1);
};
SKIP: {
    skip "PG connect to autotest failed. Probably it is not available.", 1 if $@;

for (my $i = 0; $i < @data; $i+=2) {
    my $type = $data[$i];
    eval {
        Geo::OGR::Open('PG:dbname=autotest', 1)->DeleteLayer(lc($type));
    };
    my $l = Geo::OGR::Open('PG:dbname=autotest', 1)->CreateLayer(Name => $type, GeometryType => $type);
    my $t = $l->GeometryType;
    $t = 'PointZ' if $t eq 'Point25D';
    ok($t eq $type, "$driver layer geom type: expected: $type, got: $t");
    eval {
        $l->InsertFeature({Geometry => {WKT => $data[$i+1]} });
    };
    if ($@) {
        my @e = split /\n/, $@;
        $e[0] =~ s/\. at .*/./;
        ok(0, "$driver, insert feature: $type => $data[$i+1] ($e[0])");
        undef $l;
        Geo::OGR::Open('PG:dbname=autotest', 1)->DeleteLayer(lc($type));
        next;
    }

# close and open
    $l = Geo::OGR::Open('PG:dbname=autotest')->Layer($type);
    $t = $l->GeometryType;
    $t = 'PointZ' if $t eq 'Point25D';
    ok($t eq $type, "$driver layer geom type: expected: $type, got: $t");

$l->ResetReading;
    while (my $f = $l->GetNextFeature()) {
        my $g = $f->GetGeometryRef;
        my $t = $g->GeometryType;
        $t = 'PointZ' if $t eq 'Point25D';
        ok($t eq $type, "$driver retrieve feature: expected: $type, got: $t");
        my $wkt = $g->As(Format => 'ISO WKT');
        ok($wkt eq $data[$i+1], "$driver retrieve feature: $type, expected: $data[$i+1] got: $wkt");
    }

Geo::OGR::Open('PG:dbname=autotest', 1)->DeleteLayer(lc($type));
}
}
done_testing();