Adding a one file check for Vias

Author: cvvergara

pgtap/standards/via-do-not-bad-alloc.pg

@@ -0,0 +1,112 @@
+/* :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.2') THEN plan(14) ELSE plan(14) END;
+
+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);
+
+
+CREATE OR REPLACE FUNCTION test_wpVia()
+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;
+ */
+
+  RETURN QUERY
+  SELECT lives_ok($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 3, 4])$$,
+    '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])$$,
+    '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])$$,
+    '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])$$,
+    '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])$$,
+    'withPointsVia handles via vertex missing between two valid vertices');
+  RETURN QUERY
+  SELECT is_empty($$SELECT * FROM pgr_withPointsVia('edges', 'points', ARRAY[1, 5, 4]);$$,
+    '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])$$,
+    '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])$$,
+    'withPointsVia returns results when via includes a point pid that exists');
+END
+$BODY$
+language plpgsql;
+
+CREATE OR REPLACE FUNCTION test_dVia()
+RETURNS SETOF TEXT AS
+$BODY$
+BEGIN
+
+  /*
+  IF NOT min_lib_version('4.0.2') THEN
+    RETURN query
+    SELECT skip(1, 'bad alloc error Fixed on 4.0.2');
+    RETURN;
+  END IF;
+*/
+
+
+  RETURN QUERY
+  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('edges', ARRAY[1, 3, 4] )$$,
+    'dijkstraVia lives when all via vertices exist in the graph');
+
+  RETURN QUERY
+  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('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('edges', ARRAY[1, 5, 4])$$,
+    'dijkstraVia handles via vertex missing between two valid vertices');
+  RETURN QUERY
+  SELECT is_empty($$SELECT * FROM pgr_dijkstraVia('edges', ARRAY[1, 5, 4]);$$,
+    'dijkstraVia handles via vertex missing between two valid vertices');
+END
+$BODY$
+language plpgsql;
+
+SELECT test_dVia();
+SELECT test_wpVia();
+
+SELECT * FROM finish();
+ROLLBACK;