turtle/include/turtle/constraint.hpp

// http://turtle.sourceforge.net
//
// Copyright Mathieu Champlon 2008
//
// 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)

#ifndef MOCK_CONSTRAINT_HPP_INCLUDED
#define MOCK_CONSTRAINT_HPP_INCLUDED

#include "config.hpp"
#include "log.hpp"
#include <boost/ref.hpp>
#include <boost/preprocessor/stringize.hpp>
#include <boost/preprocessor/control/if.hpp>
#include <boost/preprocessor/variadic/to_array.hpp>
#include <boost/preprocessor/repetition/enum_binary_params.hpp>
#include <boost/preprocessor/repetition/enum_params.hpp>
#include <boost/preprocessor/repetition/enum.hpp>
#include <boost/preprocessor/array.hpp>

namespace mock
{
    template< typename Constraint >
    struct constraint
    {
        constraint()
        {}
        constraint( const Constraint& c )
            : c_( c )
        {}
        Constraint c_;
    };

namespace detail
{
    template< typename Lhs, typename Rhs >
    class and_
    {
    public:
        and_( const Lhs& lhs, const Rhs& rhs )
            : lhs_( lhs )
            , rhs_( rhs )
        {}
        template< typename Actual >
        bool operator()( const Actual& actual ) const
        {
            return lhs_( actual ) && rhs_( actual );
        }
        friend std::ostream& operator<<( std::ostream& s, const and_& a )
        {
            return s << "( " << mock::format( a.lhs_ )
                << " && " << mock::format( a.rhs_ ) << " )";
        }
    private:
        Lhs lhs_;
        Rhs rhs_;
    };

    template< typename Lhs, typename Rhs >
    class or_
    {
    public:
        or_( const Lhs& lhs, const Rhs& rhs )
            : lhs_( lhs )
            , rhs_( rhs )
        {}
        template< typename Actual >
        bool operator()( const Actual& actual ) const
        {
            return lhs_( actual ) || rhs_( actual );
        }
        friend std::ostream& operator<<( std::ostream& s, const or_& o )
        {
            return s << "( " << mock::format( o.lhs_ )
                << " || " << mock::format( o.rhs_ )<< " )";
        }
    private:
        Lhs lhs_;
        Rhs rhs_;
    };

    template< typename Constraint >
    class not_
    {
    public:
        explicit not_( const Constraint& c )
            : c_( c )
        {}
        template< typename Actual >
        bool operator()( const Actual& actual ) const
        {
            return ! c_( actual );
        }
        friend std::ostream& operator<<( std::ostream& s, const not_& n )
        {
            return s << "! " << mock::format( n.c_ );
        }
    private:
        Constraint c_;
    };
}

    template< typename Lhs, typename Rhs >
    const constraint< detail::or_< Lhs, Rhs > >
        operator||( const constraint< Lhs >& lhs,
                    const constraint< Rhs >& rhs )
    {
        return detail::or_< Lhs, Rhs >( lhs.c_, rhs.c_ );
    }

    template< typename Lhs, typename Rhs >
    const constraint< detail::and_< Lhs, Rhs > >
        operator&&( const constraint< Lhs >& lhs,
                    const constraint< Rhs >& rhs )
    {
        return detail::and_< Lhs, Rhs >( lhs.c_, rhs.c_ );
    }

    template< typename Constraint >
    const constraint< detail::not_< Constraint > >
        operator!( const constraint< Constraint >& c )
    {
        return detail::not_< Constraint >( c.c_ );
    }
} // mock

#define MOCK_UNARY_CONSTRAINT(Name, n, Args, Expr) \
    namespace detail \
    { \
        struct Name \
        { \
            template< typename Actual > \
            bool operator()( const Actual& actual ) const \
            { \
                return Expr; \
            } \
            friend std::ostream& operator<<( std::ostream& s, const Name& ) \
            { \
                return s << BOOST_STRINGIZE(Name); \
            } \
        }; \
    } \
    const mock::constraint< detail::Name > Name;

#define MOCK_CONSTRAINT_ASSIGN(z, n, d) \
    expected##n( e##n )

