// Boost.Geometry (aka GGL, Generic Geometry Library)
// Unit Test

// Copyright (c) 2015-2020, Oracle and/or its affiliates.

// Contributed and/or modified by Vissarion Fysikopoulos, on behalf of Oracle
// Contributed and/or modified by Menelaos Karavelas, on behalf of Oracle
// Contributed and/or modified by Adam Wulkiewicz, on behalf of Oracle

// Licensed under the Boost Software License version 1.0.
// http://www.boost.org/users/license.html


#ifndef BOOST_TEST_MODULE
#define BOOST_TEST_MODULE test_envelope_on_sphere_or_spheroid
#endif

#include <boost/test/included/unit_test.hpp>

#include <cstddef>
#include <limits>
#include <iostream>
#include <string>

#include <geometry_test_common.hpp>
#include <from_wkt.hpp>

#include <boost/numeric/conversion/bounds.hpp>
#include <boost/type_traits/is_same.hpp>

#include <boost/geometry/core/coordinate_dimension.hpp>
#include <boost/geometry/core/tag.hpp>
#include <boost/geometry/core/tags.hpp>

#include <boost/geometry/geometries/geometries.hpp>

#include <boost/geometry/util/condition.hpp>

#include <boost/geometry/io/dsv/write.hpp>
#include <boost/geometry/io/wkt/wkt.hpp>

#include <boost/geometry/algorithms/convert.hpp>
#include <boost/geometry/algorithms/envelope.hpp>
#include <boost/geometry/algorithms/reverse.hpp>

#include <boost/geometry/index/detail/algorithms/is_valid.hpp>

#include "test_envelope_expand_on_spheroid.hpp"

//TEMP
#include <boost/geometry/strategies/envelope/geographic.hpp>
#include <boost/geometry/strategies/envelope/spherical.hpp>


template <typename FormulaPolicy, typename CS_Tag>
struct test_envelope
{
    template <typename Geometry, typename Box>
    static inline void apply(Geometry& geometry, Box& detected)
    {
        bg::envelope(geometry, detected);
    }
};

template <typename FormulaPolicy>
struct test_envelope<FormulaPolicy, bg::geographic_tag>
{
    template <typename Geometry, typename Box>
    static inline void apply(Geometry& geometry,
                             Box& detected)
    {
        typedef bg::strategy::envelope::spherical_point point_strategy_t;
        typedef bg::strategy::envelope::spherical_multipoint multi_point_strategy_t;
        typedef bg::strategy::envelope::spherical_box box_strategy_t;
        typedef bg::strategy::envelope::geographic<FormulaPolicy, bg::srs::spheroid<double>, double> strategy_t;

        typename boost::mpl::if_c
            <
                boost::is_same<typename bg::tag<Geometry>::type, bg::point_tag>::value,
                point_strategy_t,
                typename boost::mpl::if_c
                    <
                        boost::is_same<typename bg::tag<Geometry>::type, bg::multi_point_tag>::value,
                        multi_point_strategy_t,
                        typename boost::mpl::if_c
                            <
                                boost::is_same<typename bg::tag<Geometry>::type, bg::box_tag>::value,
                                box_strategy_t,
                                strategy_t
                            >::type
                    >::type
            >::type strategy;

        bg::envelope(geometry, detected, strategy);
    }
};

template <typename MBR, typename FormulaPolicy = bg::strategy::thomas>
class envelope_on_spheroid_basic_tester
{
private:
    template
    <
        typename Geometry,
        typename Tag = typename bg::tag<Geometry>::type
    >
    struct write_geometry
    {
        template <typename OutputStream>
        static inline OutputStream& apply(OutputStream& os,
                                          Geometry const& geometry)
        {
            os << bg::wkt(geometry);
            return os;
        }
    };

    template <typename Segment>
    struct write_geometry<Segment, bg::segment_tag>
    {
        template <typename OutputStream>
        static inline OutputStream& apply(OutputStream& os,
                                          Segment const& segment)
        {
            os << "SEGMENT" << bg::dsv(segment);
            return os;
        }
    };

    template <typename Box>
    struct write_geometry<Box, bg::box_tag>
    {
        template <typename OutputStream>
        static inline OutputStream& apply(OutputStream& os,
                                          Box const& box)
        {
            os << "BOX" << bg::dsv(box);
            return os;
        }
    };

    template <typename Geometry, typename Box>
    static inline void check_message(bool same_boxes,
                                     std::string const& case_id,
                                     std::string const& units_str,
                                     Geometry const& geometry,
                                     Box const& expected,
                                     Box const& detected)
    {
        std::ostringstream stream;
        stream << "case ID: " << case_id << ", "
               << "MBR units: " << units_str << "; "
               << "geometry: ";

        write_geometry<Geometry>::apply(stream, geometry);

        stream << std::setprecision(17);

        stream << "; " << "expected: " << bg::dsv(expected)
               << ", " << "detected: " << bg::dsv(detected);

        BOOST_CHECK_MESSAGE(same_boxes, stream.str());
    }

    template
    <
        typename Geometry, typename Box,
        typename T1, typename T2, typename T3, typename T4
    >
    static inline void check_message(bool same_boxes,
                                     std::string const& case_id,
                                     std::string const& units_str,
                                     Geometry const& geometry,
                                     T1 const& lon_min, T2 const& lat_min, double height_min,
                                     T3 const& lon_max, T4 const& lat_max, double height_max,
                                     Box const& detected)
    {
        std::ostringstream stream;
        stream << "case ID: " << case_id << ", "
               << "MBR units: " << units_str << "; "
               << "geometry: ";

        write_geometry<Geometry>::apply(stream, geometry);

        stream << std::setprecision(17);

        stream << "; " << "expected: ";
        
        if (BOOST_GEOMETRY_CONDITION(bg::dimension<Box>::value == 2))
        {
            stream << "(" << lon_min << " " << lat_min
                   << ", " << lon_max << " " << lat_max << ")";
        }
        else
        {
            stream << "(" << lon_min << " " << lat_min << " " << height_min
                   << ", " << lon_max << " " << lat_max << " " << height_max << ")";
        }
        stream << ", " << "detected: " << bg::dsv(detected);

        BOOST_CHECK_MESSAGE(same_boxes, stream.str());
    }

    template
    <
        typename Box, typename Geometry,
        typename T1, typename T2, typename T3, typename T4
    >
    static inline void base_test(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min, T2 const& lat_min, double height_min,
        T3 const& lon_max, T4 const& lat_max, double height_max,
        double tolerance)
    {
        typedef typename bg::coordinate_system<Box>::type::units box_units_type;

        std::string const units_str = units2string<box_units_type>();

        Box detected;
        test_envelope<FormulaPolicy, typename bg::cs_tag<Geometry>::type>
            ::apply(geometry, detected);

#ifdef BOOST_GEOMETRY_TEST_DEBUG
        std::cout << "geometry: ";
        write_geometry<Geometry>::apply(std::cout, geometry);

        std::cout << std::endl
                  << "MBR units: " << units_str
                  << std::endl;
        std::cout << "expected: ";
        if (BOOST_GEOMETRY_CONDITION(bg::dimension<Box>::value == 2))
        {
            std::cout << "(" << lon_min << " " << lat_min
                      << ", " << lon_max << " " << lat_max << ")";
        }
        else
        {
            std::cout << "(" << lon_min << " " << lat_min << " " << height_min
                      << ", " << lon_max << " " << lat_max << " " << height_max << ")";
        }
        std::cout << std::endl
                  << "detected: " << bg::dsv(detected)
                  << std::endl << std::endl;
#endif

        bool check = box_check_equals<Box>::apply(detected,
                                                  lon_min, lat_min, height_min,
                                                  lon_max, lat_max, height_max,
                                                  tolerance);

        check_message(check,
                      case_id, units_str,
                      geometry,
                      lon_min, lat_min, height_min,
                      lon_max, lat_max, height_max,
                      detected);

        // if valid box is expected, check the validity
        if (lon_min <= lon_max && lat_min <= lat_max && height_min <= height_max)
        {
            BOOST_CHECK_MESSAGE(bg::index::detail::is_valid(detected),
                                "Case ID: " << case_id << ", "
                             << "MBR units: " << units_str << "; "
                             << "Invalid Box: " << bg::dsv(detected));
        }
    }

public:
    template
    <
        typename Geometry,
        typename T1, typename T2, typename T3, typename T4
    >
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min, T2 const& lat_min, double height_min,
        T3 const& lon_max, T4 const& lat_max, double height_max,
        double tolerance)
    {
        typedef other_system_info
            <
                typename bg::coordinate_system<MBR>::type
            > other;

        typedef bg::model::box
            <
                bg::model::point
                    <
                        typename bg::coordinate_type<MBR>::type,
                        bg::dimension<MBR>::value,
                        typename other::type
                    >
            > other_mbr_type;

#ifdef BOOST_GEOMETRY_TEST_DEBUG
        std::cout << std::endl << std::endl;
        std::cout << "case ID: " << case_id << std::endl << std::endl;
#endif

        base_test<MBR>(case_id, geometry,
                       lon_min, lat_min, height_min,
                       lon_max, lat_max, height_max,
                       tolerance);

        if (lon_max < lon_min)
        {
            // we are in the case were a special MBR is returned;
            // makes no sense to change units
            base_test<other_mbr_type>(case_id, geometry,
                                      lon_min, lat_min, height_min,
                                      lon_max, lat_max, height_max,
                                      tolerance);
        }
        else
        {
            base_test<other_mbr_type>(case_id, geometry,
                                      other::convert(lon_min),
                                      other::convert(lat_min),
                                      height_min,
                                      other::convert(lon_max),
                                      other::convert(lat_max),
                                      height_max,
                                      tolerance);
        }
    }
};


// test the reverse of a geometry if it is either linear or ring
template <typename Geometry, typename Tag = typename bg::tag<Geometry>::type>
struct test_reverse_geometry
{
    static bool const is_linear =
        boost::is_same<Tag, bg::segment_tag>::value
        || boost::is_same<Tag, bg::linestring_tag>::value
        || boost::is_same<Tag, bg::multi_linestring_tag>::value;

    // currently disable rings
    static bool const is_ring = false;
    //    static bool const is_ring = boost::is_same<Tag, bg::ring_tag>::value;

    typedef typename boost::mpl::if_c
        <
            is_linear || is_ring,
            boost::true_type,
            boost::false_type
        >::type type;

    static bool const value = type::value;
};

template
<
    typename Geometry,
    typename MBR,
    typename Tag = typename bg::tag<Geometry>::type,
    bool TestReverse = test_reverse_geometry<Geometry>::value,
    typename FormulaPolicy = bg::strategy::thomas
