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
|
// Copyright Louis Dionne 2013-2017
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
#include <boost/hana/assert.hpp>
#include <boost/hana/concept/logical.hpp>
#include <boost/hana/equal.hpp>
#include <boost/hana/eval_if.hpp>
#include <boost/hana/functional/always.hpp>
#include <boost/hana/not.hpp>
#include <boost/hana/tuple.hpp>
#include <boost/hana/while.hpp>
#include <laws/logical.hpp>
#include <vector>
namespace hana = boost::hana;
int main() {
hana::test::TestLogical<bool>{hana::make_tuple(true, false)};
// eval_if
{
BOOST_HANA_CONSTEXPR_CHECK(hana::equal(
hana::eval_if(true, hana::always(1), hana::always(2)),
1
));
BOOST_HANA_CONSTEXPR_CHECK(hana::equal(
hana::eval_if(false, hana::always(1), hana::always(2)),
2
));
}
// not_
{
BOOST_HANA_CONSTEXPR_CHECK(hana::equal(hana::not_(true), false));
BOOST_HANA_CONSTEXPR_CHECK(hana::equal(hana::not_(false), true));
}
// while_
{
auto less_than = [](auto n) {
return [n](auto v) { return v.size() < n; };
};
auto f = [](auto v) {
v.push_back(v.size());
return v;
};
BOOST_HANA_RUNTIME_CHECK(hana::equal(
hana::while_(less_than(0u), std::vector<int>{}, f),
std::vector<int>{}
));
BOOST_HANA_RUNTIME_CHECK(hana::equal(
hana::while_(less_than(1u), std::vector<int>{}, f),
std::vector<int>{0}
));
BOOST_HANA_RUNTIME_CHECK(hana::equal(
hana::while_(less_than(2u), std::vector<int>{}, f),
std::vector<int>{0, 1}
));
BOOST_HANA_RUNTIME_CHECK(hana::equal(
hana::while_(less_than(3u), std::vector<int>{}, f),
std::vector<int>{0, 1, 2}
));
BOOST_HANA_RUNTIME_CHECK(hana::equal(
hana::while_(less_than(4u), std::vector<int>{}, f),
std::vector<int>{0, 1, 2, 3}
));
// Make sure it can be called with an lvalue state:
std::vector<int> v{};
BOOST_HANA_RUNTIME_CHECK(hana::equal(
hana::while_(less_than(4u), v, f),
std::vector<int>{0, 1, 2, 3}
));
}
}
|
