Add pgtap edge_cases test for pgr_coreNumbers

Author: sakirr05

pgtap/metrics/coreNumbers/edge_cases.pg

@@ -0,0 +1,126 @@
+/* :file: This file is part of the pgRouting project.
+:copyright: Copyright (c) 2026-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 NOT min_version('4.1.0') THEN plan(1) ELSE plan(9) END;
+
+CREATE OR REPLACE FUNCTION edge_cases()
+RETURNS SETOF TEXT AS
+$BODY$
+BEGIN
+
+IF NOT min_version('4.1.0') THEN
+  RETURN QUERY
+  SELECT skip(1, 'Function is new on 4.1.0');
+  RETURN;
+END IF;
+
+PREPARE idless2_q AS
+  SELECT node, core FROM pgr_coreNumbers(
+    'SELECT id, source, target, cost, reverse_cost
+    FROM edges WHERE id < 2'
+  ) ORDER BY node;
+
+PREPARE idless2_r AS
+  SELECT * FROM (VALUES
+    (5::BIGINT, 1::BIGINT),
+    (6, 1))
+  AS t(node, core);
+
+RETURN QUERY
+SELECT lives_ok('idless2_q');
+
+RETURN QUERY
+SELECT results_eq('idless2_q', 'idless2_r');
+
+
+PREPARE idless4_q AS
+  SELECT node, core FROM pgr_coreNumbers(
+    'SELECT id, source, target, cost, reverse_cost
+    FROM edges WHERE id < 4'
+  ) ORDER BY node;
+
+PREPARE idless4_r AS
+  SELECT * FROM (VALUES
+    (5::BIGINT, 1::BIGINT),
+    (6, 1),
+    (10, 1),
+    (15, 1))
+  AS t(node, core);
+
+RETURN QUERY
+SELECT lives_ok('idless4_q');
+
+RETURN QUERY
+SELECT results_eq('idless4_q', 'idless4_r', 'test 4');
+
+
+PREPARE idless5_q AS
+  SELECT node, core FROM pgr_coreNumbers(
+    'SELECT id, source, target, cost, reverse_cost
+    FROM edges WHERE id < 5'
+  ) ORDER BY node;
+
+PREPARE idless5_r AS
+  SELECT * FROM (VALUES
+    (5::BIGINT, 1::BIGINT),
+    (6, 1),
+    (7, 1),
+    (10, 1),
+    (15, 1))
+  AS t(node, core);
+
+RETURN QUERY
+SELECT lives_ok('idless5_q');
+
+RETURN QUERY
+SELECT results_eq('idless5_q', 'idless5_r', 'test 6');
+
+
+PREPARE idless10_q AS
+  SELECT node, core FROM pgr_coreNumbers(
+    'SELECT id, source, target, cost, reverse_cost
+    FROM edges WHERE id < 10'
+  ) ORDER BY node;
+
+PREPARE idless10_r AS
+  SELECT * FROM (VALUES
+    (1::BIGINT, 1::BIGINT),
+    (3, 1),
+    (5, 1),
+    (6, 2),
+    (7, 2),
+    (10, 2),
+    (11, 2),
+    (15, 1),
+    (16, 1))
+  AS t(node, core);
+
+RETURN QUERY
+SELECT lives_ok('idless10_q');
+
+RETURN QUERY
+SELECT results_eq('idless10_q', 'idless10_r', 'test 8');
+
+
+PREPARE empty_q AS
+  SELECT node, core FROM pgr_coreNumbers(
+    'SELECT id, source, target, cost, reverse_cost
+    FROM edges WHERE id < 0'
+  ) ORDER BY node;
+
+RETURN QUERY
+SELECT is_empty('empty_q', 'Empty graph returns no rows');
+
+END;
+$BODY$
+LANGUAGE plpgsql;
+
+SELECT edge_cases();
+
+SELECT finish();
+ROLLBACK;