pgtap: add withPointsVia issue-3110 test, update dijkstraVia issue-3110

Author: cvvergara

pgtap/dijkstra/dijkstraVia/edge_cases/issue-3110.pg

@@ -14,11 +14,11 @@ $BODY$
 BEGIN
   IF NOT min_version('4.0.1') THEN
     RETURN query
-    SELECT skip(1, 'bad alloc erro Fixed on 4.0.1');
+    SELECT skip(1, 'bad alloc error Fixed on 4.0.1');
     RETURN;
   END IF;
 
-  PREPARE data AS
+  PREPARE edges AS
   SELECT *
   FROM (
     VALUES
@@ -28,25 +28,25 @@ BEGIN
   ) AS edge_table(id, source, target, cost, reverse_cost);
 
   RETURN QUERY
-  SELECT lives_ok($$SELECT * FROM pgr_dijkstraVia('data', ARRAY[1, 3, 4] )$$,
+  SELECT lives_ok($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 3, 4] )$$,
     'dijkstraVia lives when all via vertices exist in the graph');
   RETURN QUERY
-  SELECT isnt_empty($$SELECT * FROM pgr_dijkstraVia('data', ARRAY[1, 3, 4] )$$,
+  SELECT isnt_empty($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 3, 4] )$$,
     'dijkstraVia lives when all via vertices exist in the graph');
 
   RETURN QUERY
-  SELECT lives_ok($$SELECT * FROM pgr_dijkstraVia('data', ARRAY[1, 3, 5])$$,
+  SELECT lives_ok($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 3, 5])$$,
     'dijkstraVia lives when a via vertex does not exist in the graph');
   RETURN QUERY
-  SELECT isnt_empty($$SELECT * FROM pgr_dijkstraVia('data', ARRAY[1, 3, 5])$$,
+  SELECT isnt_empty($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 3, 5])$$,
     'dijkstraVia lives when a via vertex does not exist in the graph');
 
 
   RETURN QUERY
-  SELECT lives_ok($$SELECT * FROM pgr_dijkstraVia('data', ARRAY[1, 5, 4])$$,
+  SELECT lives_ok($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 5, 4])$$,
     'dijkstraVia handles via vertex missing between two valid vertices');
   RETURN QUERY
-  SELECT is_empty($$SELECT * FROM pgr_dijkstraVia('data', ARRAY[1, 5, 4]);$$,
+  SELECT is_empty($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 5, 4]);$$,
     'dijkstraVia handles via vertex missing between two valid vertices');
 END
 $BODY$

pgtap/withPoints/withPointsVia/edge_cases/issue-3110.pg

@@ -0,0 +1,70 @@
+/* :file: This file is part of the pgRouting project.
+:copyright: Copyright (c) 2016-2026 pgRouting developers
+:license: Creative Commons Attribution-Share Alike 3.0 https://creativecommons.org/licenses/by-sa/3.0 */
+
+BEGIN;
+SET client_min_messages TO WARNING;
+
+SELECT CASE WHEN min_version('4.0.1') THEN plan(8) ELSE plan(1) END;
+
+
+CREATE OR REPLACE FUNCTION test_function()
+RETURNS SETOF TEXT AS
+$BODY$
+BEGIN
+  IF NOT min_version('4.0.1') THEN
+    RETURN query
+    SELECT skip(1, 'bad alloc error Fixed on 4.0.1');
+    RETURN;
+  END IF;
+
+  PREPARE edges AS
+  SELECT *
+  FROM (
+    VALUES
+    (100, 1, 2, 1, 1),
+    (101, 2, 3, 1, 1),
+    (102, 3, 4, 1, 1)
+  ) AS edge_table(id, source, target, cost, reverse_cost);
+
+  PREPARE points AS
+  SELECT *
+  FROM (
+    VALUES (1, 101, 0.5::FLOAT)
+  ) AS t(pid, edge_id, fraction);
+
+  RETURN QUERY
+  SELECT lives_ok($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 3, 4], 'r')$$,
+    'withPointsVia lives when all via vertices exist in the graph');
+  RETURN QUERY
+  SELECT isnt_empty($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 3, 4], 'r')$$,
+    'withPointsVia returns results when all via vertices exist in the graph');
+
+  RETURN QUERY
+  SELECT lives_ok($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 3, 5], 'r')$$,
+    'withPointsVia lives when a via vertex does not exist in the graph');
+  RETURN QUERY
+  SELECT isnt_empty($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 3, 5], 'r')$$,
+    'withPointsVia returns results when a via vertex does not exist in the graph');
+
+  RETURN QUERY
+  SELECT lives_ok($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 5, 4], 'r')$$,
+    'withPointsVia handles via vertex missing between two valid vertices');
+  RETURN QUERY
+  SELECT is_empty($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 5, 4], 'r');$$,
+    'withPointsVia returns empty when via vertex missing between two valid vertices');
+
+  RETURN QUERY
+  SELECT lives_ok($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, -1, 4], 'r')$$,
+    'withPointsVia lives when via includes a point pid that exists');
+  RETURN QUERY
+  SELECT isnt_empty($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, -1, 4], 'r')$$,
+    'withPointsVia returns results when via includes a point pid that exists');
+END
+$BODY$
+language plpgsql;
+
+SELECT test_function();
+
+SELECT * FROM finish();
+ROLLBACK;