// Copyright 2021 Peter Dimov.
// Distributed under the Boost Software License, Version 1.0.
// https://www.boost.org/LICENSE_1_0.txt

#define _SILENCE_NONFLOATING_COMPLEX_DEPRECATION_WARNING

#include <boost/config/pragma_message.hpp>

#if defined(__GNUC__) && !defined(__clang__) && __cplusplus < 201100L

BOOST_PRAGMA_MESSAGE("Skipping test under GCC in C++98 mode")
int main() {}

#else

#if defined(__clang__)
# pragma clang diagnostic ignored "-Wlong-long"
#endif

#if defined(__GNUC__)
# pragma GCC diagnostic ignored "-Wsign-conversion"
#endif

#if defined(_MSC_VER)
# pragma warning(disable: 4127) // conditional expression is constant
#endif

#include <boost/container_hash/hash.hpp>
#include <boost/core/lightweight_test.hpp>
#include <string>
#include <vector>
#include <list>
#include <utility>
#include <complex>
#include <limits>
#include <climits>
#include <cfloat>
#include <cstddef>

// This test checks whether hash values have changed

template<class T> std::size_t hv( T const& t )
{
    return boost::hash<T>()( t );
}

int main()
{
    // char
    BOOST_TEST_EQ( hv('\x00'), 0 );
    BOOST_TEST_EQ( hv('A'), 'A' );
    BOOST_TEST_EQ( hv('\x7F'), 0x7F );

    // signed char
    BOOST_TEST_EQ( hv((signed char)0), 0 );
    BOOST_TEST_EQ( hv((signed char)+1), +1 );
    BOOST_TEST_EQ( hv((signed char)-1), (std::size_t)-1 );
    BOOST_TEST_EQ( hv((signed char)+127), 127 );
    BOOST_TEST_EQ( hv((signed char)-128), (std::size_t)-128 );

    // unsigned char
    BOOST_TEST_EQ( hv((unsigned char)0), 0 );
    BOOST_TEST_EQ( hv((unsigned char)1), 1 );
    BOOST_TEST_EQ( hv((unsigned char)255), 255 );

    // short
    BOOST_TEST_EQ( hv((short)0), 0 );
    BOOST_TEST_EQ( hv((short)+1), 1 );
    BOOST_TEST_EQ( hv((short)-1), (std::size_t)-1 );
    BOOST_TEST_EQ( hv((short)+32767), 32767 );
    BOOST_TEST_EQ( hv((short)-32768), (std::size_t)-32768 );

    // unsigned short
    BOOST_TEST_EQ( hv((unsigned short)0), 0 );
    BOOST_TEST_EQ( hv((unsigned short)1), 1 );
    BOOST_TEST_EQ( hv((unsigned short)65535), 65535 );

    // int
    BOOST_TEST_EQ( hv(0), 0 );
    BOOST_TEST_EQ( hv(+1), 1 );
    BOOST_TEST_EQ( hv(-1), (std::size_t)-1 );
    BOOST_TEST_EQ( hv(+32767), 32767 );
    BOOST_TEST_EQ( hv(-32768), (std::size_t)-32768 );

    // unsigned int
    BOOST_TEST_EQ( hv((unsigned)0), 0 );
    BOOST_TEST_EQ( hv((unsigned)1), 1 );
    BOOST_TEST_EQ( hv((unsigned)65535), 65535 );
    BOOST_TEST_EQ( hv((unsigned)-1), (std::size_t)(unsigned)-1 );

    // long
    BOOST_TEST_EQ( hv(0L), 0 );
    BOOST_TEST_EQ( hv(+1L), 1 );
    BOOST_TEST_EQ( hv(-1L), (std::size_t)-1 );
    BOOST_TEST_EQ( hv(+32767L), 32767 );
    BOOST_TEST_EQ( hv(-32768L), (std::size_t)-32768 );

    // unsigned long
    BOOST_TEST_EQ( hv(0UL), 0 );
    BOOST_TEST_EQ( hv(1UL), 1 );
    BOOST_TEST_EQ( hv(65535UL), 65535 );
    BOOST_TEST_EQ( hv((unsigned long)-1), (std::size_t)(unsigned long)-1 );

    // long long
    BOOST_TEST_EQ( hv(0LL), 0 );
    BOOST_TEST_EQ( hv(+1LL), 1 );
    BOOST_TEST_EQ( hv(-1LL), (std::size_t)-1 );
    BOOST_TEST_EQ( hv(+32767LL), 32767 );
    BOOST_TEST_EQ( hv(-32768LL), (std::size_t)-32768 );

    // unsigned long long
    BOOST_TEST_EQ( hv(0ULL), 0 );
    BOOST_TEST_EQ( hv(1ULL), 1 );
    BOOST_TEST_EQ( hv(65535ULL), 65535 );
#if SIZE_MAX == 4294967295U
    BOOST_TEST_EQ( hv((unsigned long long)-1), 2578835074U );
#else
    BOOST_TEST_EQ( hv((unsigned long long)-1), (std::size_t)-1 );
#endif

#if defined(BOOST_HAS_INT128)

    typedef boost::int128_type int128;

    BOOST_TEST_EQ( hv((int128)0), 0 );
    BOOST_TEST_EQ( hv((int128)1), 1 );
    BOOST_TEST_EQ( hv((int128)-1), (std::size_t)-1 );
    BOOST_TEST_EQ( hv((int128)+32767), 32767 );
    BOOST_TEST_EQ( hv((int128)-32768), (std::size_t)-32768 );

    typedef boost::uint128_type uint128;

    BOOST_TEST_EQ( hv((uint128)0), 0 );
    BOOST_TEST_EQ( hv((uint128)1), 1 );
    BOOST_TEST_EQ( hv((uint128)65535), 65535 );

#if defined(BOOST_GCC) && BOOST_GCC < 100000

    // This looks like some sort of miscompilation.
    // Under CI, both GHA and Appveyor GCCs produce this value.
    // But the exact same test on godbolt.org produces the correct
    // value, below.

    // BOOST_TEST_EQ( hv((uint128)-1), 18446744073709551615ULL );

#else

    BOOST_TEST_EQ( hv((uint128)-1), 10400452472442790415ULL );

#endif

#endif

    // float
    BOOST_TEST_EQ( hv(0.0f), 0 );
    BOOST_TEST_EQ( hv(-0.0f), 0 );
    BOOST_TEST_EQ( hv(1.0f), 1065353216U );
    BOOST_TEST_EQ( hv(-1.0f), 3212836864U );
    BOOST_TEST_EQ( hv(3.14f), 1078523331U );
    BOOST_TEST_EQ( hv(-3.14f), 3226006979U );
    BOOST_TEST_EQ( hv(1e-38f), 7136238U );
    BOOST_TEST_EQ( hv(-1e-38f), 2154619886U );
    BOOST_TEST_EQ( hv(1e+38f), 2123789977U );
    BOOST_TEST_EQ( hv(-1e+38f), 4271273625U );
    BOOST_TEST_EQ( hv(std::numeric_limits<float>::infinity()), 2139095040U );
    BOOST_TEST_EQ( hv(-std::numeric_limits<float>::infinity()), 4286578688U );

    // double
    BOOST_TEST_EQ( hv(0.0), 0 );
    BOOST_TEST_EQ( hv(-0.0), 0 );

#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(1.0), 1072693248U );
    BOOST_TEST_EQ( hv(-1.0), 3220176896U );
    BOOST_TEST_EQ( hv(3.14), 3972386992U );
    BOOST_TEST_EQ( hv(-3.14), 1824903344U );
    BOOST_TEST_EQ( hv(1e-308), 2213556530U );
    BOOST_TEST_EQ( hv(-1e-308), 66072882U );
    BOOST_TEST_EQ( hv(1e+308), 2623678890U );
    BOOST_TEST_EQ( hv(-1e+308), 476195242U );
    BOOST_TEST_EQ( hv(std::numeric_limits<double>::infinity()), 2146435072U );
    BOOST_TEST_EQ( hv(-std::numeric_limits<double>::infinity()), 4293918720U );

#else

    BOOST_TEST_EQ( hv(1.0), 4607182418800017408ULL );
    BOOST_TEST_EQ( hv(-1.0), 13830554455654793216ULL );
    BOOST_TEST_EQ( hv(3.14), 4614253070214989087ULL );
    BOOST_TEST_EQ( hv(-3.14), 13837625107069764895ULL );
    BOOST_TEST_EQ( hv(1e-308), 2024022533073106ULL );
    BOOST_TEST_EQ( hv(-1e-308), 9225396059387848914ULL );
    BOOST_TEST_EQ( hv(1e+308), 9214871658872686752ULL );
    BOOST_TEST_EQ( hv(-1e+308), 18438243695727462560ULL );
    BOOST_TEST_EQ( hv(std::numeric_limits<double>::infinity()), 9218868437227405312ULL );
    BOOST_TEST_EQ( hv(-std::numeric_limits<double>::infinity()), 18442240474082181120ULL );

#endif

    // long double
    BOOST_TEST_EQ( hv(0.0L), 0 );
    BOOST_TEST_EQ( hv(-0.0L), 0 );

    std::size_t const ldbits = sizeof( long double ) * CHAR_BIT;

#if SIZE_MAX == 4294967295U

    if( ldbits == 64 )
    {
        BOOST_TEST_EQ( hv(1.0L), 1072693248U );
        BOOST_TEST_EQ( hv(-1.0L), 3220176896U );
        BOOST_TEST_EQ( hv(3.14L), 3972386992U );
        BOOST_TEST_EQ( hv(-3.14L), 1824903344U );
        BOOST_TEST_EQ( hv(std::numeric_limits<long double>::infinity()), 2146435072U );
        BOOST_TEST_EQ( hv(-std::numeric_limits<long double>::infinity()), 4293918720U );
    }
    else
    {
        BOOST_TEST_EQ( hv(1.0L), 3770520689U );
        BOOST_TEST_EQ( hv(-1.0L), 3770553457U );
        BOOST_TEST_EQ( hv(3.14L), 1150018772U );
        BOOST_TEST_EQ( hv(-3.14L), 1150051540U );
        BOOST_TEST_EQ( hv(std::numeric_limits<long double>::infinity()), 3770537073U );
        BOOST_TEST_EQ( hv(-std::numeric_limits<long double>::infinity()), 3770569841U );
    }

#else

    if( ldbits == 64 )
    {
        BOOST_TEST_EQ( hv(1.0L), 4607182418800017408ULL );
        BOOST_TEST_EQ( hv(-1.0L), 13830554455654793216ULL );
        BOOST_TEST_EQ( hv(3.14L), 4614253070214989087ULL );
        BOOST_TEST_EQ( hv(-3.14L), 13837625107069764895ULL );
        BOOST_TEST_EQ( hv(std::numeric_limits<long double>::infinity()), 9218868437227405312ULL );
        BOOST_TEST_EQ( hv(-std::numeric_limits<long double>::infinity()), 18442240474082181120ULL );
    }
    else if( ldbits == 128 && std::numeric_limits<long double>::digits == 64 )
    {
        BOOST_TEST_EQ( hv(1.0L), 18308860000934227808ULL );
        BOOST_TEST_EQ( hv(-1.0L), 18308860000934260576ULL );
        BOOST_TEST_EQ( hv(3.14L), 13482288377848558187ULL );
        BOOST_TEST_EQ( hv(-3.14L), 13482288377848590955ULL );
        BOOST_TEST_EQ( hv(std::numeric_limits<long double>::infinity()), 18308860000934244192ULL );
        BOOST_TEST_EQ( hv(-std::numeric_limits<long double>::infinity()), 18308860000934276960ULL );
    }
    else
    {
        // ldbits == 128  && std::numeric_limits<long double>::digits == 113
        // under ARM64 and S390x, but the values differ presumably because of
        // __FLOAT_WORD_ORDER__

        BOOST_TEST_EQ( hv(1.0L), 4611404543450677248ULL );
        BOOST_TEST_EQ( hv(-1.0L), 13834776580305453056ULL );
        BOOST_TEST_EQ( hv(3.14L), 5967435363179612952ULL );
        BOOST_TEST_EQ( hv(-3.14L), 15190807400034388760ULL );
        BOOST_TEST_EQ( hv(std::numeric_limits<long double>::infinity()), 9223090561878065152ULL );
        BOOST_TEST_EQ( hv(-std::numeric_limits<long double>::infinity()), 18446462598732840960ULL );
    }

#endif

    // C array
    {
        int a1[] = { 0 };
        int a2[] = { 0, 0 };
        int a3[] = { 0, 0, 0 };

#if SIZE_MAX == 4294967295U

        BOOST_TEST_EQ( hv(a1), 1684164658U );
        BOOST_TEST_EQ( hv(a2), 3385628684U );
        BOOST_TEST_EQ( hv(a3), 354805152U );

#else

        BOOST_TEST_EQ( hv(a1), 11915877628236072130ULL );
        BOOST_TEST_EQ( hv(a2), 17303869719317669699ULL );
        BOOST_TEST_EQ( hv(a3), 14973878137098559850ULL );

#endif
    }

    // string
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::string()), 1580013426U );
    BOOST_TEST_EQ( hv(std::string("abc")), 469308065U );
    BOOST_TEST_EQ( hv(std::string("\0", 1)), 165258820U );
    BOOST_TEST_EQ( hv(std::string("\0\0", 2)), 4017288109U );
    BOOST_TEST_EQ( hv(std::string("\0\0\0", 3)), 1352445396U );