>
struct test_envelope_on_sphere_or_spheroid
{
    template <typename T1, typename T2, typename T3, typename T4,
              typename T5, typename T6, typename T7, typename T8>
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min1, T2 const& lat_min1, double height_min1,
        T3 const& lon_max1, T4 const& lat_max1, double height_max1,
        T5 const& lon_min2, T6 const& lat_min2, double height_min2,
        T7 const& lon_max2, T8 const& lat_max2, double height_max2,
        double tolerance = std::numeric_limits<double>::epsilon())
    {
        envelope_on_spheroid_basic_tester
            <
                MBR, FormulaPolicy
            >::apply(case_id, geometry,
                     lon_min1, lat_min1, height_min1,
                     lon_max1, lat_max1, height_max1,
                     tolerance);

        if (BOOST_GEOMETRY_CONDITION(TestReverse))
        {
            std::string reversed_case_id = case_id + "-reverse";

            Geometry reversed_geometry = geometry;
            bg::reverse(reversed_geometry);
            envelope_on_spheroid_basic_tester
                <
                    MBR, FormulaPolicy
                >::apply(reversed_case_id, reversed_geometry,
                         lon_min2, lat_min2, height_min2,
                         lon_max2, lat_max2, height_max2,
                         tolerance);
        }

#ifdef BOOST_GEOMETRY_TEST_DEBUG
        std::cout << "=================="
                  << std::endl << std::endl;
#endif
    }

    template <typename T1, typename T2, typename T3, typename T4,
              typename T5, typename T6, typename T7, typename T8>
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min1, T2 const& lat_min1,
        T3 const& lon_max1, T4 const& lat_max1,
        T5 const& lon_min2, T6 const& lat_min2,
        T7 const& lon_max2, T8 const& lat_max2,
        double tolerance = std::numeric_limits<double>::epsilon())
    {
        apply(case_id, geometry,
              lon_min1, lat_min1, 0, lon_max1, lat_max1, 0,
              lon_min2, lat_min2, 0, lon_max2, lat_max2, 0,
              tolerance);
    }

    template <typename T1, typename T2, typename T3, typename T4>
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min, T2 const& lat_min, double height_min,
        T3 const& lon_max, T4 const& lat_max, double height_max,
        double tolerance = std::numeric_limits<double>::epsilon())
    {
        apply(case_id, geometry,
              lon_min, lat_min, height_min,
              lon_max, lat_max, height_max,
              lon_min, lat_min, height_min,
              lon_max, lat_max, height_max,
              tolerance);
    }

    template <typename T1, typename T2, typename T3, typename T4>
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min, T2 const& lat_min,
        T3 const& lon_max, T4 const& lat_max,
        double tolerance = std::numeric_limits<double>::epsilon())
    {
        apply(case_id, geometry,
              lon_min, lat_min, 0, lon_max, lat_max, 0,
              tolerance);
    }
};


// special tester for rings
template <typename Geometry, typename MBR, bool TestReverse>
struct test_envelope_on_sphere_or_spheroid<Geometry, MBR, bg::ring_tag, TestReverse>
{
    template <typename T1, typename T2, typename T3, typename T4,
              typename T5, typename T6, typename T7, typename T8>
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min1, T2 const& lat_min1,
        T3 const& lon_max1, T4 const& lat_max1,
        T5 const& lon_min2, T6 const& lat_min2,
        T7 const& lon_max2, T8 const& lat_max2,
        double const& tolerance = std::numeric_limits<double>::epsilon())
    {
        envelope_on_spheroid_basic_tester
            <
                MBR
            >::apply(case_id, geometry,
                     lon_min1, lat_min1, 0,
                     lon_max1, lat_max1, 0,
                     tolerance);

        std::string ccw_case_id = case_id + "-2ccw";

        bg::model::ring
            <
                typename bg::point_type<Geometry>::type, false
            > ccw_ring;
        bg::convert(geometry, ccw_ring);

        envelope_on_spheroid_basic_tester
            <
                MBR
            >::apply(ccw_case_id, ccw_ring,
                     lon_min2, lat_min2, 0,
                     lon_max2, lat_max2, 0,
                     tolerance);

#ifdef BOOST_GEOMETRY_TEST_DEBUG
        std::cout << "=================="
                  << std::endl << std::endl;
#endif
    }

    template <typename T1, typename T2, typename T3, typename T4>
    static inline void apply(std::string const& case_id,
        Geometry const& geometry,
        T1 const& lon_min, T2 const& lat_min,
        T3 const& lon_max, T4 const& lat_max,
        double tolerance = std::numeric_limits<double>::epsilon())
    {
        apply(case_id, geometry,
              lon_min, lat_min, lon_max, lat_max,
              lon_min, lat_min, lon_max, lat_max,
              tolerance);
    }
};


template <typename CoordinateSystem, typename Geometry>
void test_empty_geometry(std::string const& case_id, std::string const& wkt)
{
    std::size_t const dim = bg::dimension<Geometry>::value;

    typedef bg::model::point<double, dim, CoordinateSystem> point_type;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<Geometry, B> tester;

    typedef typename bg::coordinate_type<Geometry>::type ct;
    ct high_val = boost::numeric::bounds<ct>::highest();
    ct low_val = boost::numeric::bounds<ct>::lowest();

    if (BOOST_GEOMETRY_CONDITION(dim == 2))
    {
        tester::apply(case_id,
                      from_wkt<Geometry>(wkt),
                      high_val, high_val, low_val, low_val);
    }
    else
    {
        tester::apply(case_id,
                      from_wkt<Geometry>(wkt),
                      high_val, high_val, high_val, low_val, low_val, low_val);
    }
}


template <typename CoordinateSystem>
void test_envelope_point()
{
    typedef bg::model::point<double, 2, CoordinateSystem> point_type;
    typedef point_type G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("p01",
                  from_wkt<G>("POINT(10 10)"),
                  10, 10, 10, 10);

    tester::apply("p02",
                  from_wkt<G>("POINT(370 10)"),
                  10, 10, 10, 10);

#ifdef BOOST_GEOMETRY_NORMALIZE_LATITUDE
    tester::apply("p03",
                  from_wkt<G>("POINT(370 -350)"),
                  10, 10, 10, 10);
#endif

    // north and south poles
    tester::apply("p04",
                  from_wkt<G>("POINT(0 90)"),
                  0, 90, 0, 90);

    tester::apply("p04a",
                  from_wkt<G>("POINT(10 90)"),
                  0, 90, 0, 90);

    tester::apply("p04b",
                  from_wkt<G>("POINT(270 90)"),
                  0, 90, 0, 90);

#ifdef BOOST_GEOMETRY_NORMALIZE_LATITUDE
    tester::apply("p04c",
                  from_wkt<G>("POINT(270 450)"),
                  0, 90, 0, 90);
#endif

    tester::apply("p04d",
                  from_wkt<G>("POINT(190 90)"),
                  0, 90, 0, 90);

    tester::apply("p04e",
                  from_wkt<G>("POINT(-100 90)"),
                  0, 90, 0, 90);

    tester::apply("p05",
                  from_wkt<G>("POINT(0 -90)"),
                  0, -90, 0, -90);

    tester::apply("p05a",
                  from_wkt<G>("POINT(10 -90)"),
                  0, -90, 0, -90);

    tester::apply("p05b",
                  from_wkt<G>("POINT(270 -90)"),
                  0, -90, 0, -90);

#ifdef BOOST_GEOMETRY_NORMALIZE_LATITUDE
    tester::apply("p05c",
                  from_wkt<G>("POINT(270 -450)"),
                  0, -90, 0, -90);
#endif

    tester::apply("p05d",
                  from_wkt<G>("POINT(190 -90)"),
                  0, -90, 0, -90);

    tester::apply("p05e",
                  from_wkt<G>("POINT(-100 -90)"),
                  0, -90, 0, -90);

    tester::apply("p05f",
                  from_wkt<G>("POINT(-100 -90)"),
                  0, -90, 0, -90);
}

BOOST_AUTO_TEST_CASE( envelope_point )
{
    test_envelope_point<bg::cs::spherical_equatorial<bg::degree> >();
    test_envelope_point<bg::cs::geographic<bg::degree> >();
}


template <typename CoordinateSystem>
void test_envelope_point_with_height()
{
    typedef bg::model::point<double, 3, CoordinateSystem> point_type;
    typedef point_type G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("ph01",
                  from_wkt<G>("POINT(10 10 1256)"),
                  10, 10, 1256, 10, 10, 1256);
}

BOOST_AUTO_TEST_CASE( envelope_point_with_height )
{
    test_envelope_point_with_height
        <
            bg::cs::spherical_equatorial<bg::degree>
        >();
    test_envelope_point_with_height<bg::cs::geographic<bg::degree> >();
}


BOOST_AUTO_TEST_CASE( envelope_segment_sphere )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::segment<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    double const eps = std::numeric_limits<double>::epsilon();

    tester::apply("s01",
                  from_wkt<G>("SEGMENT(10 10,40 40)"),
                  10, 10, 40, 40);

    tester::apply("s02",
                  from_wkt<G>("SEGMENT(10 10,40 10)"),
                  10, 10, 40, 10.345270046149988);
