1 ////////////////////////////////////////////////////////////////////////////
2 // lazy_fold_tests.cpp
3 //
4 // tests on foldl foldr and compose
5 //
6 ////////////////////////////////////////////////////////////////////////////
7 /*=============================================================================
8 Copyright (c) 2000-2003 Brian McNamara and Yannis Smaragdakis
9 Copyright (c) 2001-2007 Joel de Guzman
10 Copyright (c) 2015 John Fletcher
11
12 Distributed under the Boost Software License, Version 1.0. (See accompanying
13 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
14 ==============================================================================*/
15
16 #include <boost/phoenix/core/limits.hpp>
17
18 #include <boost/detail/lightweight_test.hpp>
19 #include <boost/phoenix/core.hpp>
20 #include <boost/phoenix/function/lazy_prelude.hpp>
21
22
main()23 int main()
24 {
25 namespace phx = boost::phoenix;
26 using boost::phoenix::arg_names::arg1;
27 using boost::phoenix::arg_names::arg2;
28 using boost::phoenix::arg_names::arg3;
29 using namespace phx;
30
31 list<int> l = enum_from(2);
32 list<int> evens = filter(even,l);
33 list<int> even4 = take(4,evens)();
34
35 BOOST_TEST(foldr(plus,0,even4)() == 20);
36 BOOST_TEST(foldr(multiplies,1,even4)() == 384);
37 BOOST_TEST(foldr1(plus,even4)() == 20 );
38 BOOST_TEST(foldl(plus,arg1,even4)(0) == 20);
39 BOOST_TEST(foldl1(plus,even4)() == 20);
40 BOOST_TEST(compose(inc,foldr)(plus,0,even4)() == 21);
41 BOOST_TEST(compose(plus,foldl,foldr)(arg1,arg2,arg3)(plus,0,even4) == 40);
42
43 return boost::report_errors();
44 }
45