Mercurial > gemma

diff schema/isrs_tests.sql @ 2563:dc4fae4bdb8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Expose axis snapping tolerance to users
author Tom Gottfried <tom@intevation.de>
date Fri, 08 Mar 2019 19:15:47 +0100
parents 73c8762cee60
children d316a6e41f54
line wrap: on
line diff
--- a/schema/isrs_tests.sql	Fri Mar 08 18:57:58 2019 +0100
+++ b/schema/isrs_tests.sql	Fri Mar 08 19:15:47 2019 +0100
@@ -4,7 +4,7 @@
 -- SPDX-License-Identifier: AGPL-3.0-or-later
 -- License-Filename: LICENSES/AGPL-3.0.txt
 
--- Copyright (C) 2018 by via donau
+-- Copyright (C) 2018, 2019 by via donau
 --   – Österreichische Wasserstraßen-Gesellschaft mbH
 -- Software engineering by Intevation GmbH
 
@@ -52,9 +52,10 @@
     'ISRSrange_axis fails if no contiguous axis can be constructed');
 
 SELECT ok(
-    ISRSrange_area(isrsrange(
-            ('AT', 'XXX', '00001', '00000', 0)::isrs,
-            ('AT', 'XXX', '00001', '00000', 1)::isrs),
+    ISRSrange_area(ISRSrange_axis(isrsrange(
+                ('AT', 'XXX', '00001', '00000', 0)::isrs,
+                ('AT', 'XXX', '00001', '00000', 1)::isrs),
+            5),
         ST_SetSRID('POLYGON((0 1, 0 2, 1 2, 1 1, 0 1))'::geometry, 4326)
     ) IS NULL,
     'ISRSrange_area returns NULL, if given area does not intersect with axis');
@@ -62,9 +63,10 @@
 SELECT results_eq($$
     SELECT every(ST_DWithin(
             ST_Boundary(ISRSrange_area(
-                isrsrange(
-                    ('AT', 'XXX', '00001', '00000', 0)::isrs,
-                    ('AT', 'XXX', '00001', '00000', 1)::isrs),
+                ISRSrange_axis(isrsrange(
+                        ('AT', 'XXX', '00001', '00000', 0)::isrs,
+                        ('AT', 'XXX', '00001', '00000', 1)::isrs),
+                    5),
                 (SELECT ST_Collect(CAST(area AS geometry))
                     FROM waterway.waterway_area))),
             geom,
@@ -83,9 +85,10 @@
 SELECT ok(
     2 = ST_NumGeometries(
         ISRSrange_area(
-            isrsrange(
-                ('AT', 'XXX', '00001', '00000', 0)::isrs,
-                ('AT', 'XXX', '00001', '00000', 1)::isrs),
+            ISRSrange_axis(isrsrange(
+                    ('AT', 'XXX', '00001', '00000', 0)::isrs,
+                    ('AT', 'XXX', '00001', '00000', 1)::isrs),
+                5),
             ST_SetSRID(ST_Collect(
                     ST_Translate(:'test_area',
                         (ST_XMax(:'test_area'::geometry)
@@ -101,9 +104,10 @@
 SELECT ok(
     1 = ST_NumGeometries(
         ISRSrange_area(
-            isrsrange(
-                ('AT', 'XXX', '00001', '00000', 0)::isrs,
-                ('AT', 'XXX', '00001', '00000', 1)::isrs),
+            ISRSrange_axis(isrsrange(
+                    ('AT', 'XXX', '00001', '00000', 0)::isrs,
+                    ('AT', 'XXX', '00001', '00000', 1)::isrs),
+                5),
             ST_SetSRID(ST_Collect(
                     ST_Translate(:'test_area',
                         (ST_XMax(:'test_area'::geometry)
@@ -119,9 +123,10 @@
 SELECT results_eq($$
     SELECT every(ST_DWithin(
             ST_Boundary(ISRSrange_area(
-                isrsrange(
-                    ('AT', 'XXX', '00001', '00000', 0)::isrs,
-                    ('AT', 'XXX', '00001', '00000', 2)::isrs),
+            ISRSrange_axis(isrsrange(
+                        ('AT', 'XXX', '00001', '00000', 0)::isrs,
+                        ('AT', 'XXX', '00001', '00000', 2)::isrs),
+                    5),
                 (SELECT ST_Collect(CAST(area AS geometry))
                     FROM waterway.waterway_area))),
             geom,