/*
    tester::apply("s02",
                  from_wkt<G>("SEGMENT(1 2,70 1)"),
                  1, 1, 70, 2.01);
*/
    tester::apply("s02a",
                  from_wkt<G>("SEGMENT(40 10,10 10)"),
                  10, 10, 40, 10.34527004614999);

    tester::apply("s03",
                  from_wkt<G>("SEGMENT(160 10,-170 10)"),
                  160, 10, 190, 10.34527004614999);

    tester::apply("s03a",
                  from_wkt<G>("SEGMENT(-170 10,160 10)"),
                  160, 10, 190, 10.34527004614999);

    tester::apply("s03b",
                  from_wkt<G>("SEGMENT(-170 -10,160 -10)"),
                  160,  -10.34527004614999, 190, -10);

    tester::apply("s04",
                  from_wkt<G>("SEGMENT(-40 45,140 60)"),
                  -40, 45, 140, 90);

    tester::apply("s04a",
                  from_wkt<G>("SEGMENT(-40 45,140 25)"),
                  -40, 25, 140, 90);

    // segment ending at the north pole
    tester::apply("s05",
                  from_wkt<G>("SEGMENT(40 45,80 90)"),
                  40, 45, 40, 90);

    // segment starting at the north pole
    tester::apply("s05a",
                  from_wkt<G>("SEGMENT(80 90,40 45)"),
                  40, 45, 40, 90);

    // segment ending at the north pole
    tester::apply("s06",
                  from_wkt<G>("SEGMENT(-40 45,80 90)"),
                  -40, 45, -40, 90);

    // segment starting at the north pole
    tester::apply("s06a",
                  from_wkt<G>("SEGMENT(70 90,-40 45)"),
                  -40, 45, -40, 90);

    // segment ending at the north pole
    tester::apply("s07",
                  from_wkt<G>("SEGMENT(40 -45,80 90)"),
                  40, -45, 40, 90);

    // segment passing through the south pole
    tester::apply("s08",
                  from_wkt<G>("SEGMENT(-170 -45,10 -30)"),
                  -170, -90, 10, -30);

    tester::apply("s09",
                  from_wkt<G>("SEGMENT(1 -45,179 30)"),
                  1, -85.28884376852969, 179, 30,
                  3 * eps);

    tester::apply("s09a",
                  from_wkt<G>("SEGMENT(2 -45,181 30)"),
                  2, -87.63659983704832, 181, 30);

    // very long segment
    tester::apply("s10",
                  from_wkt<G>("SEGMENT(0 -45,181 30)"),
                  -179, -87.636599837048323, 0, 30,
                  2.0 * eps);

    tester::apply("s11",
                  from_wkt<G>("SEGMENT(260 30,20 45)"),
                  -100, 30, 20, 57.93195594009233);

    tester::apply("s11a",
                  from_wkt<G>("SEGMENT(260 45,20 30)"),
                  -100, 30, 20, 57.931955940092337);

    // segment degenerating to the north pole
    tester::apply("s12",
                  from_wkt<G>("SEGMENT(10 90,20 90)"),
                  0, 90, 0, 90);

    // segment degenerating to the south pole
    tester::apply("s13",
                  from_wkt<G>("SEGMENT(10 -90,20 -90)"),
                  0, -90, 0, -90);

    tester::apply("s14",
                  from_wkt<G>("SEGMENT(20 20,10 30)"),
                  10, 20, 20, 30);//48.87458730907602);

    tester::apply("s15",
                  from_wkt<G>("SEGMENT(50 45,185 45)"),
                  50, 45, 185, 69.05897952775615);

    // segment that lies on the equator
    tester::apply("s16",
                  from_wkt<G>("SEGMENT(0 0,50 0)"),
                  0, 0, 50, 0);

    // segment that lies on the equator
    tester::apply("s16a",
                  from_wkt<G>("SEGMENT(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // segment that lies on the equator and touches antimeridian
    tester::apply("s16b",
                  from_wkt<G>("SEGMENT(50 0,180 0)"),
                  50, 0, 180, 0);

    // segment that lies on the equator and crosses antimeridian
    tester::apply("s16c",
                  from_wkt<G>("SEGMENT(-170 0,160 0)"),
                  160, 0, 190, 0);

    tester::apply("s17",
                  from_wkt<G>("SEGMENT(140 10, -140 80)"),
                  140, 10, 220, 80);

    tester::apply("s17-r",
                  from_wkt<G>("SEGMENT(-140 80, 140 10)"),
                  140, 10, 220, 80);

    tester::apply("s18",
                  from_wkt<G>("SEGMENT(20 10, 100 80)"),
                  20, 10, 100, 80);

    tester::apply("s18-r",
                  from_wkt<G>("SEGMENT(100 80, 20 10)"),
                  20, 10, 100, 80);

    // segment connecting the north and south pole
    //
    // this should be forbidden actually, as it is not well-defined
    // with this test we demonstrate that the algorithm still returns
    // something meaningful
    tester::apply("s99",
                  from_wkt<G>("SEGMENT(10 90,20 -90)"),
                  0, -90, 0, 90);

    // https://svn.boost.org/trac/boost/ticket/12106
    tester::apply("s100_ticket_12106",
                  G(P(11.488323611111111, 53.687086666666673), P(11.488324166666667, 53.687086666666673)),
                  11.488323611111111, 53.687086666666673, 11.488324166666667, 53.687086666666673);

    double const heps = eps / 2;

    tester::apply("s101",
                  G(P(1, 1), P(1-heps, 1-heps)),
                  1-heps, 1-heps, 1, 1);
    tester::apply("s102",
                  G(P(1, 1), P(1, 1-heps)),
                  1, 1-heps, 1, 1);
    tester::apply("s103",
                  G(P(1, 1), P(1-heps, 1)),
                  1-heps, 1, 1, 1);
    tester::apply("s104",
                  G(P(2, 1), P(1, 1-heps)),
                  1, 1-heps, 2, 1.000038070652770505);
    tester::apply("s105",
                  G(P(1, 2), P(1-heps, 1)),
                  1-heps, 1, 1, 2);
}

BOOST_AUTO_TEST_CASE( envelope_segment_spherical_polar )
{
    typedef bg::cs::spherical<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::segment<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("s01",
                  from_wkt<G>("SEGMENT(10 10,40 40)"),
                  10, 10, 40, 40);

    tester::apply("s02",
                  from_wkt<G>("SEGMENT(10 80,40 80)"),
                  10, 90 - 10.345270046149988, 40, 80);

    tester::apply("s03",
                  from_wkt<G>("SEGMENT(160 80,-170 80)"),
                  160, 90 - 10.34527004614999, 190, 80);

    // segment ending at the north pole
    tester::apply("s05",
                  from_wkt<G>("SEGMENT(40 45,80 0)"),
                  40, 0, 40, 45);
}


BOOST_AUTO_TEST_CASE( envelope_segment_spheroid )
{
    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::segment<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    double const eps = std::numeric_limits<double>::epsilon();

    tester::apply("s01",
                  from_wkt<G>("SEGMENT(10 10,40 40)"),
                  10, 10, 40, 40);

    tester::apply("s02",
                  from_wkt<G>("SEGMENT(10 10,40 10)"),
                  10, 10, 40, 10.347587605817942);

    tester::apply("s02a",
                  from_wkt<G>("SEGMENT(40 10,10 10)"),
                  10, 10, 40, 10.347587605817942);

    tester::apply("s03",
                  from_wkt<G>("SEGMENT(160 10,-170 10)"),
                  160, 10, 190, 10.347587605817942);

    tester::apply("s03a",
                  from_wkt<G>("SEGMENT(-170 10,160 10)"),
                  160, 10, 190, 10.347587605817942);

    tester::apply("s03b",
                  from_wkt<G>("SEGMENT(-170 -10,160 -10)"),
                  160,  -10.347587605817942, 190, -10);

    tester::apply("s04",
                  from_wkt<G>("SEGMENT(-40 45,140 60)"),
                  -40, 45, 140, 90);

    tester::apply("s04a",
                  from_wkt<G>("SEGMENT(-40 45,140 25)"),
                  -40, 25, 140, 90);

    // segment ending at the north pole
    tester::apply("s05",
                  from_wkt<G>("SEGMENT(40 45,80 90)"),
                  40, 45, 40, 90);

    // segment starting at the north pole
    tester::apply("s05a",
                  from_wkt<G>("SEGMENT(80 90,40 45)"),
                  40, 45, 40, 90);

    // segment ending at the north pole
    tester::apply("s06",
                  from_wkt<G>("SEGMENT(-40 45,80 90)"),
                  -40, 45, -40, 90);

    // segment starting at the north pole
    tester::apply("s06a",
                  from_wkt<G>("SEGMENT(70 90,-40 45)"),
                  -40, 45, -40, 90);

    // segment ending at the north pole
    tester::apply("s07",
                  from_wkt<G>("SEGMENT(40 -45,80 90)"),
                  40, -45, 40, 90);

    // segment passing through the south pole
    tester::apply("s08",
                  from_wkt<G>("SEGMENT(-170 -45,10 -30)"),
                  -170, -90, 10, -30);

    tester::apply("s09",
                  from_wkt<G>("SEGMENT(1 -45,179 30)"),
                  1, rng(-85.392785243526134, -85.392785243525253), 179, 30);

    tester::apply("s09a",
                  from_wkt<G>("SEGMENT(2 -45,181 30)"),
                  2, rng(-87.689300911353811, -87.689300911353371), 181, 30);

    // very long segment
    tester::apply("s10",
                  from_wkt<G>("SEGMENT(0 -45,181 30)"),
                  -179, rng(-87.689300911353797, -87.689300911353385), 0, 30);

    tester::apply("s11",
                  from_wkt<G>("SEGMENT(260 30,20 45)"),
                  -100, 30, 20, rng(57.990810958016482, 57.990810958016965));

    tester::apply("s11a",
                  from_wkt<G>("SEGMENT(260 45,20 30)"),
                  -100, 30, 20, rng(57.990810958016453, 57.990810958016965));

    // segment degenerating to the north pole
    tester::apply("s12",
                  from_wkt<G>("SEGMENT(10 90,20 90)"),
                  0, 90, 0, 90);

    // segment degenerating to the south pole
    tester::apply("s13",
                  from_wkt<G>("SEGMENT(10 -90,20 -90)"),
                  0, -90, 0, -90);

    tester::apply("s14",
                  from_wkt<G>("SEGMENT(20 20,10 30)"),
                  10, 20, 20, 30);//48.87458730907602);

    tester::apply("s15",
                  from_wkt<G>("SEGMENT(50 45,185 45)"),
                  50, 45, 185, rng(69.098479073902851, 69.098479073903178));

    // segment that lies on the equator
    tester::apply("s16",
                  from_wkt<G>("SEGMENT(0 0,50 0)"),
                  0, 0, 50, 0);

    // segment that lies on the equator
    tester::apply("s16a",
                  from_wkt<G>("SEGMENT(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // segment that lies on the equator and touches antimeridian
    tester::apply("s16b",
                  from_wkt<G>("SEGMENT(50 0,180 0)"),
                  50, 0, 180, 0);

    // segment that lies on the equator and crosses antimeridian
    tester::apply("s16c",
                  from_wkt<G>("SEGMENT(-170 0,160 0)"),
                  160, 0, 190, 0);

    tester::apply("s17",
                  from_wkt<G>("SEGMENT(140 10, -140 80)"),
                  140, 10, 220, 80);

    tester::apply("s17-r",
                  from_wkt<G>("SEGMENT(-140 80, 140 10)"),
                  140, 10, 220, 80);

    tester::apply("s18",
                  from_wkt<G>("SEGMENT(20 10, 100 80)"),
                  20, 10, 100, 80);

    tester::apply("s18-r",
                  from_wkt<G>("SEGMENT(100 80, 20 10)"),
                  20, 10, 100, 80);

    // segment connecting the north and south pole
    //
    // this should be forbidden actually, as it is not well-defined
    // with this test we demonstrate that the algorithm still returns
    // something meaningful
    tester::apply("s99",
                  from_wkt<G>("SEGMENT(10 90,20 -90)"),
                  0, -90, 0, 90);

    // https://svn.boost.org/trac/boost/ticket/12106
    tester::apply("s100_ticket_12106",
                  G(P(11.488323611111111, 53.687086666666673), P(11.488324166666667, 53.687086666666673)),
                  11.488323611111111, 53.687086666666673, 11.488324166666667, 53.687086666666673);

    double const heps = eps / 2;

    tester::apply("s101",
                  G(P(1, 1), P(1-heps, 1-heps)),
                  1-heps, 1-heps, 1, 1);
    tester::apply("s102",
                  G(P(1, 1), P(1, 1-heps)),
                  1, 1-heps, 1, 1);
    tester::apply("s103",
                  G(P(1, 1), P(1-heps, 1)),
                  1-heps, 1, 1, 1);
    tester::apply("s104",
                  G(P(2, 1), P(1, 1-heps)),
                  1, 1-heps, 2, rng(1.0000383271568751, 1.0000383271569036));
    tester::apply("s105",
                  G(P(1, 2), P(1-heps, 1)),
                  1-heps, 1, 1, 2);
}

BOOST_AUTO_TEST_CASE( envelope_segment_spheroid_with_strategy_thomas )
{

    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::segment<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid
                          <
                            G, B,
                            bg::tag<G>::type,
                            test_reverse_geometry<G>::value,
                            bg::strategy::thomas
                          > tester;

    tester::apply("s01",
                  from_wkt<G>("SEGMENT(10 10,40 40)"),
                  10, 10, 40, 40);

    tester::apply("s02",
                  from_wkt<G>("SEGMENT(10 10,40 10)"),
                  10, 10, 40, 10.347587605817942);

    tester::apply("s02a",
                  from_wkt<G>("SEGMENT(40 10,10 10)"),
                  10, 10, 40, 10.347587605817942);

    tester::apply("s03",
                  from_wkt<G>("SEGMENT(160 10,-170 10)"),
                  160, 10, 190, 10.347587605817942);

    tester::apply("s03a",
                  from_wkt<G>("SEGMENT(-170 10,160 10)"),
                  160, 10, 190, 10.347587605817942);

    tester::apply("s03b",
                  from_wkt<G>("SEGMENT(-170 -10,160 -10)"),
                  160,  -10.347587605817942, 190, -10);

    tester::apply("s04",
                  from_wkt<G>("SEGMENT(-40 45,140 60)"),
                  -40, 45, 140, 90);

    tester::apply("s04a",
                  from_wkt<G>("SEGMENT(-40 45,140 25)"),
                  -40, 25, 140, 90);

    // segment ending at the north pole
    tester::apply("s05",
                  from_wkt<G>("SEGMENT(40 45,80 90)"),
                  40, 45, 40, 90);

    // segment starting at the north pole
    tester::apply("s05a",
                  from_wkt<G>("SEGMENT(80 90,40 45)"),
                  40, 45, 40, 90);

    // segment ending at the north pole
    tester::apply("s06",
                  from_wkt<G>("SEGMENT(-40 45,80 90)"),
                  -40, 45, -40, 90);

    // segment starting at the north pole
    tester::apply("s06a",
                  from_wkt<G>("SEGMENT(70 90,-40 45)"),
                  -40, 45, -40, 90);

    // segment ending at the north pole
    tester::apply("s07",
                  from_wkt<G>("SEGMENT(40 -45,80 90)"),
                  40, -45, 40, 90);

    // segment passing through the south pole
    tester::apply("s08",
                  from_wkt<G>("SEGMENT(-170 -45,10 -30)"),
                  -170, -90, 10, -30);

    tester::apply("s09",
                  from_wkt<G>("SEGMENT(1 -45,179 30)"),
                  1, rng(-85.392785243526134, -85.392785243525253), 179, 30);

    tester::apply("s09a",
                  from_wkt<G>("SEGMENT(2 -45,181 30)"),
                  2, rng(-87.689300911353811, -87.689300911353371), 181, 30);

    // very long segment
    tester::apply("s10",
                  from_wkt<G>("SEGMENT(0 -45,181 30)"),
                  -179, rng(-87.689300911353797, -87.689300911353385), 0, 30);

    tester::apply("s11",
                  from_wkt<G>("SEGMENT(260 30,20 45)"),
                  -100, 30, 20, rng(57.990810958016482, 57.990810958016965));

    tester::apply("s11a",
                  from_wkt<G>("SEGMENT(260 45,20 30)"),
                  -100, 30, 20, rng(57.990810958016453, 57.990810958016965));

    // segment degenerating to the north pole
    tester::apply("s12",
                  from_wkt<G>("SEGMENT(10 90,20 90)"),
                  0, 90, 0, 90);

    // segment degenerating to the south pole
    tester::apply("s13",
                  from_wkt<G>("SEGMENT(10 -90,20 -90)"),
                  0, -90, 0, -90);

    tester::apply("s14",
                  from_wkt<G>("SEGMENT(20 20,10 30)"),
                  10, 20, 20, 30);//48.87458730907602);

    tester::apply("s15",
                  from_wkt<G>("SEGMENT(50 45,185 45)"),
                  50, 45, 185, rng(69.098479073902851, 69.098479073903178));

    // segment that lies on the equator
    tester::apply("s16",
                  from_wkt<G>("SEGMENT(0 0,50 0)"),
                  0, 0, 50, 0);

    // segment that lies on the equator
    tester::apply("s16a",
                  from_wkt<G>("SEGMENT(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // segment that lies on the equator and touches antimeridian
    tester::apply("s16b",
                  from_wkt<G>("SEGMENT(50 0,180 0)"),
                  50, 0, 180, 0);

    // segment that lies on the equator and crosses antimeridian
    tester::apply("s16c",
                  from_wkt<G>("SEGMENT(-170 0,160 0)"),
                  160, 0, 190, 0);

    tester::apply("s17",
                  from_wkt<G>("SEGMENT(140 10, -140 80)"),
                  140, 10, 220, 80);

    tester::apply("s17-r",
                  from_wkt<G>("SEGMENT(-140 80, 140 10)"),
                  140, 10, 220, 80);

    tester::apply("s18",
                  from_wkt<G>("SEGMENT(20 10, 100 80)"),
                  20, 10, 100, 80);

    tester::apply("s18-r",
                  from_wkt<G>("SEGMENT(100 80, 20 10)"),
                  20, 10, 100, 80);

}

BOOST_AUTO_TEST_CASE( envelope_segment_spheroid_with_strategy_andoyer )
{

    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::segment<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid
                          <
                            G, B,
                            bg::tag<G>::type,
                            test_reverse_geometry<G>::value,
                            bg::strategy::andoyer
                          > tester;

    tester::apply("s01",
                  from_wkt<G>("SEGMENT(10 10,40 40)"),
                  10, 10, 40, 40);

    tester::apply("s02",
                  from_wkt<G>("SEGMENT(10 10,40 10)"),
                  10, 10, 40, 10.34758709960203);

    tester::apply("s02a",
                  from_wkt<G>("SEGMENT(40 10,10 10)"),
                  10, 10, 40, 10.34758709960203);

    tester::apply("s03",
                  from_wkt<G>("SEGMENT(160 10,-170 10)"),
                  160, 10, 190, 10.34758709960203);

    tester::apply("s03a",
                  from_wkt<G>("SEGMENT(-170 10,160 10)"),
                  160, 10, 190, 10.34758709960203);

    tester::apply("s03b",
                  from_wkt<G>("SEGMENT(-170 -10,160 -10)"),
                  160,  -10.34758709960203, 190, -10);

    tester::apply("s04",
                  from_wkt<G>("SEGMENT(-40 45,140 60)"),
                  -40, 45, 140, 90);

    tester::apply("s04a",
                  from_wkt<G>("SEGMENT(-40 45,140 25)"),
                  -40, 25, 140, 90);

    // segment ending at the north pole
    tester::apply("s05",
                  from_wkt<G>("SEGMENT(40 45,80 90)"),
                  40, 45, 40, 90);

    // segment starting at the north pole
    tester::apply("s05a",
                  from_wkt<G>("SEGMENT(80 90,40 45)"),
                  40, 45, 40, 90);

    // segment ending at the north pole
    tester::apply("s06",
                  from_wkt<G>("SEGMENT(-40 45,80 90)"),
                  -40, 45, -40, 90);

    // segment starting at the north pole
    tester::apply("s06a",
                  from_wkt<G>("SEGMENT(70 90,-40 45)"),
                  -40, 45, -40, 90);

    // segment ending at the north pole
    tester::apply("s07",
                  from_wkt<G>("SEGMENT(40 -45,80 90)"),
                  40, -45, 40, 90);

    // segment passing through the south pole
    tester::apply("s08",
                  from_wkt<G>("SEGMENT(-170 -45,10 -30)"),
                  -170, -90, 10, -30);

    tester::apply("s09",
                  from_wkt<G>("SEGMENT(1 -45,179 30)"),
                  1, rng(-85.394745211091248, -85.394745211090353), 179, 30);

    tester::apply("s09a",
                  from_wkt<G>("SEGMENT(2 -45,181 30)"),
                  2, rng(-87.690317839849726, -87.690317839849271), 181, 30);

    // very long segment
    tester::apply("s10",
                  from_wkt<G>("SEGMENT(0 -45,181 30)"),
                  -179, rng(-87.69031783984974, -87.690317839849271), 0, 30);

    tester::apply("s11",
                  from_wkt<G>("SEGMENT(260 30,20 45)"),
                  -100, 30, 20, rng(57.990742552279649, 57.990742552280153));

    tester::apply("s11a",
                  from_wkt<G>("SEGMENT(260 45,20 30)"),
                  -100, 30, 20, rng(57.99074255227962, 57.990742552280118));

    // segment degenerating to the north pole
    tester::apply("s12",
                  from_wkt<G>("SEGMENT(10 90,20 90)"),
                  0, 90, 0, 90);

    // segment degenerating to the south pole
    tester::apply("s13",
                  from_wkt<G>("SEGMENT(10 -90,20 -90)"),
                  0, -90, 0, -90);

    tester::apply("s14",
                  from_wkt<G>("SEGMENT(20 20,10 30)"),
                  10, 20, 20, 30);//48.87458730907602);

    tester::apply("s15",
                  from_wkt<G>("SEGMENT(50 45,185 45)"),
                  50, 45, 185, rng(69.098446893408124, 69.09844689340845));

    // segment that lies on the equator
    tester::apply("s16",
                  from_wkt<G>("SEGMENT(0 0,50 0)"),
                  0, 0, 50, 0);

    // segment that lies on the equator
    tester::apply("s16a",
                  from_wkt<G>("SEGMENT(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // segment that lies on the equator and touches antimeridian
    tester::apply("s16b",
                  from_wkt<G>("SEGMENT(50 0,180 0)"),
                  50, 0, 180, 0);

    // segment that lies on the equator and crosses antimeridian
    tester::apply("s16c",
                  from_wkt<G>("SEGMENT(-170 0,160 0)"),
                  160, 0, 190, 0);

    tester::apply("s17",
                  from_wkt<G>("SEGMENT(140 10, -140 80)"),
                  140, 10, 220, 80);

    tester::apply("s17-r",
                  from_wkt<G>("SEGMENT(-140 80, 140 10)"),
                  140, 10, 220, 80);

    tester::apply("s18",
                  from_wkt<G>("SEGMENT(20 10, 100 80)"),
                  20, 10, 100, 80);

    tester::apply("s18-r",
                  from_wkt<G>("SEGMENT(100 80, 20 10)"),
                  20, 10, 100, 80);

    // segments intersecting pole
    tester::apply("s19",
                  from_wkt<G>("SEGMENT(0 0, 180 0)"),
                  0, 0, 180, 90);
    tester::apply("s20",
                  from_wkt<G>("SEGMENT(0 0, -180 0)"),
                  0, 0, 180, 90);
    tester::apply("s21",
                  from_wkt<G>("SEGMENT(0 1, 180 1)"),
                  0, 1, 180, 90,
                  std::numeric_limits<double>::epsilon() * 10);
    tester::apply("s22",
                  from_wkt<G>("SEGMENT(0 -1, 180 -1)"),
                  0, -90, 180, -1,
                  std::numeric_limits<double>::epsilon() * 10);

}

BOOST_AUTO_TEST_CASE( envelope_segment_spheroid_with_strategy_vincenty )
{

    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::segment<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid
                          <
                            G, B,
                            bg::tag<G>::type,
                            test_reverse_geometry<G>::value,
                            bg::strategy::vincenty
                          > tester;

    tester::apply("s01",
                  from_wkt<G>("SEGMENT(10 10,40 40)"),
                  10, 10, 40, 40);

    tester::apply("s02",
                  from_wkt<G>("SEGMENT(10 10,40 10)"),
                  10, 10, 40, rng(10.347587628821937, 10.347587628821941));

    tester::apply("s02a",
                  from_wkt<G>("SEGMENT(40 10,10 10)"),
                  10, 10, 40, rng(10.347587628821937, 10.347587628821941));

    tester::apply("s03",
                  from_wkt<G>("SEGMENT(160 10,-170 10)"),
                  160, 10, 190, rng(10.347587628821937, 10.347587628821941));

    tester::apply("s03a",
                  from_wkt<G>("SEGMENT(-170 10,160 10)"),
                  160, 10, 190, rng(10.347587628821937, 10.347587628821941));

    tester::apply("s03b",
                  from_wkt<G>("SEGMENT(-170 -10,160 -10)"),
                  160, rng(-10.347587628821941, -10.347587628821937), 190, -10);

    tester::apply("s04",
                  from_wkt<G>("SEGMENT(-40 45,140 60)"),
                  -40, 45, 140, 90);

    tester::apply("s04a",
                  from_wkt<G>("SEGMENT(-40 45,140 25)"),
                  -40, 25, 140, 90);

    // segment ending at the north pole
    tester::apply("s05",
                  from_wkt<G>("SEGMENT(40 45,80 90)"),
                  40, 45, 40, 90);

    // segment starting at the north pole
    tester::apply("s05a",
                  from_wkt<G>("SEGMENT(80 90,40 45)"),
                  40, 45, 40, 90);

    // segment ending at the north pole
    tester::apply("s06",
                  from_wkt<G>("SEGMENT(-40 45,80 90)"),
                  -40, 45, -40, 90);

    // segment starting at the north pole
    tester::apply("s06a",
                  from_wkt<G>("SEGMENT(70 90,-40 45)"),
                  -40, 45, -40, 90);

    // segment ending at the north pole
    tester::apply("s07",
                  from_wkt<G>("SEGMENT(40 -45,80 90)"),
                  40, -45, 40, 90);

    // segment passing through the south pole
    tester::apply("s08",
                  from_wkt<G>("SEGMENT(-170 -45,10 -30)"),
                  -170, -90, 10, -30);

    tester::apply("s09",
                  from_wkt<G>("SEGMENT(1 -45,179 30)"),
                  1, rng(-85.392840929577218, -85.392840929576352), 179, 30);

    tester::apply("s09a",
                  from_wkt<G>("SEGMENT(2 -45,181 30)"),
                  2, rng(-87.689330275867817, -87.689330275867405), 181, 30);

    // very long segment
    tester::apply("s10",
                  from_wkt<G>("SEGMENT(0 -45,181 30)"),
                  -179, rng(-87.689330275867832, -87.689330275867405), 0, 30);

    tester::apply("s11",
                  from_wkt<G>("SEGMENT(260 30,20 45)"),
                  -100, 30, 20, rng(57.990810647056549, 57.990810647057032));

    tester::apply("s11a",
                  from_wkt<G>("SEGMENT(260 45,20 30)"),
                  -100, 30, 20, rng(57.990810647056541, 57.990810647057032));

    // segment degenerating to the north pole
    tester::apply("s12",
                  from_wkt<G>("SEGMENT(10 90,20 90)"),
                  0, 90, 0, 90);

    // segment degenerating to the south pole
    tester::apply("s13",
                  from_wkt<G>("SEGMENT(10 -90,20 -90)"),
                  0, -90, 0, -90);

    tester::apply("s14",
                  from_wkt<G>("SEGMENT(20 20,10 30)"),
                  10, 20, 20, 30);//48.87458730907602);

    tester::apply("s15",
                  from_wkt<G>("SEGMENT(50 45,185 45)"),
                  50, 45, 185, rng(69.098479136978156, 69.098479136978497));

    // segment that lies on the equator
    tester::apply("s16",
                  from_wkt<G>("SEGMENT(0 0,50 0)"),
                  0, 0, 50, 0);

    // segment that lies on the equator
    tester::apply("s16a",
                  from_wkt<G>("SEGMENT(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // segment that lies on the equator and touches antimeridian
    tester::apply("s16b",
                  from_wkt<G>("SEGMENT(50 0,180 0)"),
                  50, 0, 180, 0);

    // segment that lies on the equator and crosses antimeridian
    tester::apply("s16c",
                  from_wkt<G>("SEGMENT(-170 0,160 0)"),
                  160, 0, 190, 0);

    tester::apply("s17",
                  from_wkt<G>("SEGMENT(140 10, -140 80)"),
                  140, 10, 220, 80);

    tester::apply("s17-r",
                  from_wkt<G>("SEGMENT(-140 80, 140 10)"),
                  140, 10, 220, 80);

    tester::apply("s18",
                  from_wkt<G>("SEGMENT(20 10, 100 80)"),
                  20, 10, 100, 80);

    tester::apply("s18-r",
                  from_wkt<G>("SEGMENT(100 80, 20 10)"),
                  20, 10, 100, 80);

}

BOOST_AUTO_TEST_CASE( envelope_segment_sphere_with_height )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::segment<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("sh01",
                  from_wkt<G>("SEGMENT(10 10 567,40 40 1356)"),
                  10, 10, 567, 40, 40, 1356);

    tester::apply("sh02",
                  from_wkt<G>("SEGMENT(10 10 1356,40 40 567)"),
                  10, 10, 567, 40, 40, 1356);
}

BOOST_AUTO_TEST_CASE( envelope_segment_spheroid_with_height )
{
    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::segment<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("sh01",
                  from_wkt<G>("SEGMENT(10 10 567,40 40 1356)"),
                  10, 10, 567, 40, 40, 1356);

    tester::apply("sh02",
                  from_wkt<G>("SEGMENT(10 10 1356,40 40 567)"),
                  10, 10, 567, 40, 40, 1356);
}

template <typename CoordinateSystem>
void test_envelope_multipoint()
{
    typedef bg::model::point<double, 2, CoordinateSystem> P;
    typedef bg::model::multi_point<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty multipoint
    test_empty_geometry<CoordinateSystem, G>("mp00", "MULTIPOINT()");

    tester::apply("mp01",
                  from_wkt<G>("MULTIPOINT(0 0,10 10)"),
                  0, 0, 10, 10);

    tester::apply("mp02",
                  from_wkt<G>("MULTIPOINT(0 10,10 0)"),
                  0, 0, 10, 10);

    tester::apply("mp03",
                  from_wkt<G>("MULTIPOINT(-10 20,0 10,10 0)"),
                  -10, 0, 10, 20);

    tester::apply("mp04",
                  from_wkt<G>("MULTIPOINT(-10 20,0 10,10 -15)"),
                  -10, -15, 10, 20);

    tester::apply("mp05",
                  from_wkt<G>("MULTIPOINT(-85 10,85 -20)"),
                  -85, -20, 85, 10);

    tester::apply("mp06",
                  from_wkt<G>("MULTIPOINT(-95 10,85 -20)"),
                  -95, -20, 85, 10);

    tester::apply("mp07",
                  from_wkt<G>("MULTIPOINT(-96 10,85 -20)"),
                  85, -20, -96+360, 10);

    tester::apply("mp08",
                  from_wkt<G>("MULTIPOINT(175 15,-175 -20)"),
                  175, -20, -175+360, 15);

    tester::apply("mp09",
                  from_wkt<G>("MULTIPOINT(170 15,170 20,-175 10,-90 10,10 10)"),
                  170, 10, 10+360, 20);

    // this should fail
    tester::apply("mp09a",
                  from_wkt<G>("MULTIPOINT(10 10,170 15,170 20,-175 10,-90 10)"),
                  170, 10, 10+360, 20);


    tester::apply("mp10",
                  from_wkt<G>("MULTIPOINT(10 10,20 90,30 -90)"),
                  10, -90, 10, 90);

    // this should fail
    tester::apply("mp11",
                  from_wkt<G>("MULTIPOINT(179 90,-179 -90,10 10)"),
                  10, -90, 10, 90);

    tester::apply("mp11a",
                  from_wkt<G>("MULTIPOINT(10 10,179 90,-179 -90)"),
                  10, -90, 10, 90);

    // this should fail
    tester::apply("mp11b",
                  from_wkt<G>("MULTIPOINT(179 90,-179 -90,-90 0)"),
                  -90, -90, -90, 90);

    tester::apply("mp11c",
                  from_wkt<G>("MULTIPOINT(-90 0,179 90,-179 -90,-90 0)"),
                  -90, -90, -90, 90);

    tester::apply("mp12",
                  from_wkt<G>("MULTIPOINT(170 -30,175 60,-178 10)"),
                  170, -30, -178+360, 60);

    tester::apply("mp13",
                  from_wkt<G>("MULTIPOINT(-170 -30,-175 40,178 50)"),
                  178, -30, -170+360, 50);

    tester::apply("mp13a",
                  from_wkt<G>("MULTIPOINT(-170 -30,178 50)"),
                  178, -30, -170+360, 50);

    tester::apply("mp13b",
                  from_wkt<G>("MULTIPOINT(-170 -30,178 50,-175 40)"),
                  178, -30, -170+360, 50);

    tester::apply("mp15",
                  from_wkt<G>("MULTIPOINT(10 -20)"),
                  10, -20, 10, -20);

    tester::apply("mp16",
                  from_wkt<G>("MULTIPOINT(0 90,10 90)"),
                  0, 90, 0, 90);

    tester::apply("mp17",
                  from_wkt<G>("MULTIPOINT(179 80,-179 -80,10 10)"),
                  10, -80, -179+360, 80);

    tester::apply("mp17a",
                  from_wkt<G>("MULTIPOINT(10 10,179 80,-179 -80)"),
                  10, -80, -179+360, 80);

    tester::apply("mp17b",
                  from_wkt<G>("MULTIPOINT(179 80,-179 -80,-90 0)"),
                  179, -80, -90+360, 80);

    tester::apply("mp17c",
                  from_wkt<G>("MULTIPOINT(-90 0,179 80,-179 -80,-90 0)"),
                  179, -80, -90+360, 80);

    tester::apply("mp18",
                  from_wkt<G>("MULTIPOINT(-170 45,20 25,40 40)"),
                  20, 25, 190, 45);

#ifdef BOOST_GEOMETRY_NORMALIZE_LATITUDE
    tester::apply("mp18a",
                  from_wkt<G>("MULTIPOINT(10 135,20 25,40 40)"),
                  20, 25, 190, 45);
#endif

    tester::apply("mp19",
                  from_wkt<G>("MULTIPOINT(350 45,20 25,40 40)"),
                  -10, 25, 40, 45);

#ifdef BOOST_GEOMETRY_NORMALIZE_LATITUDE
    tester::apply("mp19a",
                  from_wkt<G>("MULTIPOINT(170 135,20 25,40 40)"),
                  -10, 25, 40, 45);
#endif

    double eps = std::numeric_limits<double>::epsilon();
    double heps = eps / 2;
    {
        G mp;
        mp.push_back(P(1, 1));
        mp.push_back(P(1-heps, 1-heps));
        tester::apply("mp20", mp, 1-heps, 1-heps, 1, 1);
    }
}

BOOST_AUTO_TEST_CASE( envelope_multipoint )
{
    test_envelope_multipoint<bg::cs::spherical_equatorial<bg::degree> >();
    test_envelope_multipoint<bg::cs::geographic<bg::degree> >();
}


template <typename CoordinateSystem>
void test_envelope_multipoint_with_height()
{
    typedef bg::model::point<double, 3, CoordinateSystem> point_type;
    typedef bg::model::multi_point<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty multipoint
    test_empty_geometry<CoordinateSystem, G>("mph00", "MULTIPOINT()");

    tester::apply("mph01",
                  from_wkt<G>("MULTIPOINT(0 0 567,10 10 1456)"),
                  0, 0, 567, 10, 10, 1456);

    tester::apply("mph02",
                  from_wkt<G>("MULTIPOINT(0 0 567,10 10 1456,20 90 967)"),
                  0, 0, 567, 10, 90, 1456);
}

BOOST_AUTO_TEST_CASE( envelope_multipoint_with_height )
{
    test_envelope_multipoint_with_height
        <
            bg::cs::spherical_equatorial<bg::degree>
        >();
    test_envelope_multipoint_with_height<bg::cs::geographic<bg::degree> >();
}


template <typename CoordinateSystem>
void test_envelope_box()
{
    typedef bg::model::point<double, 2, CoordinateSystem> P;
    typedef bg::model::box<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("b01",
                  from_wkt<G>("BOX(10 10,20 20)"),
                  10, 10, 20, 20);

#ifdef BOOST_GEOMETRY_NORMALIZE_LATITUDE
    tester::apply("b02",
                  from_wkt<G>("BOX(10 370,20 20)"),
                  10, 10, 20, 20);
#endif

    // box crosses anti-meridian
    tester::apply("b02a",
                  from_wkt<G>("BOX(170 10,-170 20)"),
                  170, 10, 190, 20);

    tester::apply("b03",
                  from_wkt<G>("BOX(-170 10,170 20)"),
                  -170, 10, 170, 20);

    tester::apply("b04",
                  from_wkt<G>("BOX(10 10,350 20)"),
                  10, 10, 350, 20);

    tester::apply("b04a",
                  from_wkt<G>("BOX(10 10,-10 20)"),
                  10, 10, 350, 20);

    // box is a band
    tester::apply("b05",
                  from_wkt<G>("BOX(0 10,360 20)"),
                  -180, 10, 180, 20);

    tester::apply("b05a",
                  from_wkt<G>("BOX(0 10,0 20)"),
                  0, 10, 0, 20);

    // box is almost a band
    tester::apply("b06",
                  from_wkt<G>("BOX(10 10,5 20)"),
                  10, 10, 365, 20);

    // initial box is a band that crosses itself
    tester::apply("b07",
                  from_wkt<G>("BOX(0 10,540 20)"),
                  -180, 10, 180, 20);

    // initial box is a band that crosses itself
    tester::apply("b08",
                  from_wkt<G>("BOX(0 10,720 20)"),
                  -180, 10, 180, 20);

    tester::apply("b09",
                  from_wkt<G>("BOX(10 10,10 10)"),
                  10, 10, 10, 10);

    tester::apply("b09a",
                  from_wkt<G>("BOX(370 10,370 10)"),
                  10, 10, 10, 10);

    // box contains north and south pole
    tester::apply("b10",
                  from_wkt<G>("BOX(0 -90,0 90)"),
                  0, -90, 0, 90);

    // box contains north and south pole
    tester::apply("b10a",
                  from_wkt<G>("BOX(10 -90,10 90)"),
                  10, -90, 10, 90);

    // box contains north and south pole
    tester::apply("b10b",
                  from_wkt<G>("BOX(0 -90,10 90)"),
                  0, -90, 10, 90);

    // box contains north and south pole
    tester::apply("b11",
                  from_wkt<G>("BOX(0 -90,180 90)"),
                  0, -90, 180, 90);

    // box contains north and south pole
    tester::apply("b11a",
                  from_wkt<G>("BOX(10 -90,190 90)"),
                  10, -90, 190, 90);

    // box contains north and south pole
    tester::apply("b11b",
                  from_wkt<G>("BOX(10 -90,110 90)"),
                  10, -90, 110, 90);

    // box contains north and south pole and is a band
    // (box covers the entire spheroid)
    tester::apply("b12",
                  from_wkt<G>("BOX(0 -90,360 90)"),
                  -180, -90, 180, 90);

    // box contains north and south pole and is a band
    // (box covers the entire spheroid)
    tester::apply("b12a",
                  from_wkt<G>("BOX(10 -90,370 90)"),
                  -180, -90, 180, 90);

    // box contains north and south pole and is a band
    // (box covers the entire spheroid)
    tester::apply("b12b",
                  from_wkt<G>("BOX(-175 -90,185 90)"),
                  -180, -90, 180, 90);

    // box contains north and south pole and is a band
    // (box covers the entire spheroid)
    tester::apply("b12c",
                  from_wkt<G>("BOX(-175 -90,185 90)"),
                  -180, -90, 180, 90);

    // box contains north and south pole and is a band and is self-intersecting
    // (box covers the entire spheroid)
    tester::apply("b12d",
                  from_wkt<G>("BOX(-175 -90,186 90)"),
                  -180, -90, 180, 90);

    // box contains north and south pole and is a band and is self-intersecting
    // (box covers the entire spheroid)
    tester::apply("b12e",
                  from_wkt<G>("BOX(0 -90,540 90)"),
                  -180, -90, 180, 90);

    // box contains north and south pole and is a band and is self-intersecting
    // (box covers the entire spheroid)
    tester::apply("b12f",
                  from_wkt<G>("BOX(10 -90,540 90)"),
                  -180, -90, 180, 90);

    // box is a band
    tester::apply("b13",
                  from_wkt<G>("BOX(180 -10,-180 10)"),
                  -180, -10, 180, 10);

    // box contains north and south pole and is a band
    // (box covers the entire spheroid)
    tester::apply("b13a",
                  from_wkt<G>("BOX(180 -90,-180 90)"),
                  -180, -90, 180, 90);

    tester::apply("b14",
                  from_wkt<G>("BOX(0 10,30 90)"),
                  0, 10, 30, 90);

    tester::apply("b15",
                  from_wkt<G>("BOX(179 10,178 70)"),
                  179, 10, 538, 70);

    // box contains north pole
    tester::apply("b16",
                  from_wkt<G>("BOX(10 40,20 90)"),
                  10, 40, 20, 90);

    tester::apply("b16a",
                  from_wkt<G>("BOX(170 40,-170 90)"),
                  170, 40, 190, 90);

    // box contains south pole
    tester::apply("b17",
                  from_wkt<G>("BOX(10 -90,20 40)"),
                  10, -90, 20, 40);

    tester::apply("b17a",
                  from_wkt<G>("BOX(150 -90,-150 40)"),
                  150, -90, 210, 40);

    // box degenerates to the north pole
    tester::apply("b98",
                  from_wkt<G>("BOX(10 90,20 90)"),
                  0, 90, 0, 90);

    // box degenerates to the south pole
    tester::apply("b99",
                  from_wkt<G>("BOX(10 -90,20 -90)"),
                  0, -90, 0, -90);

    double eps = std::numeric_limits<double>::epsilon();
    double heps = eps / 2;

    tester::apply("b100", G(P(1-heps, 1-heps), P(1, 1)), 1-heps, 1-heps, 1, 1);
}

template <typename CoordinateSystem>
void test_envelope_box_polar()
{
    typedef bg::model::point<double, 2, CoordinateSystem> P;
    typedef bg::model::box<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("b01",
                  from_wkt<G>("BOX(10 10,20 20)"),
                  10, 10, 20, 20);

    tester::apply("b02a",
                  from_wkt<G>("BOX(170 10,-170 20)"),
                  170, 10, 190, 20);

    tester::apply("b10b",
                  from_wkt<G>("BOX(0 0,10 180)"),
                  0, 0, 10, 180);

    tester::apply("b16a",
                  from_wkt<G>("BOX(170 40,-170 180)"),
                  170, 40, 190, 180);
}

BOOST_AUTO_TEST_CASE( envelope_box )
{
    test_envelope_box<bg::cs::spherical_equatorial<bg::degree> >();
    test_envelope_box<bg::cs::geographic<bg::degree> >();
    test_envelope_box_polar<bg::cs::spherical<bg::degree> >();
}


template <typename CoordinateSystem>
void test_envelope_box_with_height()
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::box<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("bh01",
                  from_wkt<G>("BOX(10 10 567,20 20 2834)"),
                  10, 10, 567, 20, 20, 2834);

    tester::apply("bh02",
                  from_wkt<G>("BOX(10 10 567,20 20 567)"),
                  10, 10, 567, 20, 20, 567);

    tester::apply("bh03",
                  from_wkt<G>("BOX(0 10 567,170 90 1567)"),
                  0, 10, 567, 170, 90, 1567);
}

BOOST_AUTO_TEST_CASE( envelope_box_with_height )
{
    test_envelope_box_with_height<bg::cs::spherical_equatorial<bg::degree> >();
    test_envelope_box_with_height<bg::cs::geographic<bg::degree> >();
}


BOOST_AUTO_TEST_CASE( envelope_sphere_linestring )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::linestring<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty linestring
    test_empty_geometry<coordinate_system_type, G>("l00", "LINESTRING()");

    tester::apply("l01",
                  from_wkt<G>("LINESTRING(10 15)"),
                  10, 15, 10, 15);

    tester::apply("l01a",
                  from_wkt<G>("LINESTRING(370 15)"),
                  10, 15, 10, 15);

    tester::apply("l01b",
                  from_wkt<G>("LINESTRING(370 90)"),
                  0, 90, 0, 90);

    tester::apply("l02",
                  from_wkt<G>("LINESTRING(10 10,20 20,10 30)"),
                  10, 10, 20, 30);

    // linestring that circles the entire globe
    tester::apply("l03",
                  from_wkt<G>("LINESTRING(-185 0,-170 25,-50 10,10 10,20 20,100 5,180 15)"),
                  -180, 0, 180, 33.587539971516854,
                  4.0 * std::numeric_limits<double>::epsilon());

    // linestring that crosses the antimeridian but staying close to it
    tester::apply("l04",
                  from_wkt<G>("LINESTRING(-170 10,170 45,160 5,-160 25)"),
                  160, 5, 200, 45);

    // linestring that goes through the north pole (twice)
    tester::apply("l05",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30)"),
                  -170, 30, 20, 90);

    // linestring that goes through the north pole (three times)
    tester::apply("l05a",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70)"),
                  -170, 30, 30, 90);

    // linestring that goes through the north pole (four times)
    tester::apply("l05b",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70,40 85,-140 25)"),
                  -170, 25, 40, 90);

    // linestring that goes through the north pole (five times)
    tester::apply("l05c",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70,40 85,-140 25,-130 25,50 45)"),
                  -170, 25, 50, 90);

    // linestring that goes through the north pole (five times)
    tester::apply("l05d",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70,40 85,-140 25,-130 25,50 45,185 45)"),
                  -170, 25, 185, 90);

    // linestring that crosses the antimeridian
    tester::apply("l06",
                  from_wkt<G>("LINESTRING(-160 85,-170 80,170 40,160 80)"),
                  160, 40, 200, 85);

    // linestring that crosses the antimeridian
    tester::apply("l06a",
                  from_wkt<G>("LINESTRING(-130 85,-170 84,170 40,160 80)"),
                  160, 40, 230, 85.02629680862029);

    // linestring that goes through the north pole
    tester::apply("l07",
                  from_wkt<G>("LINESTRING(-160 40,-170 90,-140 40,-50 30)"),
                  -160, 30, -50, 90);

    // linestring that degenerates to the north pole
    tester::apply("l08",
                  from_wkt<G>("LINESTRING(-40 90,-30 90,-140 90,10 90)"),
                  0, 90, 0, 90);

    // linestring with duplicate points
    tester::apply("l09",
                  from_wkt<G>("LINESTRING(-40 20,-40 20,-140 85,-10 5,-10 5)"),
                  -140, 5, -10, 86.184540574427757);

    // linestring with duplicate points
    tester::apply("l09a",
                  from_wkt<G>("LINESTRING(-40 20,320 20,-140 85,-10 5,350 5)"),
                  -140, 5, -10, 86.184540574427757);

    // linestring that lies on the equator
    tester::apply("l10",
                  from_wkt<G>("LINESTRING(0 0,50 0)"),
                  0, 0, 50, 0);

    // linestring that lies on the equator
    tester::apply("l10a",
                  from_wkt<G>("LINESTRING(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // linestring that lies on the equator and touches antimeridian
    tester::apply("l10b",
                  from_wkt<G>("LINESTRING(50 0,180 0)"),
                  50, 0, 180, 0);

    // linestring that lies on the equator and crosses antimeridian
    tester::apply("l10c",
                  from_wkt<G>("LINESTRING(-170 0,160 0)"),
                  160, 0, 190, 0);

    double eps = std::numeric_limits<double>::epsilon();
    double heps = eps / 2;

    {
        G l;
        l.push_back(P(1, 1));
        l.push_back(P(1-heps, 1-heps));
        tester::apply("l11", l, 1-heps, 1-heps, 1, 1);
    }

    {
        G l;
        l.push_back(P(0, 0));
        l.push_back(P(1-heps, 1-heps));
        l.push_back(P(0, 0));
        l.push_back(P(1, 1));
        tester::apply("l12", l, 0, 0, 1, 1);
    }
}

BOOST_AUTO_TEST_CASE( envelope_spheroid_linestring )
{
    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> P;
    typedef bg::model::linestring<P> G;
    typedef bg::model::box<P> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty linestring
    test_empty_geometry<coordinate_system_type, G>("l00", "LINESTRING()");

    tester::apply("l01",
                  from_wkt<G>("LINESTRING(10 15)"),
                  10, 15, 10, 15);

    tester::apply("l01a",
                  from_wkt<G>("LINESTRING(370 15)"),
                  10, 15, 10, 15);

    tester::apply("l01b",
                  from_wkt<G>("LINESTRING(370 90)"),
                  0, 90, 0, 90);

    tester::apply("l02",
                  from_wkt<G>("LINESTRING(10 10,20 20,10 30)"),
                  10, 10, 20, 30);

    // linestring that circles the entire globe
    tester::apply("l03",
                  from_wkt<G>("LINESTRING(-185 0,-170 25,-50 10,10 10,20 20,100 5,180 15)"),
                  -180, 0, 180, rng(33.702476580412359, 33.702476580413318));

    // linestring that crosses the antimeridian but staying close to it
    tester::apply("l04",
                  from_wkt<G>("LINESTRING(-170 10,170 45,160 5,-160 25)"),
                  160, 5, 200, 45);

    // linestring that goes through the north pole (twice)
    tester::apply("l05",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30)"),
                  -170, 30, 20, 90);

    // linestring that goes through the north pole (three times)
    tester::apply("l05a",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70)"),
                  -170, 30, 30, 90);

    // linestring that goes through the north pole (four times)
    tester::apply("l05b",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70,40 85,-140 25)"),
                  -170, 25, 40, 90);

    // linestring that goes through the north pole (five times)
    tester::apply("l05c",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70,40 85,-140 25,-130 25,50 45)"),
                  -170, 25, 50, 90);

    // linestring that goes through the north pole (five times)
    tester::apply("l05d",
                  from_wkt<G>("LINESTRING(-170 80,10 60,20 80,-160 30,-150 30,30 70,40 85,-140 25,-130 25,50 45,185 45)"),
                  -170, 25, 185, 90);

    // linestring that crosses the antimeridian
    tester::apply("l06",
                  from_wkt<G>("LINESTRING(-160 85,-170 80,170 40,160 80)"),
                  160, 40, 200, 85);

    // linestring that crosses the antimeridian
    tester::apply("l06a",
                  from_wkt<G>("LINESTRING(-130 85,-170 84,170 40,160 80)"),
                  160, 40, 230, 85.02630556315151);

    // linestring that goes through the north pole
    tester::apply("l07",
                  from_wkt<G>("LINESTRING(-160 40,-170 90,-140 40,-50 30)"),
                  -160, 30, -50, 90);

    // linestring that degenerates to the north pole
    tester::apply("l08",
                  from_wkt<G>("LINESTRING(-40 90,-30 90,-140 90,10 90)"),
                  0, 90, 0, 90);

    // linestring with duplicate points
    tester::apply("l09",
                  from_wkt<G>("LINESTRING(-40 20,-40 20,-140 85,-10 5,-10 5)"),
                  -140, 5, -10, 86.18564770636192);

    // linestring with duplicate points
    tester::apply("l09a",
                  from_wkt<G>("LINESTRING(-40 20,320 20,-140 85,-10 5,350 5)"),
                  -140, 5, -10, 86.18564770636192);

    // linestring that lies on the equator
    tester::apply("l10",
                  from_wkt<G>("LINESTRING(0 0,50 0)"),
                  0, 0, 50, 0);

    // linestring that lies on the equator
    tester::apply("l10a",
                  from_wkt<G>("LINESTRING(-50 0,50 0)"),
                  -50, 0, 50, 0);

    // linestring that lies on the equator and touches antimeridian
    tester::apply("l10b",
                  from_wkt<G>("LINESTRING(50 0,180 0)"),
                  50, 0, 180, 0);

    // linestring that lies on the equator and crosses antimeridian
    tester::apply("l10c",
                  from_wkt<G>("LINESTRING(-170 0,160 0)"),
                  160, 0, 190, 0);

    double eps = std::numeric_limits<double>::epsilon();
    double heps = eps / 2;

    {
        G l;
        l.push_back(P(1, 1));
        l.push_back(P(1-heps, 1-heps));
        tester::apply("l11", l, 1-heps, 1-heps, 1, 1);
    }

    {
        G l;
        l.push_back(P(0, 0));
        l.push_back(P(1-heps, 1-heps));
        l.push_back(P(0, 0));
        l.push_back(P(1, 1));
        tester::apply("l12", l, 0, 0, 1, 1);
    }
}


