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

// Copyright (c) 2007-2012 Barend Gehrels, Amsterdam, the Netherlands.
// Copyright (c) 2008-2012 Bruno Lalande, Paris, France.
// Copyright (c) 2009-2012 Mateusz Loskot, London, UK.

// This file was modified by Oracle on 2021.
// Modifications copyright (c) 2021, Oracle and/or its affiliates.
// Contributed and/or modified by Adam Wulkiewicz, on behalf of Oracle

// Parts of Boost.Geometry are redesigned from Geodan's Geographic Library
// (geolib/GGL), copyright (c) 1995-2010 Geodan, Amsterdam, the Netherlands.

// Use, modification and distribution is subject to the Boost Software License,
// Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)


#include <algorithms/test_convert.hpp>



template <typename Point1, typename Point2>
void test_mixed_point_types()
{
    // Point
    check<Point1, Point2>("POINT(1 2)");

    // Box
    check<bg::model::box<Point1>, bg::model::box<Point2>>("POLYGON((1 2,1 4,3 4,3 2,1 2))");

    // Segment
    check<bg::model::segment<Point1>, bg::model::segment<Point2>>("LINESTRING(1 1,2 2)");

    // Linestring
    check<bg::model::linestring<Point1>, bg::model::linestring<Point2>>("LINESTRING(1 1,2 2)");

    // Ring
    check<bg::model::ring<Point1, true, true>, bg::model::ring<Point2, true, true>>(
        "POLYGON((1 1,2 2,3 0,1 1))", "POLYGON((1 1,2 2,3 0,1 1))", 4);
    check<bg::model::ring<Point1, true, true>, bg::model::ring<Point2, false, true>>(
        "POLYGON((1 1,2 2,3 0,1 1))", "POLYGON((1 1,3 0,2 2,1 1))", 4);
    check<bg::model::ring<Point1, true, true>, bg::model::ring<Point2, true, false>>(
        "POLYGON((1 1,2 2,3 0,1 1))", "POLYGON((1 1,2 2,3 0))", 3);
    check<bg::model::ring<Point1, true, true>, bg::model::ring<Point2, false, false>>(
        "POLYGON((1 1,2 2,3 0,1 1))", "POLYGON((1 1,3 0,2 2))", 3);

    check<bg::model::ring<Point1, false, true>, bg::model::ring<Point2, true, true>>(
        "POLYGON((1 1,3 0,2 2,1 1))", "POLYGON((1 1,2 2,3 0,1 1))", 4);
    check<bg::model::ring<Point1, false, true>, bg::model::ring<Point2, false, true>>(
        "POLYGON((1 1,3 0,2 2,1 1))", "POLYGON((1 1,3 0,2 2,1 1))", 4);
    check<bg::model::ring<Point1, false, true>, bg::model::ring<Point2, true, false>>(
        "POLYGON((1 1,3 0,2 2,1 1))", "POLYGON((1 1,2 2,3 0))", 3);
    check<bg::model::ring<Point1, false, true>, bg::model::ring<Point2, false, false>>(
        "POLYGON((1 1,3 0,2 2,1 1))", "POLYGON((1 1,3 0,2 2))", 3);

    check<bg::model::ring<Point1, true, false>, bg::model::ring<Point2, true, true>>(
        "POLYGON((1 1,2 2,3 0))", "POLYGON((1 1,2 2,3 0,1 1))", 4);
    check<bg::model::ring<Point1, true, false>, bg::model::ring<Point2, false, true>>(
        "POLYGON((1 1,2 2,3 0))", "POLYGON((1 1,3 0,2 2,1 1))", 4);
    check<bg::model::ring<Point1, true, false>, bg::model::ring<Point2, true, false>>(
        "POLYGON((1 1,2 2,3 0))", "POLYGON((1 1,2 2,3 0))", 3);
    check<bg::model::ring<Point1, true, false>, bg::model::ring<Point2, false, false>>(
        "POLYGON((1 1,2 2,3 0))", "POLYGON((1 1,3 0,2 2))", 3);

    check<bg::model::ring<Point1, false, false>, bg::model::ring<Point2, true, true>>(
        "POLYGON((1 1,3 0,2 2))", "POLYGON((1 1,2 2,3 0,1 1))", 4);
    check<bg::model::ring<Point1, false, false>, bg::model::ring<Point2, false, true>>(
        "POLYGON((1 1,3 0,2 2))", "POLYGON((1 1,3 0,2 2,1 1))", 4);
    check<bg::model::ring<Point1, false, false>, bg::model::ring<Point2, true, false>>(
        "POLYGON((1 1,3 0,2 2))", "POLYGON((1 1,2 2,3 0))", 3);
    check<bg::model::ring<Point1, false, false>, bg::model::ring<Point2, false, false>>(
        "POLYGON((1 1,3 0,2 2))", "POLYGON((1 1,3 0,2 2))", 3);

    // Polygon
    check<bg::model::polygon<Point1, true>, bg::model::polygon<Point2, false>>(
        "POLYGON((0 0,0 5,5 5,5 0,0 0),(1 1,3 2,2 4,1 1))",
        "POLYGON((0 0,5 0,5 5,0 5,0 0),(1 1,2 4,3 2,1 1))");

    check<bg::model::polygon<Point1>, bg::model::polygon<Point2, false, false>>(
        "POLYGON((0 0,0 5,5 5,5 0,0 0),(1 1,3 2,2 4,1 1))",
        "POLYGON((0 0,5 0,5 5,0 5,0 0),(1 1,2 4,3 2,1 1))",
        7); // WKT is closed, polygon is open
    // (polygon uses ring, so other tests omitted here)

    // Combinations:
    // ring <-> polygon
    check<bg::model::polygon<Point1>, bg::model::ring<Point2>>(
        "POLYGON((1 1,2 2,3 0,1 1))");

    check<bg::model::polygon<Point1, true>, bg::model::ring<Point2, false>>(
        "POLYGON((1 1,2 2,3 0,1 1))", "POLYGON((1 1,3 0,2 2,1 1))");

    // Any hole will be omitted going from polygon to ring
    check<bg::model::polygon<Point1>, bg::model::ring<Point2>>(
        "POLYGON((0 0,0 5,5 5,5 0,0 0),(1 1,3 2,2 4,1 1))",
        "POLYGON((0 0,0 5,5 5,5 0,0 0))",
        5);

    // point -> box
    check<Point1, bg::model::box<Point2>>(
        "POINT(0 0)", "POLYGON((0 0,0 0,0 0,0 0,0 0))", 4);

    // segment -> line
    check<bg::model::segment<Point1>, bg::model::linestring<Point2>>(
        "LINESTRING(0 0,1 1)", "LINESTRING(0 0,1 1)", 2);

    // box -> ring ( <- is NYI)
    check<bg::model::box<Point1>, bg::model::ring<Point2>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,0 2,2 2,2 0,0 0))", 5);

    check<bg::model::box<Point1>, bg::model::ring<Point2, false>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,2 0,2 2,0 2,0 0))", 5);

    check<bg::model::box<Point1>, bg::model::ring<Point2, true, false>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,0 2,2 2,2 0))", 4);

    check<bg::model::box<Point1>, bg::model::ring<Point2, false, false>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,2 0,2 2,0 2))", 4);

    // box -> polygon ( <- is NYI)
    check<bg::model::box<Point1>, bg::model::polygon<Point2>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,0 2,2 2,2 0,0 0))", 5);
    check<bg::model::box<Point1>, bg::model::polygon<Point2, false>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,2 0,2 2,0 2,0 0))", 5);
    check<bg::model::box<Point1>, bg::model::polygon<Point2, true, false>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,0 2,2 2,2 0,0 0))",
        4); // WKT is closed, polygon is open

    check<bg::model::box<Point1>, bg::model::polygon<Point2, false, false>>(
        "BOX(0 0,2 2)", "POLYGON((0 0,2 0,2 2,0 2,0 0))",
        4); // WKT is closed, polygon is open
}