#else

    BOOST_TEST_EQ( hv(std::string()), 2220755840493918647ULL );
    BOOST_TEST_EQ( hv(std::string("abc")), 7565583854499162206ULL );
    BOOST_TEST_EQ( hv(std::string("\0", 1)), 1241131678047372712ULL );
    BOOST_TEST_EQ( hv(std::string("\0\0", 2)), 152341731040131640ULL );
    BOOST_TEST_EQ( hv(std::string("\0\0\0", 3)), 12957252994983528908ULL );

#endif

    // pointer
    BOOST_TEST_EQ( hv((void*)0), 0 );
    BOOST_TEST_EQ( hv((void*)0x200014A0), 603985716U );

    // complex<int>
    BOOST_TEST_EQ( hv(std::complex<int>(0, 0)), 0U );
    BOOST_TEST_EQ( hv(std::complex<int>(+1, 0)), 1U );

#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::complex<int>(0, +1)), 2261973619U );
    BOOST_TEST_EQ( hv(std::complex<int>(-1, 0)), 4294967295U );
    BOOST_TEST_EQ( hv(std::complex<int>(0, -1)), 2578835075U );

#else

    BOOST_TEST_EQ( hv(std::complex<int>(0, +1)), 4326460912318144697U );
    BOOST_TEST_EQ( hv(std::complex<int>(-1, 0)), 18446744073709551615ULL );
    BOOST_TEST_EQ( hv(std::complex<int>(0, -1)), 10400452472442790416ULL );