BOOST_AUTO_TEST_CASE( envelope_linestring_sphere_with_height )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::linestring<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty linestring
    test_empty_geometry<coordinate_system_type, G>("lh00", "LINESTRING()");

    tester::apply("lh01",
                  from_wkt<G>("LINESTRING(10 15 30,20 25 434,30 35 186)"),
                  10, 15, 30, 30, 35, 434);
}

BOOST_AUTO_TEST_CASE( envelope_linestring_spheroid_with_height )
{
    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::linestring<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty linestring
    test_empty_geometry<coordinate_system_type, G>("lh00", "LINESTRING()");

    tester::apply("lh01",
                  from_wkt<G>("LINESTRING(10 15 30,20 25 434,30 35 186)"),
                  10, 15, 30, 30, 35, 434);
}

BOOST_AUTO_TEST_CASE( envelope_sphere_multilinestring )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> point_type;
    typedef bg::model::multi_linestring<bg::model::linestring<point_type> > G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty multilinestring
    test_empty_geometry<coordinate_system_type, G>("ml00", "MULTILINESTRING()");

    // invalid multilinestring
    test_empty_geometry<coordinate_system_type, G>("ml00a",
                                                   "MULTILINESTRING(())");

    // invalid multilinestring
    test_empty_geometry<coordinate_system_type, G>("ml00b",
                                                   "MULTILINESTRING((),())");

    // invalid multilinestring
    tester::apply("ml00c",
                  from_wkt<G>("MULTILINESTRING((10 15),(),())"),
                  10, 15, 10, 15);

    // invalid multilinestring
    tester::apply("ml00d",
                  from_wkt<G>("MULTILINESTRING((),(10 15),())"),
                  10, 15, 10, 15);

    tester::apply("ml01",
                  from_wkt<G>("MULTILINESTRING((10 15))"),
                  10, 15, 10, 15);

