// Copyright 2006-2008 Daniel James.
// Distributed under 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)

#if !defined(BOOST_UNORDERED_TEST_TEST_HEADER)
#define BOOST_UNORDERED_TEST_TEST_HEADER

#if defined(BOOST_UNORDERED_FULL_TEST)

#include <boost/test/test_tools.hpp>
#define UNORDERED_AUTO_TEST(x) BOOST_AUTO_TEST_CASE(x)
#define RUN_TESTS()

#else

#include <boost/test/minimal.hpp>
#include <boost/preprocessor/cat.hpp>

#define UNORDERED_AUTO_TEST(x) \
    struct BOOST_PP_CAT(x, _type) : public ::test::registered_test_base { \
        BOOST_PP_CAT(x, _type)() { \
            ::test::test_list::add_test(this); \
        } \
        void run(); \
    }; \
    BOOST_PP_CAT(x, _type) x; \
    void BOOST_PP_CAT(x, _type)::run()
#define RUN_TESTS() int test_main(int, char**) { ::test::test_list::run_tests(); return 0; }

namespace test {
    struct registered_test_base {
        registered_test_base* next;
        virtual void run() = 0;
        virtual ~registered_test_base() {}
    };

    namespace test_list {
        static inline registered_test_base*& first() {
            static registered_test_base* ptr = 0;
            return ptr;
        }

        static inline registered_test_base*& last() {
            static registered_test_base* ptr = 0;
            return ptr;
        }

        static inline void add_test(registered_test_base* test) {
            if(last()) {
                last()->next = test;
            }
            else {
                first() = test;
            }

            last() = test;
        }

        static inline void run_tests() {
            for(registered_test_base* i = first(); i; i = i->next)
                i->run();
        }
    };
}

#endif

#include <boost/preprocessor/seq/for_each_product.hpp>
#include <boost/preprocessor/seq/fold_left.hpp>
#include <boost/preprocessor/seq/to_tuple.hpp>
#include <boost/preprocessor/seq/seq.hpp>
#include <boost/preprocessor/cat.hpp>

// Run test with every combination of the parameters (a sequence of sequences)
#define UNORDERED_TEST(name, parameters) \
    BOOST_PP_SEQ_FOR_EACH_PRODUCT(UNORDERED_TEST_OP, ((name)) parameters)

#define UNORDERED_TEST_OP(r, product) \
    UNORDERED_TEST_OP2( \
        BOOST_PP_SEQ_HEAD(product), \
        BOOST_PP_SEQ_TAIL(product))

#define UNORDERED_TEST_OP2(name, params) \
    UNORDERED_AUTO_TEST(BOOST_PP_SEQ_FOLD_LEFT(UNORDERED_TEST_OP_JOIN, name, params)) { \
        name BOOST_PP_SEQ_TO_TUPLE(params); \
    }

#define UNORDERED_TEST_OP_JOIN(s, state, elem) \
    BOOST_PP_CAT(state, BOOST_PP_CAT(_, elem))

#endif