template <typename Point1, typename Point2>
void test_mixed_point_types_3d()
{
    // Point
    check<Point1, Point2>("POINT(1 2 3)");

    check<bg::model::segment<Point1>, bg::model::segment<Point2>>(
        "LINESTRING(1 2 3,4 5 6)");

    // Linestring
    check<bg::model::linestring<Point1>, bg::model::linestring<Point2>>(
        "LINESTRING(1 2 3,4 5 6,7 8 9)");

    // segment -> line
    check<bg::model::segment<Point1>, bg::model::linestring<Point2>>(
        "LINESTRING(1 2 3,4 5 6)", "LINESTRING(1 2 3,4 5 6)", 2);
}



template <typename Point1, typename Point2>
void test_mixed_types()
{
    test_mixed_point_types<Point1, Point2>();
    test_mixed_point_types<Point2, Point1>();
}


template <typename Point1, typename Point2>
void test_mixed_types_3d()
{
    test_mixed_point_types_3d<Point1, Point2>();
    test_mixed_point_types_3d<Point2, Point1>();
}

void test_array()
{
    int a[2] = {1, 2};
    int b[2];
    bg::convert(a, b);
    BOOST_CHECK_EQUAL(b[0], 1);
    BOOST_CHECK_EQUAL(b[1], 2);
}

int test_main(int, char* [])
{
    test_mixed_types
        <
            bg::model::point<int, 2, bg::cs::cartesian>,
            bg::model::point<double, 2, bg::cs::cartesian>
        >();
    test_mixed_types
        <
            boost::tuple<float, float>,
            bg::model::point<float, 2, bg::cs::cartesian>
        >();
    test_mixed_types_3d
        <
            boost::tuple<double, double, double>,
            bg::model::point<double, 3, bg::cs::cartesian>
        >();

    test_array();
    return 0;
}