1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
// Copyright Aleksey Gurtovoy 2000-2004
//
// 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$
// $Date$
// $Revision$
#include <boost/mpl/apply.hpp>
#include <boost/mpl/lambda.hpp>
#include <boost/mpl/plus.hpp>
#include <boost/mpl/int.hpp>
#include <boost/mpl/aux_/test.hpp>
template< typename T > struct std_vector
{
#if defined(BOOST_MPL_CFG_NO_IMPLICIT_METAFUNCTIONS)
typedef std_vector type;
BOOST_MPL_AUX_LAMBDA_SUPPORT(1, std_vector, (T))
#endif
};
MPL_TEST_CASE()
{
typedef plus<int_<2>,int_<3> > plus1;
typedef lambda<plus1>::type plus2;
MPL_ASSERT(( is_same< plus1,plus2 > ));
typedef lambda<std_vector<int> >::type v;
MPL_ASSERT(( is_same< v,std_vector<int> > ));
typedef lambda<std_vector<_1> >::type make_vector;
typedef apply_wrap1<make_vector,int>::type v_int;
MPL_ASSERT(( is_same< v_int,std_vector<int> > ));
}
MPL_TEST_CASE()
{
typedef plus<_1,_2> plus_fun;
typedef apply2<plus_fun,int_<2>,int_<3> >::type res;
MPL_ASSERT_RELATION( res::value, ==, 5 );
}
MPL_TEST_CASE()
{
typedef apply1<_1, plus<_1,_2> >::type plus_fun;
MPL_ASSERT(( is_same< plus_fun,plus<_1,_2> > ));
typedef apply2<plus_fun,int_<2>,int_<3> >::type res;
MPL_ASSERT_RELATION( res::value, ==, 5 );
}
MPL_TEST_CASE()
{
typedef lambda< lambda<_1> >::type make_lambda;
typedef apply_wrap1< make_lambda,std_vector<int> >::type v;
MPL_ASSERT(( is_same< v,std_vector<int> > ));
typedef apply_wrap1< make_lambda,std_vector<_1> >::type make_vector;
typedef apply_wrap1< make_vector,int >::type v_int;
MPL_ASSERT(( is_same< v_int,std_vector<int> > ));
}
MPL_TEST_CASE()
{
typedef apply1< _1, std_vector<int> >::type v;
MPL_ASSERT(( is_same< v,std_vector<int> > ));
typedef apply1< _1, std_vector<_1> >::type v_lambda;
typedef apply1<v_lambda,int>::type v_int;
MPL_ASSERT(( is_same< v_int,std_vector<int> > ));
}
MPL_TEST_CASE()
{
typedef apply1< lambda<_1>, std_vector<int> >::type v;
MPL_ASSERT(( is_same< v,std_vector<int> > ));
typedef apply1< lambda<_1>, std_vector<_1> >::type make_vector;
typedef apply_wrap1< make_vector,int >::type v_int;
MPL_ASSERT(( is_same< v_int,std_vector<int> > ));
}
MPL_TEST_CASE()
{
typedef apply1< lambda<_1>, plus<_1,_2> >::type plus_fun;
typedef apply_wrap2< plus_fun,int_<2>,int_<3> >::type res;
MPL_ASSERT_RELATION( res::value, ==, 5 );
}
MPL_TEST_CASE()
{
typedef bind2<plus<>,_1,_1> b1;
typedef lambda<b1>::type b2;
MPL_ASSERT(( is_same< b1,b2 > ));
}
MPL_TEST_CASE()
{
#if !BOOST_WORKAROUND(__MWERKS__, BOOST_TESTED_AT(0x3003))
typedef lambda< lambda< bind2<plus<>,_1,_1> > >::type make_lambda;
typedef apply_wrap1< make_lambda::type, int_<5> >::type res;
MPL_ASSERT_RELATION( res::value, ==, 10 );
#endif
}
MPL_TEST_CASE()
{
typedef apply1< bind2<plus<>,_1,_1>, int_<5> >::type res;
MPL_ASSERT_RELATION( res::value, ==, 10 );
}
MPL_TEST_CASE()
{
typedef apply1<_1, lambda<plus<_1,_2> > >::type plus_fun;
typedef apply_wrap2< plus_fun::type, int_<2>,int_<3> >::type res;
MPL_ASSERT_RELATION( res::value, ==, 5 );
}
|