#ifdef BOOST_GEOMETRY_TEST_FAILURES
    tester::apply("ml01a",
                  from_wkt<G>("MULTILINESTRING((),(),(10 15),())"),
                  10, 15, 10, 15);
#endif

    tester::apply("ml02",
                  from_wkt<G>("MULTILINESTRING((-170 40,-100 80,10 40),(-10 25,10 35,100 45),(50 30,150 45,-160 30))"),
                  -180, 25, 180, 81.113793608034072);

    tester::apply("ml03",
                  from_wkt<G>("MULTILINESTRING((-150 40,-100 80,10 40),(-10 25,10 35,100 45),(50 30,150 45,-160 30))"),
                  -150, 25, 200, 81.113793608034072);

    tester::apply("ml04",
                  from_wkt<G>("MULTILINESTRING((-150 40,-100 80),(10 35,100 80))"),
                  -150, 35, 100, 80.07385383411011);

    tester::apply("ml04a",
                  from_wkt<G>("MULTILINESTRING((-150 40,-100 80),(10 35,100 80),(170 25,-160 80))"),
                  10, 25, 260, 80.07385383411011);

    tester::apply("ml05",
                  from_wkt<G>("MULTILINESTRING((-140 40,-100 80),(10 35,100 80))"),
                  -140, 35, 100, 80.07385383411011);

    tester::apply("ml05a",
                  from_wkt<G>("MULTILINESTRING((-140 40,-100 80),(10 35,100 80),(170 25,-160 80))"),
                  10, 25, 260, 80.07385383411011);
}

