stud

commit 973c78b0cf1dd618717acedd4191639dee49e0f9 (tree)
parent 50a2ebfb1e98c702fe3cfed51056a547152586c6
Author: Motiejus Jakštys <motiejus@uber.com>
Date:   Thu, 18 Feb 2021 13:45:53 +0200

more elaborate test cases

Diffstat:
M
IV/db
 | 
7
+------
M
IV/tests.sql
 | 
15
+++++++++++----
M
IV/wm.sql
 | 
6
+++---

3 files changed, 15 insertions(+), 13 deletions(-)
diff --git a/IV/db b/IV/db
@@ -40,12 +40,7 @@ case ${1:-} in
     stop)
         docker stop "$name"
         ;;
-    "" | --)
-        [[ $# -gt 1 ]] && shift
-        _psql "$@"
-        ;;
     *)
-        >&2 echo "Unknown command: '$*'"
-        exit 1
+        _psql "$@"
         ;;
 esac
diff --git a/IV/tests.sql b/IV/tests.sql
@@ -13,15 +13,22 @@ end $$ LANGUAGE plpgsql;
 
 drop table if exists figures;
 create table figures (name text, way geometry);
-insert into figures (name, way) values ('fig3', ST_GeomFromText('LINESTRING(0 0, 12 0, 13 4, 20 2, 20 0, 32 0, 33 10, 38 16, 43 15, 44 10, 44 0, 60 0)'));
-insert into figures (name, way) values ('fig3-1', ST_GeomFromText('LINESTRING(0 0, 12 0, 13 4, 20 2, 20 0, 32 0, 33 10, 38 16, 43 15, 44 10, 44 0)'));
-insert into figures (name, way) values ('fig5', ST_GeomFromText('LINESTRING(0 39,19 52,27 77,26 104,41 115,49 115,65 103,65 75,53 45,63 15,91 0,91 0)'));
+insert into figures (name, way) values ('fig3',ST_GeomFromText('LINESTRING(0 0,12 0,13 4,20 2,20 0,32 0,33 10,38 16,43 15,44 10,44 0,60 0)'));
+insert into figures (name, way) values ('fig3-1',ST_GeomFromText('LINESTRING(0 0,12 0,13 4,20 2,20 0,32 0,33 10,38 16,43 15,44 10,44 0)'));
+insert into figures (name, way) values ('fig5',ST_GeomFromText('LINESTRING(0 39,19 52,27 77,26 104,41 115,49 115,65 103,65 75,53 45,63 15,91 0,91 0)'));
 
 do $$
 declare
   bends geometry[];
 begin
-  perform assert_equals(3, array_length(detect_bends((select way from figures where name='fig3')), 1));
+  select detect_bends((select way from figures where name='fig3')) into bends;
+  perform assert_equals(3, array_length(bends, 1));
+  perform assert_equals(4::bigint, (select count(1) from (select (st_dumppoints(detect_bends[1])).path from bends) a));
+  perform assert_equals('LINESTRING(12 0,13 4,20 2,20 0)', st_astext(bends[1]));
+  perform assert_equals('LINESTRING(20 2,20 0,32 0,33 10)', st_astext(bends[2]));
+  perform assert_equals('LINESTRING(32 0,33 10,38 16,43 15,44 10,44 0)',st_astext(bends[3]));
+
+
   perform assert_equals(3, array_length(detect_bends((select way from figures where name='fig3-1')), 1));
 
   select detect_bends((select way from figures where name='fig5')) into bends;
diff --git a/IV/wm.sql b/IV/wm.sql
@@ -45,9 +45,9 @@ begin
 end
 $$ language plpgsql;
 
-
--- fix_gentle_inflections moves bend endpoints in case of gentle inflections
-create or replace function fix_gentle_inflections(line geometry) returns table(bend geometry) as $$
+-- fix_gentle_inflections moves bend endpoints following "Gentle Inflection at
+-- End of a Bend" section.
+create or replace function fix_gentle_inflections(INOUT bends geometry[]) as $$
 begin
 end
 $$ language plpgsql;