more elaborate test cases

IV/db

@@ -40,12 +40,7 @@ case ${1:-} in
     stop)
         docker stop "$name"
         ;;
-    "" | --)
+    *)
-        [[ $# -gt 1 ]] && shift
         _psql "$@"
         ;;
-    *)
-        >&2 echo "Unknown command: '$*'"
-        exit 1
-        ;;
 esac

IV/tests.sql

@@ -21,7 +21,14 @@ 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;

IV/wm.sql

@@ -45,9 +45,9 @@ begin
 end
 $$ language plpgsql;
 
-
+-- fix_gentle_inflections moves bend endpoints following "Gentle Inflection at
--- fix_gentle_inflections moves bend endpoints in case of gentle inflections
+-- End of a Bend" section.
-create or replace function fix_gentle_inflections(line geometry) returns table(bend geometry) as $$
+create or replace function fix_gentle_inflections(INOUT bends geometry[]) as $$
 begin
 end
 $$ language plpgsql;