#endif

    // complex<float>
    BOOST_TEST_EQ( hv(std::complex<float>(0.0f, 0.0f)), 0U );
    BOOST_TEST_EQ( hv(std::complex<float>(+1.0f, 0.0f)), 1065353216U );
    BOOST_TEST_EQ( hv(std::complex<float>(-1.0f, 0.0f)), 3212836864U );

#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::complex<float>(0.0f, +1.0f)), 1867597054U );
    BOOST_TEST_EQ( hv(std::complex<float>(0.0f, -1.0f)), 1969397420U );

#else

    BOOST_TEST_EQ( hv(std::complex<float>(0.0f, +1.0f)), 15274800114361806457ULL );
    BOOST_TEST_EQ( hv(std::complex<float>(0.0f, -1.0f)), 4238815378092176215ULL );

#endif

    // complex<double>
    BOOST_TEST_EQ( hv(std::complex<double>(0.0, 0.0)), 0U );

#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::complex<double>(+1.0, 0.0)), 1072693248U );
    BOOST_TEST_EQ( hv(std::complex<double>(-1.0, 0.0)), 3220176896U );
    BOOST_TEST_EQ( hv(std::complex<double>(0.0, +1.0)), 2619008688U );
    BOOST_TEST_EQ( hv(std::complex<double>(0.0, -1.0)), 146497060U );

