| |
| // Copyright Aleksey Gurtovoy 2001-2006 |
| // |
| // 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) |
| // |
| // See http://www.boost.org/libs/mpl for documentation. |
| |
| // $Id: integral_wrapper_test.hpp 49268 2008-10-11 06:26:17Z agurtovoy $ |
| // $Date: 2008-10-11 02:26:17 -0400 (Sat, 11 Oct 2008) $ |
| // $Revision: 49268 $ |
| |
| #include <boost/mpl/next_prior.hpp> |
| #include <boost/mpl/aux_/test.hpp> |
| #include <boost/mpl/aux_/config/workaround.hpp> |
| |
| #include <cassert> |
| |
| #if !BOOST_WORKAROUND(__BORLANDC__, < 0x600) |
| # define INTEGRAL_WRAPPER_RUNTIME_TEST(i, T) \ |
| BOOST_TEST(( WRAPPER(T,i)() == i )); \ |
| BOOST_TEST(( WRAPPER(T,i)::value == i )); \ |
| /**/ |
| #else |
| # define INTEGRAL_WRAPPER_RUNTIME_TEST(i, T) \ |
| BOOST_TEST(( WRAPPER(T,i)::value == i )); \ |
| /**/ |
| #endif |
| |
| #if BOOST_WORKAROUND(__BORLANDC__, BOOST_TESTED_AT(0x582)) |
| // agurt 20/nov/06: see http://article.gmane.org/gmane.comp.lib.boost.devel/151065 |
| #define INTEGRAL_WRAPPER_TEST(unused1, i, T) \ |
| { \ |
| typedef WRAPPER(T,i) borland_tested_type; \ |
| { typedef is_same< borland_tested_type::value_type, T > borland_test_type; \ |
| MPL_ASSERT(( borland_test_type )); } \ |
| { MPL_ASSERT(( is_same< borland_tested_type::type, WRAPPER(T,i) > )); } \ |
| { MPL_ASSERT(( is_same< next< borland_tested_type >::type, WRAPPER(T,i+1) > )); } \ |
| { MPL_ASSERT(( is_same< prior< borland_tested_type >::type, WRAPPER(T,i-1) > )); } \ |
| { MPL_ASSERT_RELATION( (borland_tested_type::value), ==, i ); } \ |
| INTEGRAL_WRAPPER_RUNTIME_TEST(i, T) \ |
| } \ |
| /**/ |
| #else |
| #define INTEGRAL_WRAPPER_TEST(unused1, i, T) \ |
| { MPL_ASSERT(( is_same< WRAPPER(T,i)::value_type, T > )); } \ |
| { MPL_ASSERT(( is_same< WRAPPER(T,i)::type, WRAPPER(T,i) > )); } \ |
| { MPL_ASSERT(( is_same< next< WRAPPER(T,i) >::type, WRAPPER(T,i+1) > )); } \ |
| { MPL_ASSERT(( is_same< prior< WRAPPER(T,i) >::type, WRAPPER(T,i-1) > )); } \ |
| { MPL_ASSERT_RELATION( (WRAPPER(T,i)::value), ==, i ); } \ |
| INTEGRAL_WRAPPER_RUNTIME_TEST(i, T) \ |
| /**/ |
| #endif |
| |