Reduce database size (#1438)

Reduce database size

3 files changed, 47 insertions, 10 deletions

diff --git a/test/cli/testprojinfo b/test/cli/testprojinfo
index 244e1bd5..d8569a76 100755
--- a/test/cli/testprojinfo
+++ b/test/cli/testprojinfo
@@ -103,8 +103,8 @@ echo "Testing CRS with towgs84: projinfo -o PROJ EPSG:25832" >> ${OUT}
 $EXE -o PROJ EPSG:25832 >>${OUT} 2>&1
 echo "" >>${OUT}
 
-echo "Testing RH2000 height to SWEREF99: projinfo -s EPSG:5613 -t EPSG:4377" >> ${OUT}
-$EXE -s EPSG:5613 -t EPSG:4377 >>${OUT} 2>&1
+echo "Testing RH2000 height to SWEREF99: projinfo -s EPSG:5613 -t EPSG:4977" >> ${OUT}
+$EXE -s EPSG:5613 -t EPSG:4977 >>${OUT} 2>&1
 echo "" >>${OUT}
 
 echo "Testing NAD83(2011) + NAVD88 height -> NAD83(2011) : projinfo -s EPSG:6349 -t EPSG:6319 --spatial-test intersects -o PROJ" >> ${OUT}
diff --git a/test/cli/testprojinfo_out.dist b/test/cli/testprojinfo_out.dist
index f5cbb8bf..ea0f4983 100644
--- a/test/cli/testprojinfo_out.dist
+++ b/test/cli/testprojinfo_out.dist
@@ -693,12 +693,12 @@ Testing CRS with towgs84: projinfo -o PROJ EPSG:25832
 PROJ.4 string:
 +proj=utm +zone=32 +ellps=GRS80 +towgs84=0,0,0,0,0,0,0 +units=m +no_defs +type=crs
 
-Testing RH2000 height to SWEREF99: projinfo -s EPSG:5613 -t EPSG:4377
+Testing RH2000 height to SWEREF99: projinfo -s EPSG:5613 -t EPSG:4977
 Candidate operations found: 1
 -------------------------------------
 Operation n°1:
 
-PROJ:EPSG_5613_TO_EPSG_4377, RH2000 height to SWEREF99, unknown accuracy, Sweden - onshore
+PROJ:EPSG_5613_TO_EPSG_4977, RH2000 height to SWEREF99, unknown accuracy, Sweden - onshore
 
 PROJ string:
 +proj=vgridshift +grids=SWEN17_RH2000.gtx +multiplier=1
@@ -713,7 +713,7 @@ COORDINATEOPERATION["RH2000 height to SWEREF99",
                     LENGTHUNIT["metre",1]],
             ID["EPSG",5613]]],
     TARGETCRS[
-        GEOGCRS["SWEREF99 (3D)",
+        GEOGCRS["SWEREF99",
             DATUM["SWEREF99",
                 ELLIPSOID["GRS 1980",6378137,298.257222101,
                     LENGTHUNIT["metre",1]]],
@@ -722,14 +722,14 @@ COORDINATEOPERATION["RH2000 height to SWEREF99",
             CS[ellipsoidal,3],
                 AXIS["geodetic latitude (Lat)",north,
                     ORDER[1],
-                    ANGLEUNIT["degree minute second hemisphere",0.0174532925199433]],
-                AXIS["geodetic longitude (Long)",east,
+                    ANGLEUNIT["degree",0.0174532925199433]],
+                AXIS["geodetic longitude (Lon)",east,
                     ORDER[2],
-                    ANGLEUNIT["degree minute second hemisphere",0.0174532925199433]],
+                    ANGLEUNIT["degree",0.0174532925199433]],
                 AXIS["ellipsoidal height (h)",up,
                     ORDER[3],
                     LENGTHUNIT["metre",1]],
-            ID["EPSG",4377]]],
+            ID["EPSG",4977]]],
     METHOD["GravityRelatedHeight to Geographic3D",
         ID["PROJ","HEIGHT_TO_GEOGRAPHIC3D"]],
     PARAMETERFILE["Geoid (height correction) model file","SWEN17_RH2000.gtx"],
@@ -737,7 +737,7 @@ COORDINATEOPERATION["RH2000 height to SWEREF99",
         SCOPE["unknown"],
         AREA["Sweden - onshore"],
         BBOX[55.28,10.93,69.07,24.17]],
-    ID["PROJ","EPSG_5613_TO_EPSG_4377"]]
+    ID["PROJ","EPSG_5613_TO_EPSG_4977"]]
 
 Testing NAD83(2011) + NAVD88 height -> NAD83(2011) : projinfo -s EPSG:6349 -t EPSG:6319 --spatial-test intersects -o PROJ
 Candidate operations found: 2
diff --git a/test/unit/test_io.cpp b/test/unit/test_io.cpp
index df2481e6..294e765d 100644
--- a/test/unit/test_io.cpp
+++ b/test/unit/test_io.cpp
@@ -5180,6 +5180,43 @@ TEST(wkt_parse, wkt1_esri_ups_south) {
 
 // ---------------------------------------------------------------------------
 
+TEST(wkt_parse, wkt1_esri_gauss_kruger) {
+    auto wkt = "PROJCS[\"ETRS_1989_UWPP_2000_PAS_8\",GEOGCS[\"GCS_ETRS_1989\","
+               "DATUM[\"D_ETRS_1989\","
+               "SPHEROID[\"GRS_1980\",6378137.0,298.257222101]],"
+               "PRIMEM[\"Greenwich\",0.0],"
+               "UNIT[\"Degree\",0.0174532925199433]],"
+               "PROJECTION[\"Gauss_Kruger\"],"
+               "PARAMETER[\"False_Easting\",8500000.0],"
+               "PARAMETER[\"False_Northing\",0.0],"
+               "PARAMETER[\"Central_Meridian\",24.0],"
+               "PARAMETER[\"Scale_Factor\",0.999923],"
+               "PARAMETER[\"Latitude_Of_Origin\",0.0],"
+               "UNIT[\"Meter\",1.0]]";
+
+    auto dbContext = DatabaseContext::create();
+    auto obj = WKTParser().attachDatabaseContext(dbContext).createFromWKT(wkt);
+    auto crs = nn_dynamic_pointer_cast<ProjectedCRS>(obj);
+    ASSERT_TRUE(crs != nullptr);
+
+    EXPECT_EQ(
+        crs->exportToWKT(
+            WKTFormatter::create(WKTFormatter::Convention::WKT1_ESRI, dbContext)
+                .get()),
+        wkt);
+
+    auto crs2 = AuthorityFactory::create(dbContext, "ESRI")
+                    ->createProjectedCRS("102177");
+
+    EXPECT_EQ(
+        crs2->exportToWKT(
+            WKTFormatter::create(WKTFormatter::Convention::WKT1_ESRI, dbContext)
+                .get()),
+        wkt);
+}
+
+// ---------------------------------------------------------------------------
+
 TEST(wkt_parse, invalid) {
     EXPECT_THROW(WKTParser().createFromWKT(""), ParsingException);
     EXPECT_THROW(WKTParser().createFromWKT("A"), ParsingException);