#else

    BOOST_TEST_EQ( hv(std::complex<double>(+1.0, 0.0)), 4607182418800017408ULL );
    BOOST_TEST_EQ( hv(std::complex<double>(-1.0, 0.0)), 13830554455654793216ULL );
    BOOST_TEST_EQ( hv(std::complex<double>(0.0, +1.0)), 837908647691372762ULL );
    BOOST_TEST_EQ( hv(std::complex<double>(0.0, -1.0)), 3605795203555706515ULL );

#endif

    // pair
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::make_pair(0, 0)), 3385628684U );
    BOOST_TEST_EQ( hv(std::make_pair(1, 2)), 1013020961U );
    BOOST_TEST_EQ( hv(std::make_pair(-1, -2)), 1207763712U );

#else

    BOOST_TEST_EQ( hv(std::make_pair(0, 0)), 17303869719317669699ULL );
    BOOST_TEST_EQ( hv(std::make_pair(1, 2)), 3509426265802930590ULL );
    BOOST_TEST_EQ( hv(std::make_pair(-1, -2)), 9712138927275741808ULL );

#endif

    // vector<char>
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::vector<char>(0)), 1580013426U );
    BOOST_TEST_EQ( hv(std::vector<char>(1)), 165258820U );
    BOOST_TEST_EQ( hv(std::vector<char>(2)), 4017288109U );
    BOOST_TEST_EQ( hv(std::vector<char>(3)), 1352445396U );