BOOST_AUTO_TEST_CASE( envelope_spheroid_multilinestring )
{
    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> point_type;
    typedef bg::model::multi_linestring<bg::model::linestring<point_type> > G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    // empty multilinestring
    test_empty_geometry<coordinate_system_type, G>("ml00", "MULTILINESTRING()");

    // invalid multilinestring
    test_empty_geometry<coordinate_system_type, G>("ml00a",
                                                   "MULTILINESTRING(())");

    // invalid multilinestring
    test_empty_geometry<coordinate_system_type, G>("ml00b",
                                                   "MULTILINESTRING((),())");

    // invalid multilinestring
    tester::apply("ml00c",
                  from_wkt<G>("MULTILINESTRING((10 15),(),())"),
                  10, 15, 10, 15);

    // invalid multilinestring
    tester::apply("ml00d",
                  from_wkt<G>("MULTILINESTRING((),(10 15),())"),
                  10, 15, 10, 15);

    tester::apply("ml01",
                  from_wkt<G>("MULTILINESTRING((10 15))"),
                  10, 15, 10, 15);

#ifdef BOOST_GEOMETRY_TEST_FAILURES
    tester::apply("ml01a",
                  from_wkt<G>("MULTILINESTRING((),(),(10 15),())"),
                  10, 15, 10, 15);
#endif

    tester::apply("ml02",
                  from_wkt<G>("MULTILINESTRING((-170 40,-100 80,10 40),(-10 25,10 35,100 45),(50 30,150 45,-160 30))"),
                  -180, 25, 180, 81.115885076701147);

    tester::apply("ml03",
                  from_wkt<G>("MULTILINESTRING((-150 40,-100 80,10 40),(-10 25,10 35,100 45),(50 30,150 45,-160 30))"),
                  -150, 25, 200, 81.115885076701147);

    tester::apply("ml04",
                  from_wkt<G>("MULTILINESTRING((-150 40,-100 80),(10 35,100 80))"),
                  -150, 35, 100, rng(80.07385383411011, 80.082544902477267));

    tester::apply("ml04a",
                  from_wkt<G>("MULTILINESTRING((-150 40,-100 80),(10 35,100 80),(170 25,-160 80))"),
                  10, 25, 260, rng(80.07385383411011, 80.082544902477267));

    tester::apply("ml05",
                  from_wkt<G>("MULTILINESTRING((-140 40,-100 80),(10 35,100 80))"),
                  -140, 35, 100, rng(80.07385383411011, 80.082544902477267));

    tester::apply("ml05a",
                  from_wkt<G>("MULTILINESTRING((-140 40,-100 80),(10 35,100 80),(170 25,-160 80))"),
                  10, 25, 260, rng(80.07385383411011, 80.082544902477267));
}


