ceph/src/boost/libs/phoenix/test/function/lazy_fold_tests.cpp

   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
  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 }