#else

    BOOST_TEST_EQ( hv(std::vector<char>(0)), 2220755840493918647ULL );
    BOOST_TEST_EQ( hv(std::vector<char>(1)), 1241131678047372712ULL );
    BOOST_TEST_EQ( hv(std::vector<char>(2)), 152341731040131640ULL );
    BOOST_TEST_EQ( hv(std::vector<char>(3)), 12957252994983528908ULL );

#endif

    // vector<int>
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::vector<int>(0)), 0 );
    BOOST_TEST_EQ( hv(std::vector<int>(1)), 1684164658U );
    BOOST_TEST_EQ( hv(std::vector<int>(2)), 3385628684U );
    BOOST_TEST_EQ( hv(std::vector<int>(3)), 354805152U );

#else

    BOOST_TEST_EQ( hv(std::vector<int>(0)), 0 );
    BOOST_TEST_EQ( hv(std::vector<int>(1)), 11915877628236072130ULL );
    BOOST_TEST_EQ( hv(std::vector<int>(2)), 17303869719317669699ULL );
    BOOST_TEST_EQ( hv(std::vector<int>(3)), 14973878137098559850ULL );

#endif

    // vector<vector<int>>
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(0)), 0 );
    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(1)), 1684164658U );
    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(2)), 3385628684U );
    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(3)), 354805152U );

#else

    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(0)), 0 );
    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(1)), 11915877628236072130ULL );
    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(2)), 17303869719317669699ULL );
    BOOST_TEST_EQ( hv(std::vector<std::vector<int> >(3)), 14973878137098559850ULL );

#endif

    // list<char>
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::list<char>(0)), 1580013426U );
    BOOST_TEST_EQ( hv(std::list<char>(1)), 165258820U );
    BOOST_TEST_EQ( hv(std::list<char>(2)), 4017288109U );
    BOOST_TEST_EQ( hv(std::list<char>(3)), 1352445396U );

#else

    BOOST_TEST_EQ( hv(std::list<char>(0)), 2220755840493918647ULL );
    BOOST_TEST_EQ( hv(std::list<char>(1)), 1241131678047372712ULL );
    BOOST_TEST_EQ( hv(std::list<char>(2)), 152341731040131640ULL );
    BOOST_TEST_EQ( hv(std::list<char>(3)), 12957252994983528908ULL );

#endif

    // list<int>
#if SIZE_MAX == 4294967295U

    BOOST_TEST_EQ( hv(std::list<int>(0)), 0 );
    BOOST_TEST_EQ( hv(std::list<int>(1)), 1684164658U );
    BOOST_TEST_EQ( hv(std::list<int>(2)), 3385628684U );
    BOOST_TEST_EQ( hv(std::list<int>(3)), 354805152U );

#else

    BOOST_TEST_EQ( hv(std::list<int>(0)), 0 );
    BOOST_TEST_EQ( hv(std::list<int>(1)), 11915877628236072130ULL );
    BOOST_TEST_EQ( hv(std::list<int>(2)), 17303869719317669699ULL );
    BOOST_TEST_EQ( hv(std::list<int>(3)), 14973878137098559850ULL );

#endif

    return boost::report_errors();
}

#endif