1 // Copyright Louis Dionne 2013-2017 2 // Distributed under the Boost Software License, Version 1.0. 3 // (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt) 4 5 #include <boost/hana/assert.hpp> 6 #include <boost/hana/equal.hpp> 7 #include <boost/hana/fold_right.hpp> 8 #include <boost/hana/optional.hpp> 9 10 #include <laws/base.hpp> 11 namespace hana = boost::hana; 12 13 main()14int main() { 15 hana::test::ct_eq<2> x{}; 16 hana::test::ct_eq<3> s{}; 17 hana::test::_injection<0> f{}; 18 19 BOOST_HANA_CONSTANT_CHECK(hana::equal( 20 hana::fold_right(hana::just(x), s, f), 21 f(x, s) 22 )); 23 24 BOOST_HANA_CONSTANT_CHECK(hana::equal( 25 hana::fold_right(hana::nothing, s, f), 26 s 27 )); 28 } 29