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)
docker stop "$name"
;;
"" | --)
[[ $# -gt 1 ]] && shift
*)
_psql "$@"
;;
*)
>&2 echo "Unknown command: '$*'"
exit 1
;;
esac

9
IV/tests.sql
View File

@ -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;

6
IV/wm.sql
View File

@ -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;