#define MOCK_CONSTRAINT_UNWRAP_REF(z, n, d) \
    boost::unwrap_ref( expected##n )

#define MOCK_CONSTRAINT_FORMAT(z, n, d) \
    BOOST_PP_IF(n, << ", " <<,) mock::format( c.expected##n )

#define MOCK_CONSTRAINT_MEMBER(z, n, d) \
    Expected_##n expected##n;

#define MOCK_CONSTRAINT_CREF_PARAM(z, n, Args) \
    typename \
        boost::unwrap_reference< Expected_##n >::type \
            BOOST_PP_ARRAY_ELEM(n, Args)

#define MOCK_CONSTRAINT_PARAM(z, n, Args) \
    T##n BOOST_PP_ARRAY_ELEM(n, Args)

#define MOCK_NARY_CONSTRAINT(Name, n, Args, Expr) \
    namespace detail \
    { \
        template< BOOST_PP_ENUM_PARAMS(n, typename Expected_) > \
        struct Name \
        { \
            explicit Name( \
                BOOST_PP_ENUM_BINARY_PARAMS(n, const Expected_, & e) ) \
                : BOOST_PP_ENUM(n, MOCK_CONSTRAINT_ASSIGN, _) \
            {} \
            template< typename Actual > \
            bool operator()( const Actual& actual ) const \
            { \
                return test( actual, \
                    BOOST_PP_ENUM(n, MOCK_CONSTRAINT_UNWRAP_REF, _) ); \
            } \
            template< typename Actual > \
            bool test( const Actual& actual, \
                BOOST_PP_ENUM(n, \
                    MOCK_CONSTRAINT_CREF_PARAM, (n, Args)) ) const \
            { \
                return Expr; \
            } \
            friend std::ostream& operator<<( std::ostream& s, const Name& c ) \
            { \
                return s << BOOST_STRINGIZE(Name) << "( " \
                    << BOOST_PP_REPEAT(n, MOCK_CONSTRAINT_FORMAT, _) \
                    << " )"; \
            } \
            BOOST_PP_REPEAT(n, MOCK_CONSTRAINT_MEMBER, _) \
        }; \
    } \
    template< BOOST_PP_ENUM_PARAMS(n, typename T) > \
    mock::constraint< \
        detail::Name< BOOST_PP_ENUM_PARAMS(n, T) > \
    > Name( BOOST_PP_ENUM(n, MOCK_CONSTRAINT_PARAM, (n, Args)) ) \
    { \
        return detail::Name< BOOST_PP_ENUM_PARAMS(n, T) > Args; \
    }

#define MOCK_CONSTRAINT_EXT(Name, n, Args, Expr) \
    BOOST_PP_IF(n, \
        MOCK_NARY_CONSTRAINT, \
        MOCK_UNARY_CONSTRAINT)(Name, n, Args, Expr)

#ifdef MOCK_VARIADIC_MACROS

#if BOOST_MSVC
#   define MOCK_VARIADIC_SIZE(...) \
        BOOST_PP_CAT(MOCK_VARIADIC_SIZE_I(__VA_ARGS__, \
            32, 31, 30, 29, 28, 27, 26, 25, 24, 23, \
            22, 21, 20, 19, 18, 17, 16, 15, 14, 13, \
            12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1,),)
#else // BOOST_MSVC
#   define MOCK_VARIADIC_SIZE(...) \
        MOCK_VARIADIC_SIZE_I(__VA_ARGS__, \
            32, 31, 30, 29, 28, 27, 26, 25, 24, 23, \
            22, 21, 20, 19, 18, 17, 16, 15, 14, 13, \
            12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1,)
#endif // BOOST_MSVC
#define MOCK_VARIADIC_SIZE_I( \
    e0, e1, e2, e3, e4, e5, e6, e7, e8, e9, e10, e11, e12, \
    e13, e14, e15, e16, e17, e18, e19, e20, e21, e22, e23, e24, \
    e25, e26, e27, e28, e29, e30, e31, size, ...) size

#define MOCK_CONSTRAINT_AUX_AUX(Name, n, Array) \
    MOCK_CONSTRAINT_EXT( \
        Name, n, \
        BOOST_PP_ARRAY_TO_TUPLE(BOOST_PP_ARRAY_POP_BACK(Array)), \
        BOOST_PP_ARRAY_ELEM(n, Array))

#define MOCK_CONSTRAINT_AUX(Name, Size, Tuple) \
    MOCK_CONSTRAINT_AUX_AUX(Name, BOOST_PP_DEC(Size), (Size,Tuple))

#define MOCK_CONSTRAINT(Name, ...) \
    MOCK_CONSTRAINT_AUX( \
        Name, MOCK_VARIADIC_SIZE(__VA_ARGS__), (__VA_ARGS__))

#endif // MOCK_VARIADIC_MACROS

#endif // MOCK_CONSTRAINT_HPP_INCLUDED