motiejus/stud
1
Fork 0
Code Releases Activity

more elaborate test cases

Browse Source
This commit is contained in:
Motiejus Jakštys 2021-02-18 13:45:53 +02:00
parent 50a2ebfb1e
commit 973c78b0cf
3 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
IV/db
View File

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

15
IV/tests.sql
View File

@ -13,15 +13,22 @@ end $$ LANGUAGE plpgsql;
drop table if exists figures; drop table if exists figures;
create table figures (name text, way geometry); 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',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 ('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 ('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 $$ do $$
declare declare
bends geometry[]; bends geometry[];
begin 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)); 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; select detect_bends((select way from figures where name='fig5')) into bends;

6
IV/wm.sql
View File

@ -45,9 +45,9 @@ begin
end end
$$ language plpgsql; $$ 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 begin
end end
$$ language plpgsql; $$ language plpgsql;