diff --git a/t/sr.t b/t/sr.t index 524954e..5c3dc45 100644 --- a/t/sr.t +++ b/t/sr.t @@ -15,8 +15,7 @@ my $gdal = Geo::GDAL::FFI->get_instance(); SKIP: { skip "GDAL support files not found.", 1 if !$gdal->FindFile('gcs.csv'); my $sr = Geo::GDAL::FFI::SpatialReference->new(EPSG => 3067); - ok($sr->Export('Wkt') eq 'PROJCS["ETRS89 / TM35FIN(E,N)",GEOGCS["ETRS89",DATUM["European_Terrestrial_Reference_System_1989",SPHEROID["GRS 1980",6378137,298.257222101,AUTHORITY["EPSG","7019"]],AUTHORITY["EPSG","6258"]],PRIMEM["Greenwich",0,AUTHORITY["EPSG","8901"]],UNIT["degree",0.0174532925199433,AUTHORITY["EPSG","9122"]],AUTHORITY["EPSG","4258"]],PROJECTION["Transverse_Mercator"],PARAMETER["latitude_of_origin",0],PARAMETER["central_meridian",27],PARAMETER["scale_factor",0.9996],PARAMETER["false_easting",500000],PARAMETER["false_northing",0],UNIT["metre",1,AUTHORITY["EPSG","9001"]],AXIS["Easting",EAST],AXIS["Northing",NORTH],AUTHORITY["EPSG","3067"]]', - 'Import/export'); + ok($sr->Export('Wkt') =~ /^PROJCS/, 'SpatialReference constructor and WKT export'); } }