123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616 |
- // 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)
- #ifndef BOOST_HANA_TEST_LAWS_MONAD_PLUS_HPP
- #define BOOST_HANA_TEST_LAWS_MONAD_PLUS_HPP
- #include <boost/hana/append.hpp>
- #include <boost/hana/assert.hpp>
- #include <boost/hana/bool.hpp>
- #include <boost/hana/chain.hpp>
- #include <boost/hana/concat.hpp>
- #include <boost/hana/concept/comparable.hpp>
- #include <boost/hana/concept/monad_plus.hpp>
- #include <boost/hana/concept/sequence.hpp>
- #include <boost/hana/core/make.hpp>
- #include <boost/hana/core/when.hpp>
- #include <boost/hana/cycle.hpp>
- #include <boost/hana/empty.hpp>
- #include <boost/hana/equal.hpp>
- #include <boost/hana/filter.hpp>
- #include <boost/hana/for_each.hpp>
- #include <boost/hana/functional/capture.hpp>
- #include <boost/hana/functional/compose.hpp>
- #include <boost/hana/integral_constant.hpp>
- #include <boost/hana/lift.hpp>
- #include <boost/hana/not.hpp>
- #include <boost/hana/not_equal.hpp>
- #include <boost/hana/prefix.hpp>
- #include <boost/hana/prepend.hpp>
- #include <boost/hana/remove.hpp>
- #include <boost/hana/remove_if.hpp>
- #include <boost/hana/replicate.hpp>
- #include <boost/hana/suffix.hpp>
- #include <laws/base.hpp>
- namespace boost { namespace hana { namespace test {
- template <typename M, typename = when<true>>
- struct TestMonadPlus : TestMonadPlus<M, laws> {
- using TestMonadPlus<M, laws>::TestMonadPlus;
- };
- template <typename M>
- struct TestMonadPlus<M, laws> {
- template <typename Xs, typename Predicates, typename Values>
- TestMonadPlus(Xs xs, Predicates predicates, Values values) {
- #ifdef BOOST_HANA_WORKAROUND_MSVC_DECLTYPEAUTO_RETURNTYPE_662735
- empty<M>(); // force adding empty<M>'s member function to pending temploid list
- #endif
- hana::for_each(xs, [](auto a) {
- static_assert(MonadPlus<decltype(a)>{}, "");
- // left identity
- BOOST_HANA_CHECK(hana::equal(
- hana::concat(hana::empty<M>(), a),
- a
- ));
- // right identity
- BOOST_HANA_CHECK(hana::equal(
- hana::concat(a, hana::empty<M>()),
- a
- ));
- // absorption
- auto f = hana::compose(lift<M>, test::_injection<0>{});
- BOOST_HANA_CHECK(hana::equal(
- hana::chain(hana::empty<M>(), f),
- hana::empty<M>()
- ));
- BOOST_HANA_CHECK(hana::equal(
- hana::chain(a, hana::always(hana::empty<M>())),
- hana::empty<M>()
- ));
- });
- // associativity
- foreach3(xs, [](auto a, auto b, auto c) {
- BOOST_HANA_CHECK(hana::equal(
- hana::concat(a, hana::concat(b, c)),
- hana::concat(hana::concat(a, b), c)
- ));
- });
- // Default method definitions
- hana::for_each(xs, hana::capture(predicates, values)(
- [](auto predicates, auto values, auto x) {
- // remove_if(x, pred) == filter(x, negated pred)
- hana::for_each(predicates, hana::capture(x)([](auto x, auto pred) {
- BOOST_HANA_CHECK(hana::equal(
- hana::remove_if(x, pred),
- hana::filter(x, hana::compose(hana::not_, pred))
- ));
- }));
- // remove(x, value) == remove_if(x, equal.to(value))
- hana::for_each(values, hana::capture(x)([](auto x, auto value) {
- BOOST_HANA_CHECK(hana::equal(
- hana::remove(x, value),
- hana::remove_if(x, hana::equal.to(value))
- ));
- }));
- }));
- }
- };
- template <typename S>
- struct TestMonadPlus<S, when<Sequence<S>::value>>
- : TestMonadPlus<S, laws>
- {
- template <int i>
- using eq = test::ct_eq<i>;
- struct undefined { };
- template <typename Xs, typename Predicates, typename Values>
- TestMonadPlus(Xs xs, Predicates predicates, Values values)
- : TestMonadPlus<S, laws>{xs, predicates, values}
- {
- auto z = eq<999>{};
- constexpr auto list = make<S>;
- //////////////////////////////////////////////////////////////////
- // empty
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::empty<S>(), list()
- ));
- //////////////////////////////////////////////////////////////////
- // concat
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(), list()),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(), list(eq<0>{})),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(), list(eq<0>{}, eq<1>{})),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(eq<0>{}), list()),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(eq<0>{}), list(eq<1>{})),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(eq<0>{}), list(eq<1>{}, eq<2>{})),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(eq<0>{}, eq<1>{}), list()),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(eq<0>{}, eq<1>{}), list(eq<2>{})),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(eq<0>{}, eq<1>{}), list(eq<2>{}, eq<3>{})),
- list(eq<0>{}, eq<1>{}, eq<2>{}, eq<3>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- concat(list(), list()),
- list()
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- concat(list(1), list()),
- list(1)
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- concat(list(), list(1)),
- list(1)
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- concat(list(1), list('2')),
- list(1, '2')
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- concat(list(1, '2'), list(3.3)),
- list(1, '2', 3.3)
- ));
- //////////////////////////////////////////////////////////////////
- // filter
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(), undefined{}),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(z), not_equal.to(z)),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}), not_equal.to(z)),
- list(eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}, eq<2>{}), not_equal.to(z)),
- list(eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(z, eq<2>{}), not_equal.to(z)),
- list(eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}, z), not_equal.to(z)),
- list(eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(z, eq<2>{}, eq<3>{}), not_equal.to(z)),
- list(eq<2>{}, eq<3>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}, z, eq<3>{}), not_equal.to(z)),
- list(eq<1>{}, eq<3>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}, eq<2>{}, z), not_equal.to(z)),
- list(eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}, z, z), not_equal.to(z)),
- list(eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(z, eq<2>{}, z), not_equal.to(z)),
- list(eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(z, z, eq<3>{}), not_equal.to(z)),
- list(eq<3>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- filter(list(eq<1>{}, eq<2>{}, eq<3>{}, eq<4>{}, z), not_equal.to(z)),
- list(eq<1>{}, eq<2>{}, eq<3>{}, eq<4>{})
- ));
- //////////////////////////////////////////////////////////////////
- // prepend
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- prepend(list(), eq<0>{}),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prepend(list(eq<1>{}), eq<0>{}),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prepend(list(eq<1>{}, eq<2>{}), eq<0>{}),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prepend(list(eq<1>{}, eq<2>{}, eq<3>{}), eq<0>{}),
- list(eq<0>{}, eq<1>{}, eq<2>{}, eq<3>{})
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- prepend(list(), 1),
- list(1)
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- prepend(list('2'), 1),
- list(1, '2')
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- prepend(list('2', 3.3), 1),
- list(1, '2', 3.3)
- ));
- //////////////////////////////////////////////////////////////////
- // append
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- append(list(), eq<0>{}),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- append(list(eq<0>{}), eq<1>{}),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- append(list(eq<0>{}, eq<1>{}), eq<2>{}),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- append(list(), 1), list(1)
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- append(list(1), '2'), list(1, '2')
- ));
- BOOST_HANA_CONSTEXPR_CHECK(equal(
- append(list(1, '2'), 3.3), list(1, '2', 3.3)
- ));
- //////////////////////////////////////////////////////////////////
- // cycle
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(), size_c<0>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(), size_c<1>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(), size_c<2>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(), size_c<3>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}), size_c<0>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}), size_c<1>),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}), size_c<2>),
- list(eq<0>{}, eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}), size_c<3>),
- list(eq<0>{}, eq<0>{}, eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}), size_c<0>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}), size_c<1>),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}), size_c<2>),
- list(eq<0>{}, eq<1>{}, eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}), size_c<3>),
- list(eq<0>{}, eq<1>{}, eq<0>{}, eq<1>{}, eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}, eq<2>{}), size_c<0>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}, eq<2>{}), size_c<1>),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}, eq<2>{}), size_c<2>),
- list(eq<0>{}, eq<1>{}, eq<2>{}, eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- cycle(list(eq<0>{}, eq<1>{}, eq<2>{}), size_c<3>),
- list(eq<0>{}, eq<1>{}, eq<2>{}, eq<0>{}, eq<1>{}, eq<2>{}, eq<0>{}, eq<1>{}, eq<2>{})
- ));
- //////////////////////////////////////////////////////////////////
- // remove_if
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(), undefined{}),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}), equal.to(z)),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(z), equal.to(z)),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}, eq<1>{}), equal.to(z)),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(z, eq<1>{}), equal.to(z)),
- list(eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}, z), equal.to(z)),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(z, z), equal.to(z)),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}, eq<1>{}, eq<2>{}), equal.to(z)),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}, eq<1>{}, z), equal.to(z)),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}, z, eq<2>{}), equal.to(z)),
- list(eq<0>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(z, eq<1>{}, eq<2>{}), equal.to(z)),
- list(eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(z, z, eq<2>{}), equal.to(z)),
- list(eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(eq<0>{}, z, z), equal.to(z)),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- remove_if(list(z, z, z), equal.to(z)),
- list()
- ));
- //////////////////////////////////////////////////////////////////
- // remove
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(), undefined{}),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}), z),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(z), z),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}, eq<1>{}), z),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(z, eq<1>{}), z),
- list(eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}, z), z),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(z, z), z),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}, eq<1>{}, eq<2>{}), z),
- list(eq<0>{}, eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}, eq<1>{}, z), z),
- list(eq<0>{}, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}, z, eq<2>{}), z),
- list(eq<0>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(z, eq<1>{}, eq<2>{}), z),
- list(eq<1>{}, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(z, z, eq<2>{}), z),
- list(eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(eq<0>{}, z, z), z),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- hana::remove(list(z, z, z), z),
- list()
- ));
- //////////////////////////////////////////////////////////////////
- // replicate
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- replicate<S>(eq<0>{}, size_c<0>),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- replicate<S>(eq<0>{}, size_c<1>),
- list(eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- replicate<S>(eq<0>{}, size_c<2>),
- list(eq<0>{}, eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- replicate<S>(eq<0>{}, size_c<3>),
- list(eq<0>{}, eq<0>{}, eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- replicate<S>(eq<0>{}, size_c<4>),
- list(eq<0>{}, eq<0>{}, eq<0>{}, eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- replicate<S>(eq<0>{}, size_c<5>),
- list(eq<0>{}, eq<0>{}, eq<0>{}, eq<0>{}, eq<0>{})
- ));
- //////////////////////////////////////////////////////////////////
- // prefix
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- prefix(list(), z),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prefix(list(eq<0>{}), z),
- list(z, eq<0>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prefix(list(eq<0>{}, eq<1>{}), z),
- list(z, eq<0>{}, z, eq<1>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prefix(list(eq<0>{}, eq<1>{}, eq<2>{}), z),
- list(z, eq<0>{}, z, eq<1>{}, z, eq<2>{})
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- prefix(list(eq<0>{}, eq<1>{}, eq<2>{}, eq<3>{}), z),
- list(z, eq<0>{}, z, eq<1>{}, z, eq<2>{}, z, eq<3>{})
- ));
- //////////////////////////////////////////////////////////////////
- // suffix
- //////////////////////////////////////////////////////////////////
- BOOST_HANA_CONSTANT_CHECK(equal(
- suffix(list(), z),
- list()
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- suffix(list(eq<0>{}), z),
- list(eq<0>{}, z)
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- suffix(list(eq<0>{}, eq<1>{}), z),
- list(eq<0>{}, z, eq<1>{}, z)
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- suffix(list(eq<0>{}, eq<1>{}, eq<2>{}), z),
- list(eq<0>{}, z, eq<1>{}, z, eq<2>{}, z)
- ));
- BOOST_HANA_CONSTANT_CHECK(equal(
- suffix(list(eq<0>{}, eq<1>{}, eq<2>{}, eq<3>{}), z),
- list(eq<0>{}, z, eq<1>{}, z, eq<2>{}, z, eq<3>{}, z)
- ));
- }
- };
- }}} // end namespace boost::hana::test
- #endif // !BOOST_HANA_TEST_LAWS_MONAD_PLUS_HPP
|