:- use_module(library(plunit)).

:- use_module(library(wkt)).

:- begin_tests(geo).

test(wkt_union) :-
  wkt_union(
    'Polygon((\c
       51.8622383341678 3.190847055031,   51.9264073767511 3.17634603939213,\c
       51.9439080037163 3.3030218335942,  51.9830760341423 3.59004255199478,\c
       52.0072435082724 3.7700555741797,  51.9740756071301 3.77705603537945,\c
       51.9609084845253 3.70971782897821, 51.940574456261 3.59920983978603,\c
       51.8972395893234 3.3725268083187,  51.8917393958784 3.34369138934054,\c
       51.8864058754285 3.31585606291782, 51.8622383341678 3.190847055031\c
     ))',
    'Polygon((\c
       52.083246342296 3.75388786172814, 52.3710752345553 3.01216768774432,\c
       52.417759041374 3.05833759278454, 52.4389087756074 3.07117653902477,\c
       52.0969134612883 3.85006149283663, 52.083246342296 3.75388786172814\c
     ))',
    Wkt
  ),
  writeln(Wkt).

:- end_tests(geo).