PostGIS  3.1.6dev-r@@SVN_REVISION@@

◆ test_lwgeom_tcpa()

static void test_lwgeom_tcpa ( void  )
static

Definition at line 1258 of file cu_measures.c.

1259 {
1260  LWGEOM *g1, *g2;
1261  double m, dist;
1262 
1263  /* Invalid input, lack of dimensions */
1264 
1265  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 0 0 1)", LW_PARSER_CHECK_NONE);
1266  g2 = lwgeom_from_wkt("LINESTRING (0 0 2, 0 0 5)", LW_PARSER_CHECK_NONE);
1267  m = lwgeom_tcpa(g1, g2, NULL);
1268  lwgeom_free(g1);
1269  lwgeom_free(g2);
1270  ASSERT_DOUBLE_EQUAL(m, -1.0);
1271  ASSERT_STRING_EQUAL(
1272  cu_error_msg,
1273  "Both input geometries must have a measure dimension");
1274 
1275  /* Invalid input, not linestrings */
1276 
1277  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 0 0 1)", LW_PARSER_CHECK_NONE);
1278  g2 = lwgeom_from_wkt("POINT M (0 0 2)", LW_PARSER_CHECK_NONE);
1279  m = lwgeom_tcpa(g1, g2, NULL);
1280  lwgeom_free(g1);
1281  lwgeom_free(g2);
1282  ASSERT_DOUBLE_EQUAL(m, -1.0);
1283  ASSERT_STRING_EQUAL(cu_error_msg,
1284  "Both input geometries must be linestrings");
1285 
1286  /* Invalid input, too short linestring */
1287 
1288  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 10 0 10)", LW_PARSER_CHECK_NONE);
1289  g2 = lwgeom_from_wkt("LINESTRING M(2 0 1)", LW_PARSER_CHECK_NONE);
1290  dist = -77;
1291  m = lwgeom_tcpa(g1, g2, &dist);
1292  lwgeom_free(g1);
1293  lwgeom_free(g2);
1294  ASSERT_DOUBLE_EQUAL(dist, -77.0); /* not touched */
1295  ASSERT_DOUBLE_EQUAL(m, -1.0);
1296  ASSERT_STRING_EQUAL(
1297  cu_error_msg,
1298  "Both input lines must have at least 2 points" /* should be accepted
1299  ? */
1300 
1301  );
1302 
1303  /* Invalid input, empty linestring */
1304 
1305  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 10 0 10)", LW_PARSER_CHECK_NONE);
1306  g2 = lwgeom_from_wkt("LINESTRING M EMPTY", LW_PARSER_CHECK_NONE);
1307  m = lwgeom_tcpa(g1, g2, NULL);
1308  lwgeom_free(g1);
1309  lwgeom_free(g2);
1310  ASSERT_DOUBLE_EQUAL(m, -1.0);
1311  ASSERT_STRING_EQUAL(cu_error_msg,
1312  "Both input lines must have at least 2 points"
1313 
1314  );
1315 
1316  /* Timeranges do not overlap */
1317 
1318  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 0 0 1)", LW_PARSER_CHECK_NONE);
1319  g2 = lwgeom_from_wkt("LINESTRING M(0 0 2, 0 0 5)", LW_PARSER_CHECK_NONE);
1320  m = lwgeom_tcpa(g1, g2, NULL);
1321  lwgeom_free(g1);
1322  lwgeom_free(g2);
1323  ASSERT_DOUBLE_EQUAL(m, -2.0); /* means timeranges do not overlap */
1324 
1325  /* One of the tracks is still, the other passes to that point */
1326 
1327  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 0 0 1)", LW_PARSER_CHECK_NONE);
1328  g2 = lwgeom_from_wkt("LINESTRING M(0 0 1, 0 0 5)", LW_PARSER_CHECK_NONE);
1329  dist = -1;
1330  m = lwgeom_tcpa(g1, g2, &dist);
1331  ASSERT_DOUBLE_EQUAL(m, 1.0);
1332  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1333  CU_ASSERT( lwgeom_cpa_within(g1, g2, 0.0) == LW_TRUE );
1334  lwgeom_free(g1);
1335  lwgeom_free(g2);
1336 
1337  /* One of the tracks is still, the other passes at 10 meters from point */
1338 
1339  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 0 0 5)", LW_PARSER_CHECK_NONE);
1340  g2 = lwgeom_from_wkt("LINESTRING M(-10 10 1, 10 10 5)", LW_PARSER_CHECK_NONE);
1341  dist = -1;
1342  m = lwgeom_tcpa(g1, g2, &dist);
1343  ASSERT_DOUBLE_EQUAL(m, 3.0);
1344  ASSERT_DOUBLE_EQUAL(dist, 10.0);
1345  CU_ASSERT( lwgeom_cpa_within(g1, g2, 11.0) == LW_TRUE );
1346  CU_ASSERT( lwgeom_cpa_within(g1, g2, 10.0) == LW_TRUE );
1347  CU_ASSERT( lwgeom_cpa_within(g1, g2, 9.0) == LW_FALSE );
1348  lwgeom_free(g1);
1349  lwgeom_free(g2);
1350 
1351  /* Equal tracks, 2d */
1352 
1353  g1 = lwgeom_from_wkt("LINESTRING M(0 0 10, 10 0 20)", LW_PARSER_CHECK_NONE);
1354  g2 = lwgeom_from_wkt("LINESTRING M(0 0 10, 10 0 20)", LW_PARSER_CHECK_NONE);
1355  dist = -1;
1356  m = lwgeom_tcpa(g1, g2, &dist);
1357  lwgeom_free(g1);
1358  lwgeom_free(g2);
1359  ASSERT_DOUBLE_EQUAL(m, 10.0);
1360  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1361 
1362  /* Reversed tracks, 2d */
1363 
1364  g1 = lwgeom_from_wkt("LINESTRING M(0 0 10, 10 0 20)", LW_PARSER_CHECK_NONE);
1365  g2 = lwgeom_from_wkt("LINESTRING M(10 0 10, 0 0 20)", LW_PARSER_CHECK_NONE);
1366  dist = -1;
1367  m = lwgeom_tcpa(g1, g2, &dist);
1368  lwgeom_free(g1);
1369  lwgeom_free(g2);
1370  ASSERT_DOUBLE_EQUAL(m, 15.0);
1371  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1372 
1373  /* Parallel tracks, same speed, 2d */
1374 
1375  g1 = lwgeom_from_wkt("LINESTRING M(2 0 10, 12 0 20)", LW_PARSER_CHECK_NONE);
1376  g2 = lwgeom_from_wkt("LINESTRING M(13 0 10, 23 0 20)", LW_PARSER_CHECK_NONE);
1377  dist = -1;
1378  m = lwgeom_tcpa(g1, g2, &dist);
1379  lwgeom_free(g1);
1380  lwgeom_free(g2);
1381  ASSERT_DOUBLE_EQUAL(m, 10.0);
1382  ASSERT_DOUBLE_EQUAL(dist, 11.0);
1383 
1384  /* Parallel tracks, different speed (g2 gets closer as time passes), 2d */
1385 
1386  g1 = lwgeom_from_wkt("LINESTRING M(4 0 10, 10 0 20)", LW_PARSER_CHECK_NONE);
1387  g2 = lwgeom_from_wkt("LINESTRING M(2 0 10, 9 0 20)", LW_PARSER_CHECK_NONE);
1388  dist = -1;
1389  m = lwgeom_tcpa(g1, g2, &dist);
1390  lwgeom_free(g1);
1391  lwgeom_free(g2);
1392  ASSERT_DOUBLE_EQUAL(m, 20.0);
1393  ASSERT_DOUBLE_EQUAL(dist, 1.0);
1394 
1395  /* Parallel tracks, different speed (g2 left behind as time passes), 2d */
1396 
1397  g1 = lwgeom_from_wkt("LINESTRING M(4 0 10, 10 0 20)", LW_PARSER_CHECK_NONE);
1398  g2 = lwgeom_from_wkt("LINESTRING M(2 0 10, 6 0 20)", LW_PARSER_CHECK_NONE);
1399  dist = -1;
1400  m = lwgeom_tcpa(g1, g2, &dist);
1401  lwgeom_free(g1);
1402  lwgeom_free(g2);
1403  ASSERT_DOUBLE_EQUAL(m, 10.0);
1404  ASSERT_DOUBLE_EQUAL(dist, 2.0);
1405 
1406  /* Tracks, colliding, 2d */
1407 
1408  g1 = lwgeom_from_wkt("LINESTRING M(0 0 0, 10 0 10)", LW_PARSER_CHECK_NONE);
1409  g2 = lwgeom_from_wkt("LINESTRING M(5 -8 0, 5 8 10)", LW_PARSER_CHECK_NONE);
1410  dist = -1;
1411  m = lwgeom_tcpa(g1, g2, &dist);
1412  lwgeom_free(g1);
1413  lwgeom_free(g2);
1414  ASSERT_DOUBLE_EQUAL(m, 5.0);
1415  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1416 
1417  /* Tracks crossing, NOT colliding, 2d */
1418 
1419  g1 = lwgeom_from_wkt("LINESTRING M(0 0 0, 10 0 10)", LW_PARSER_CHECK_NONE);
1420  g2 = lwgeom_from_wkt("LINESTRING M(8 -5 0, 8 5 10)", LW_PARSER_CHECK_NONE);
1421  dist = -1;
1422  m = lwgeom_tcpa(g1, g2, &dist);
1423  lwgeom_free(g1);
1424  lwgeom_free(g2);
1425  ASSERT_DOUBLE_EQUAL(m, 6.5);
1426  ASSERT_DOUBLE_EQUAL(rint(dist*100), 212.0);
1427 
1428  /* Same origin, different direction, 2d */
1429 
1430  g1 = lwgeom_from_wkt("LINESTRING M(0 0 1, 10 0 10)", LW_PARSER_CHECK_NONE);
1431  g2 = lwgeom_from_wkt("LINESTRING M(0 0 1, -100 0 10)", LW_PARSER_CHECK_NONE);
1432  dist = -1;
1433  m = lwgeom_tcpa(g1, g2, &dist);
1434  lwgeom_free(g1);
1435  lwgeom_free(g2);
1436  ASSERT_DOUBLE_EQUAL(m, 1.0);
1437  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1438 
1439  /* Same ending, different direction, 2d */
1440 
1441  g1 = lwgeom_from_wkt("LINESTRING M(10 0 1, 0 0 10)", LW_PARSER_CHECK_NONE);
1442  g2 = lwgeom_from_wkt("LINESTRING M(0 -100 1, 0 0 10)", LW_PARSER_CHECK_NONE);
1443  dist = -1;
1444  m = lwgeom_tcpa(g1, g2, &dist);
1445  lwgeom_free(g1);
1446  lwgeom_free(g2);
1447  ASSERT_DOUBLE_EQUAL(m, 10.0);
1448  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1449 
1450  /* Converging tracks, 3d */
1451 
1452  g1 = lwgeom_from_wkt("LINESTRING ZM(0 0 0 10, 10 0 0 20)", LW_PARSER_CHECK_NONE);
1453  g2 = lwgeom_from_wkt("LINESTRING ZM(0 0 8 10, 10 0 5 20)", LW_PARSER_CHECK_NONE);
1454  dist = -1;
1455  m = lwgeom_tcpa(g1, g2, &dist);
1456  lwgeom_free(g1);
1457  lwgeom_free(g2);
1458  ASSERT_DOUBLE_EQUAL(m, 20.0);
1459  ASSERT_DOUBLE_EQUAL(dist, 5.0);
1460 
1461  /* G1 stops at t=1 until t=4 to let G2 pass by, then continues */
1462  /* G2 passes at 1 meter from G1 t=3 */
1463 
1464  g1 = lwgeom_from_wkt("LINESTRING M(0 0 0, 0 1 1, 0 1 4, 0 10 13)", LW_PARSER_CHECK_NONE);
1465  g2 = lwgeom_from_wkt("LINESTRING M(-10 2 0, 0 2 3, 12 2 13)", LW_PARSER_CHECK_NONE);
1466  dist = -1;
1467  m = lwgeom_tcpa(g1, g2, &dist);
1468  lwgeom_free(g1);
1469  lwgeom_free(g2);
1470  ASSERT_DOUBLE_EQUAL(m, 3.0);
1471  ASSERT_DOUBLE_EQUAL(dist, 1.0);
1472 
1473  /* Test for https://trac.osgeo.org/postgis/ticket/3136 */
1474 
1475  g1 = lwgeom_from_wkt("LINESTRING M (0 0 1432291464,2 0 1432291536) ", LW_PARSER_CHECK_NONE);
1476  g2 = lwgeom_from_wkt("LINESTRING M (0 0 1432291464,1 0 1432291466.25,2 0 1432291500)", LW_PARSER_CHECK_NONE);
1477  dist = -1;
1478  m = lwgeom_tcpa(g1, g2, &dist);
1479  lwgeom_free(g1);
1480  lwgeom_free(g2);
1481  ASSERT_DOUBLE_EQUAL(m, 1432291464.0);
1482  ASSERT_DOUBLE_EQUAL(dist, 0.0);
1483 
1484  /* Tracks share a single point in time */
1485 
1486  g1 = lwgeom_from_wkt("LINESTRINGM(0 0 0, 1 0 2)", LW_PARSER_CHECK_NONE);
1487  g2 = lwgeom_from_wkt("LINESTRINGM(0 0 2, 1 0 3)", LW_PARSER_CHECK_NONE);
1488  dist = -1;
1489  m = lwgeom_tcpa(g1, g2, &dist);
1490  lwgeom_free(g1);
1491  lwgeom_free(g2);
1492  ASSERT_DOUBLE_EQUAL(m, 2.0);
1493  ASSERT_DOUBLE_EQUAL(dist, 1.0);
1494 
1495 }
cu_error_msg
char cu_error_msg[MAX_CUNIT_ERROR_LENGTH+1]
Definition: liblwgeom/cunit/cu_tester.c:19
ASSERT_DOUBLE_EQUAL
#define ASSERT_DOUBLE_EQUAL(o, e)
Definition: liblwgeom/cunit/cu_tester.h:32
ASSERT_STRING_EQUAL
#define ASSERT_STRING_EQUAL(o, e)
Definition: liblwgeom/cunit/cu_tester.h:62
LW_FALSE
#define LW_FALSE
Definition: liblwgeom.h:108
lwgeom_free
void lwgeom_free(LWGEOM *geom)
Definition: lwgeom.c:1138
LW_PARSER_CHECK_NONE
#define LW_PARSER_CHECK_NONE
Definition: liblwgeom.h:2085
lwgeom_tcpa
double lwgeom_tcpa(const LWGEOM *g1, const LWGEOM *g2, double *mindist)
Find the time of closest point of approach.
Definition: lwlinearreferencing.c:1144
lwgeom_from_wkt
LWGEOM * lwgeom_from_wkt(const char *wkt, const char check)
Definition: lwin_wkt.c:905
LW_TRUE
#define LW_TRUE
Return types for functions with status returns.
Definition: liblwgeom.h:107
lwgeom_cpa_within
int lwgeom_cpa_within(const LWGEOM *g1, const LWGEOM *g2, double maxdist)
Is the closest point of approach within a distance ?
Definition: lwlinearreferencing.c:1311

References ASSERT_DOUBLE_EQUAL, ASSERT_STRING_EQUAL, cu_error_msg, LW_FALSE, LW_PARSER_CHECK_NONE, LW_TRUE, lwgeom_cpa_within(), lwgeom_free(), lwgeom_from_wkt(), and lwgeom_tcpa().

Referenced by measures_suite_setup().

Here is the call graph for this function:
Here is the caller graph for this function: