Issue 2227

.editorconfig

@@ -24,7 +24,7 @@ indent_size = 8
 
 
 # SQL files want space indentation
-[*.sql]
+[*.{sql,pg}]
 indent_style = space
 indent_size = 2
 

pgtap/allpairs/floydWarshall/edge_cases.pg

@@ -0,0 +1,53 @@
+
+BEGIN;
+
+
+UPDATE edge_table SET cost = sign(cost), reverse_cost = sign(reverse_cost);
+SELECT plan(4);
+
+PREPARE q1 AS
+SELECT * FROM pgr_floydWarshall(
+    'SELECT id, source, target, cost, reverse_cost FROM edge_table'
+);
+
+PREPARE q2 AS
+SELECT * FROM pgr_floydWarshall(
+    'SELECT source, target, cost, reverse_cost FROM edge_table'
+);
+
+
+PREPARE q3 AS
+SELECT * FROM pgr_floydWarshall(
+    'SELECT source, target, cost FROM edge_table',
+    true
+);
+
+
+SELECT lives_ok('q1', 'SHOULD WORK: without flag & with id');
+SELECT lives_ok('q2', 'SHOULD WORK: without flag');
+SELECT lives_ok('q3', 'SHOULD WORK: with flag');
+
+
+-- CHECKING THE RETURN TYPES
+PREPARE v21q00 AS
+SELECT pg_typeof(start_vid)::text AS t1,
+    pg_typeof(end_vid)::text AS t2,
+    pg_typeof(agg_cost)::TEXT AS t3
+FROM (
+    SELECT * FROM pgr_floydWarshall(
+        'SELECT id, source, target, cost, reverse_cost FROM edge_table'
+    ))  AS a
+LIMIT 1
+;
+
+PREPARE v21q01 AS
+SELECT  'bigint'::text AS t1,
+        'bigint'::text AS t2,
+        'double precision'::text AS t3;
+
+SELECT set_eq('v21q00', 'v21q01','Expected columns names & types');
+
+
+
+SELECT finish();
+ROLLBACK;

pgtap/allpairs/floydWarshall/types_check.pg

@@ -1,53 +1,22 @@
-
 BEGIN;
 
+SELECT plan(5);
 
-UPDATE edge_table SET cost = sign(cost), reverse_cost = sign(reverse_cost);
-SELECT plan(4);
-
-PREPARE q1 AS
-SELECT * FROM pgr_floydWarshall(
-    'SELECT id, source, target, cost, reverse_cost FROM edge_table'
-);
-
-PREPARE q2 AS
-SELECT * FROM pgr_floydWarshall(
-    'SELECT source, target, cost, reverse_cost FROM edge_table'
-);
-
-
-PREPARE q3 AS
-SELECT * FROM pgr_floydWarshall(
-    'SELECT source, target, cost FROM edge_table',
-    true
-);
-
-
-SELECT lives_ok('q1', 'SHOULD WORK: without flag & with id');
-SELECT lives_ok('q2', 'SHOULD WORK: without flag');
-SELECT lives_ok('q3', 'SHOULD WORK: with flag');
-
-
--- CHECKING THE RETURN TYPES
-PREPARE v21q00 AS
-SELECT pg_typeof(start_vid)::text AS t1,
-    pg_typeof(end_vid)::text AS t2,
-    pg_typeof(agg_cost)::TEXT AS t3
-FROM (
-    SELECT * FROM pgr_floydWarshall(
-        'SELECT id, source, target, cost, reverse_cost FROM edge_table'
-    ))  AS a
-LIMIT 1
-;
-
-PREPARE v21q01 AS
-SELECT  'bigint'::text AS t1,
-        'bigint'::text AS t2,
-        'double precision'::text AS t3;
-
-SELECT set_eq('v21q00', 'v21q01','Expected columns names & types');
+SELECT has_function('pgr_floydwarshall');
+SELECT has_function('pgr_floydwarshall', ARRAY['text','boolean']);
+SELECT function_returns('pgr_floydwarshall', ARRAY['text','boolean'],'setof record');
 
+SELECT set_eq(
+  $$SELECT  proargnames from pg_proc where proname = 'pgr_floydwarshall'$$,
+  $$VALUES
+  ('{"","directed","start_vid","end_vid","agg_cost"}'::TEXT[])
+  $$);
 
+SELECT set_eq(
+  $$SELECT  proallargtypes from pg_proc where proname = 'pgr_floydwarshall'$$,
+  $$VALUES
+  ('{25,16,20,20,701}'::OID[])
+  $$);
 
 SELECT finish();
 ROLLBACK;

pgtap/allpairs/johnson/edge_cases.pg

