Adding pgtap initial pgtap test for issue 3091

Author: cvvergara

pgtap/dijkstra/driving_distance/edge_cases/issue_3091.pg

@@ -0,0 +1,65 @@
+/* :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;
+
+UPDATE edges SET cost = sign(cost), reverse_cost = sign(reverse_cost);
+SELECT CASE WHEN min_lib_version('4.0.2') THEN plan(12) ELSE plan(12) END;
+
+CREATE OR REPLACE FUNCTION test(fn TEXT) RETURNS SETOF TEXT AS
+$BODY$
+DECLARE
+  stmt TEXT = 'SELECT * FROM ' || fn;
+BEGIN
+
+  RAISE NOTICE '%', stmt;
+  RETURN QUERY
+  SELECT throws_ok(stmt || $$('edges', 1, -3.5)$$);
+
+  RETURN QUERY
+  SELECT throws_ok(stmt || $$('edges', 1, -3.5)$$,
+  'XX000', $$Negative value found on 'distance'$$, fn || ': Negative distance throws');
+
+  RETURN QUERY
+  SELECT lives_ok(stmt || $$('edges', 1, 0)$$, fn || ': 0 is ok');
+END;
+$BODY$
+LANGUAGE plpgsql;
+
+CREATE OR REPLACE FUNCTION test_function() RETURNS SETOF TEXT AS
+$BODY$
+BEGIN
+
+  PREPARE edges AS
+  SELECT id, source, target, cost FROM edges;
+
+  PREPARE points AS
+  SELECT pid, edge_id, fraction, side from pointsOfInterest;
+
+  RETURN QUERY
+  SELECT test('pgr_drivingDistance');
+  RETURN QUERY
+  SELECT test('pgr_primDD');
+  RETURN QUERY
+  SELECT test('pgr_kruskalDD');
+
+  RETURN QUERY
+  SELECT throws_ok($$SELECT * FROM pgr_withPointsDD('edges', 'points', 1, -3.5)$$);
+
+  RETURN QUERY
+  SELECT throws_ok($$SELECT * FROM pgr_withPointsDD('edges', 'points', 1, -3.5)$$,
+  'XX000', $$Negative value found on 'distance'$$, 'wpDD: Negative distance throws');
+
+  -- distance 0 do not throw
+
+  RETURN QUERY
+  SELECT lives_ok($$SELECT * FROM pgr_withPointsDD('edges', 'points', 1, 0)$$, 'wpDD: 0 is ok');
+END;
+$BODY$
+LANGUAGE plpgsql;
+
+SELECT test_function();
+
+SELECT finish();
+ROLLBACK;