BOOST_AUTO_TEST_CASE( envelope_multilinestring_sphere_with_height )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::multi_linestring<bg::model::linestring<point_type> > G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("mlh01",
                  from_wkt<G>("MULTILINESTRING((10 15 1000))"),
                  10, 15, 1000, 10, 15, 1000);

#ifdef BOOST_GEOMETRY_TEST_FAILURES
    tester::apply("mlh01a",
                  from_wkt<G>("MULTILINESTRING((),(),(10 15 1000),())"),
                  10, 15, 1000, 10, 15, 1000);
#endif

    tester::apply("mlh02",
                  from_wkt<G>("MULTILINESTRING((-170 40 400,-100 80 300),(-10 25 600,10 35 700,120 45 450))"),
                  -10, 25, 300, 260, 80, 700);
}

BOOST_AUTO_TEST_CASE( envelope_multilinestring_spheroid_with_height )
{
    typedef bg::cs::geographic<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 3, coordinate_system_type> point_type;
    typedef bg::model::multi_linestring<bg::model::linestring<point_type> > G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    tester::apply("mlh01",
                  from_wkt<G>("MULTILINESTRING((10 15 1000))"),
                  10, 15, 1000, 10, 15, 1000);

#ifdef BOOST_GEOMETRY_TEST_FAILURES
    tester::apply("mlh01a",
                  from_wkt<G>("MULTILINESTRING((),(),(10 15 1000),())"),
                  10, 15, 1000, 10, 15, 1000);
#endif

    tester::apply("mlh02",
                  from_wkt<G>("MULTILINESTRING((-170 40 400,-100 80 300),(-10 25 600,10 35 700,120 45 450))"),
                  -10, 25, 300, 260, 80, 700);
}