@@ -0,0 +1,53 @@
+
+BEGIN;
+
+
+UPDATE edge_table SET cost = sign(cost), reverse_cost = sign(reverse_cost);
+SELECT plan(4);
+
+PREPARE q1 AS
+SELECT * FROM pgr_johnson(
+    'SELECT id, source, target, cost, reverse_cost FROM edge_table'
+);
+
+PREPARE q2 AS
+SELECT * FROM pgr_johnson(
+    'SELECT source, target, cost, reverse_cost FROM edge_table'
+);
+
+
+PREPARE q3 AS
+SELECT * FROM pgr_johnson(
+    'SELECT source, target, cost FROM edge_table',
+    true
+);
+
+
+SELECT lives_ok('q1', 'SHOULD WORK: without flag & with id');
+SELECT lives_ok('q2', 'SHOULD WORK: without flag');
+SELECT lives_ok('q3', 'SHOULD WORK: with flag');
+
+
+-- CHECKING THE RETURN TYPES
+PREPARE v21q00 AS
+SELECT pg_typeof(start_vid)::text AS t1,
+    pg_typeof(end_vid)::text AS t2,
+    pg_typeof(agg_cost)::TEXT AS t3
+FROM (
+    SELECT * FROM pgr_johnson(
+        'SELECT id, source, target, cost, reverse_cost FROM edge_table'
+    ))  AS a
+LIMIT 1
+;
+
+PREPARE v21q01 AS
+SELECT  'bigint'::text AS t1,
+        'bigint'::text AS t2,
+        'double precision'::text AS t3;
+
+SELECT set_eq('v21q00', 'v21q01','Expected columns names & types');
+
+
+
+SELECT finish();
+ROLLBACK;

pgtap/allpairs/johnson/types_check.pg

@@ -1,53 +1,22 @@
-
 BEGIN;
 
+SELECT plan(5);
 
-UPDATE edge_table SET cost = sign(cost), reverse_cost = sign(reverse_cost);
-SELECT plan(4);
-
-PREPARE q1 AS
-SELECT * FROM pgr_johnson(
-    'SELECT id, source, target, cost, reverse_cost FROM edge_table'
-);
-
-PREPARE q2 AS
-SELECT * FROM pgr_johnson(
-    'SELECT source, target, cost, reverse_cost FROM edge_table'
-);
-
-
-PREPARE q3 AS
-SELECT * FROM pgr_johnson(
-    'SELECT source, target, cost FROM edge_table',
-    true
-);
-
-
-SELECT lives_ok('q1', 'SHOULD WORK: without flag & with id');
-SELECT lives_ok('q2', 'SHOULD WORK: without flag');
-SELECT lives_ok('q3', 'SHOULD WORK: with flag');
-
-
--- CHECKING THE RETURN TYPES
-PREPARE v21q00 AS
-SELECT pg_typeof(start_vid)::text AS t1,
-    pg_typeof(end_vid)::text AS t2,
-    pg_typeof(agg_cost)::TEXT AS t3
-FROM (
-    SELECT * FROM pgr_johnson(
-        'SELECT id, source, target, cost, reverse_cost FROM edge_table'
-    ))  AS a
-LIMIT 1
-;
-
-PREPARE v21q01 AS
-SELECT  'bigint'::text AS t1,
-        'bigint'::text AS t2,
-        'double precision'::text AS t3;
-
-SELECT set_eq('v21q00', 'v21q01','Expected columns names & types');
+SELECT has_function('pgr_johnson');
+SELECT has_function('pgr_johnson', ARRAY['text','boolean']);
+SELECT function_returns('pgr_johnson', ARRAY['text','boolean'],'setof record');
 
+SELECT set_eq(
+  $$SELECT  proargnames from pg_proc where proname = 'pgr_johnson'$$,
+  $$VALUES
+  ('{"","directed","start_vid","end_vid","agg_cost"}'::TEXT[])
+  $$);
 
+SELECT set_eq(
+  $$SELECT  proallargtypes from pg_proc where proname = 'pgr_johnson'$$,
+  $$VALUES
+  ('{25,16,20,20,701}'::OID[])
+  $$);
 
 SELECT finish();
 ROLLBACK;

pgtap/alpha_shape/types_check.pg

@@ -0,0 +1,30 @@
+BEGIN;
+
+SELECT plan(4);
+
+SELECT has_function('pgr_alphashape');
+
+/* pgtap does not like geometry type, this is a workaround */
+SELECT set_eq(
+  $$WITH a AS (SELECT  unnest(proargtypes) from pg_proc where proname = 'pgr_alphashape')
+    SELECT typname from a JOIN pg_type ON(oid = unnest)$$,
+  $$VALUES
+    ('float8'),
+    ('geometry')
+  $$);
+SELECT set_eq(
+  $$WITH a AS (SELECT  prorettype from pg_proc where proname = 'pgr_alphashape')
+  SELECT typname from a JOIN pg_type ON(oid = prorettype)$$,
+  $$VALUES
+    ('geometry')
+  $$);
+
+SELECT set_eq(
+  $$SELECT  proargnames from pg_proc where proname = 'pgr_alphashape'$$,
+  $$VALUES
+    ('{"","alpha"}'::TEXT[])
+  $$);
+
+
+SELECT finish();
+ROLLBACK;

pgtap/astar/aStarCostMatrix/types_check.pg

@@ -0,0 +1,8 @@
+BEGIN;
+
+SELECT plan(5);
+
+SELECT astarcostmatrix_types_check('pgr_astarcostmatrix');
+
+SELECT finish();
+ROLLBACK;