//Test spherical polygons and rings (geographic should be similar)
BOOST_AUTO_TEST_CASE( envelope_polygon )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> point_type;
    typedef bg::model::polygon<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    typedef bg::model::ring<point_type> R;
    typedef test_envelope_on_sphere_or_spheroid<R, B> testerR;
    R ring1;
    bg::append(ring1, point_type(0.0, 0.0));
    bg::append(ring1, point_type(0.0, 5.0));
    bg::append(ring1, point_type(5.0, 5.0));
    bg::append(ring1, point_type(5.0, 0.0));
    bg::append(ring1, point_type(0.0, 0.0));

    testerR::apply("r01",
                  ring1,
                  0, 0, 5, 5.0047392446083938);
    tester::apply("p01",
                  from_wkt<G>("POLYGON((0 0,1 0,1 1,0 1,0 0))"),
                  0, 0, 1, 1.0000380706527705);
    tester::apply("p02",
                  from_wkt<G>("POLYGON((0 0,1 0,1 1,0 1,0 0),(0.5 0.5,0.7 0.5,0.7 0.7,0.5 0.5))"),
                  0, 0, 1, 1.0000380706527705);
    tester::apply("p03",
                  from_wkt<G>("POLYGON((),(0.5 0.5,0.5 0.7,0.7 0.7,0.5 0.5))"),
                  0.5, 0.5, 0.7, 0.70000106605644807);
    tester::apply("p04",
                  from_wkt<G>("POLYGON((),(0.5 0.5,0.5 0.7,0.7 0.7,0.5 0.5),\
                              (0.7 0.5,0.9 0.5,0.9 0.7,0.7 0.5))"),
                  0.5, 0.5, 0.9, 0.70000106605644807);

    // https://github.com/boostorg/geometry/issues/466
    tester::apply("p5-issue466",
                  from_wkt<G>("POLYGON((2.4 48.9021,2.4 48.89,2.3 48.89,2.3 48.9021,2.4 48.9021))"),
                  2.3, 48.89, 2.4, 48.902110807274966);
    tester::apply("p6-issue466",
                  from_wkt<G>("POLYGON((2.4 48.90215,2.4 48.89,2.3 48.89,2.3 48.90215,2.4 48.90215))"),
                  2.3, 48.89, 2.4, 48.902160807272381);
    tester::apply("p7-issue466",
                  from_wkt<G>("POLYGON((2.4 48.9022,2.4 48.89,2.3 48.89,2.3 48.9022,2.4 48.9022))"),
                  2.3, 48.89, 2.4, 48.902210807269796);
}

// unit test for rings de-activated for now (current implementation
// for area on the spherical equatorial coordinate system is not complete)
// TODO: re-activate once implementation is done
// right now implementation does not distinguish between ccw and cw rings
BOOST_AUTO_TEST_CASE( envelope_cw_ring )
{
    typedef bg::cs::spherical_equatorial<bg::degree> coordinate_system_type;
    typedef bg::model::point<double, 2, coordinate_system_type> point_type;
    typedef bg::model::polygon<point_type> G;
    typedef bg::model::box<point_type> B;
    typedef test_envelope_on_sphere_or_spheroid<G, B> tester;

    //double const eps = std::numeric_limits<double>::epsilon();

    tester::apply("r01cw",
                  from_wkt<G>("POLYGON((0 10,0 45,50 10,0 10))"),
                  0, 10, 50, 45);
#if 0
    // ring that contains both the north and south poles in its interior
    tester::apply("r01cw-r",
                  from_wkt<G>("POLYGON((0 10,50 10,0 45,0 10))"),
                  -180, -90, 180, 90);

    // ring that contains the north pole in its interior
    tester::apply("r02cw",
                  from_wkt<G>("POLYGON((0 0,-50 0,-170 0,180 0,100 0,0 0))"),
                  -180, 0, 180, 90);
    //                  -180, -90, 180, 0);

    // ring that contains the south pole in its interior
    tester::apply("r02cw-r",
                  from_wkt<G>("POLYGON((0 0,100 0,180 0,-170 0,-50 0,0 0))"),
                  -180, -90, 180, 0);
                  //                  -180, 0, 180, 90);

    // ring that contains the north pole in its interior
    tester::apply("r03cw",
                  from_wkt<G>("POLYGON((0 -10,-50 -10,-170 -10,180 -10,100 -10,0 -10))"),
                  -180, -19.42540014068282, 180, 90);
                  //                  -180, -90, 180, -10);

    // ring that contains both the south and north poles in its interior
    tester::apply("r03cw-r",
                  from_wkt<G>("POLYGON((0 -10,100 -10,180 -10,-170 -10,-50 -10,0 -10))"),
                  -180, -90, 180, -10);
    //                  -180, -19.42540014068282, 180, 90);

    // ring that has the north pole as vertex and contains the south pole
    tester::apply("r04cw",
                  from_wkt<G>("POLYGON((0 0,-50 90,-50 0,0 0))"),
                  -180, -90, 180, 90);

    // ring that has the north pole as vertex
    tester::apply("r04cw-r",
                  from_wkt<G>("POLYGON((0 0,-50 0,-50 90,0 0))"),
                  -50, 0, 0, 90);

    // ring that crosses antimeridian but does not contain any pole
    tester::apply("r05cw",
                  from_wkt<G>("POLYGON((-140 0,140 10,-140 80,-140 0))"),
                  140, 0, 220, 80);

    // ring that crosses antimeridian multiple times but does not
    // contain any pole
    tester::apply("r06cw",
                  from_wkt<G>("POLYGON((-140 10,140 10,140 80,-140 80,-140 10))"),
                  140, 10, 220, 82.30737118075496,
                  2 * eps);

    // ring that crosses antimeridian multiple times but does not
    // contain any pole
    tester::apply("r07cw",
                  from_wkt<G>("POLYGON((-140 10,140 10,180 80,-140 10))"),
                  140, 10, 220, 80);

    // ring that goes through the north pole
    tester::apply("r08cw",
                  from_wkt<G>("POLYGON((0 0,-50 0,-50 90,0 0))"),
                  -50, 0, 0, 90);

    // ring that goes through the south pole and contains the north pole
    tester::apply("r09cw",
                  from_wkt<G>("POLYGON((0 0,0 -90,50 0,0 0))"),
                  -180, -90, 180, 90);

    // ring that goes through the south pole
    tester::apply("r09cw-r",
                  from_wkt<G>("POLYGON((0 0,50 0,50 -90,0 0))"),
                  0, -90, 50, 0);

    // ring that goes through both south and north pole
    tester::apply("r10cw",
                  from_wkt<G>("POLYGON((50 0,50 -90,40 0,40 90,50 0))"),
                  40, -90, 50, 90);

    // ring that goes through both south and north pole and crosses antimeridian
    tester::apply("r11cw",
                  from_wkt<G>("POLYGON((-170 0,-170 -90,160 0,160 90,-170 0))"),
                  160, -90, 190, 90);

    // ring with edge that goes through the north pole and contains
    // south pole (the bounding box is the entire globe)
    tester::apply("r12cw",
                  from_wkt<G>("POLYGON((-50 40,130 10,170 80,-50 40))"),
                  -180, -90, 180, 90);
                  //                  -180, 10, 180, 90);

    // ring with edge that goes through the north pole
    tester::apply("r12cw-r",
                  from_wkt<G>("POLYGON((-50 40,170 80,130 10,-50 40))"),
                  -180, 10, 180, 90);
    //                  -180, -90, 180, 90);

    // ring that represents a spherical cap near the north pole
    tester::apply("r13cw",
                  from_wkt<G>("POLYGON((100 45,0 45,-100 45,-100 90,100 45))"),
                  -100, 45, 100, 90);

    // ring that represents the complement of a spherical cap
    // near the north pole
    tester::apply("r13cw-r",
                  from_wkt<G>("POLYGON((-100 45,0 45,100 45,100 90,-100 45))"),
                  -180, -90, 180, 90);

    // ring that represents the complement of a spherical cap
    // that touches the south pole
    tester::apply("r14cw",
                  from_wkt<G>("POLYGON((-100 45,0 45,100 45,100 -90,-100 45))"),
                  -100, -90, 100, 57.26759279038765);

    // ring that represents a spherical cap that touches the south pole
    tester::apply("r14cw-r",
                  from_wkt<G>("POLYGON((100 45,0 45,-100 45,-100 -90,100 45))"),
                  -180, -90, 180, 90);

    // ring with edge that goes through the south pole
    tester::apply("r15cw",
                  from_wkt<G>("POLYGON((-50 -40,130 -10,170 -80,-50 -40))"),
                  -180, -90, 180, -10);

    // ring with edge that goes through the south pole and contains
    // north pole (the bounding box is the entire globe)
    tester::apply("r15cw-r",
                  from_wkt<G>("POLYGON((-50 -40,170 -80,130 -10,-50 -40))"),
                  -180, -90, 180, 90);

    // ring that does not contain any pole and lies in the lower hemisphere
    tester::apply("r16",
                  from_wkt<G>("POLYGON((-50 -80,-50 -40,-30 -40,-30 -80,-50 -80))"),
                  -50, -80.14892388341609, -30, -40);

    // ring that lies in the lower hemisphere and contains both poles
    tester::apply("r16-r",
                  from_wkt<G>("POLYGON((-50 -80,-30 -80,-30 -40,-50 -40,-50 -80))"),
                  -180, -90, 180, 90);

    // ring that goes through the south pole and contains the north pole
    tester::apply("r17cw",
                  from_wkt<G>("POLYGON((50 0,50 -90,100 0,50 0))"),
                  -180, -90, 180, 90);

    // ring that goes through the south pole
    tester::apply("r17cw-r",
                  from_wkt<G>("POLYGON((50 0,100 0,100 -90,50 0))"),
                  50, -90, 100, 0);

    // ring that goes through the south pole and contains the north pole
    tester::apply("r18cw",
                  from_wkt<G>("POLYGON((50 0,50 -90,460 0,50 0))"),
                  -180, -90, 180, 90);

    // ring that goes through the south pole
    tester::apply("r18cw-r",
                  from_wkt<G>("POLYGON((50 0,460 0,100 -90,50 0))"),
                  50, -90, 100, 0);

    // ring that goes through the south pole and contains the north pole
    tester::apply("r19cw",
                  from_wkt<G>("POLYGON((50 0,50 -90,-260 0,50 0))"),
                  -180, -90, 180, 90);

    // ring that goes through the south pole
    tester::apply("r19cw-r",
                  from_wkt<G>("POLYGON((50 0,-260 0,100 -90,50 0))"),
                  50, -90, 100, 0);

    // ring that goes through both poles
    tester::apply("r20cw",
                  from_wkt<G>("POLYGON((10 0,10 90,20 0,20 -90,10 0))"),
                  10, -90, 20, 90); // SUCCEEDS FOR WRONG REASON

    // ring that goes through both poles
    tester::apply("r20cw-r",
                  from_wkt<G>("POLYGON((10 0,10 -90,20 0,20 90,10 0))"),
        -180, -90, 180, 90); // FAILS NOW

    // ring that goes through both poles and its boundary forms
    // a great circle
    tester::apply("r21cw",
                  from_wkt<G>("POLYGON((-10 0,-10 90,170 0,170 -90,-10 0))"),
                  -10, -90, 170, 90); // SUCCEEDS FOR WRONG REASON

    // ring that goes through both poles and its boundary forms
    // a great circle
    tester::apply("r21cw-r",
                  from_wkt<G>("POLYGON((-10 0,-10 -90,170 0,170 90,-10 0))"),
                  170, -90, 350, 90); // FAILS NOW
#endif
}

