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

   1 ////////////////////////////////////////////////////////////////////////////
   2 // lazy_scan_tests.cpp
   3 //
   4 // tests on scanl scanr map zip and zip_with
   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> odds  = filter(odd,l);
  34     list<int> even4 = take(4,evens)();
  35     list<int> odd4  = take(4,odds)();
  36
  37     BOOST_TEST(head(scanr(plus,0,even4))() == 20);
  38     BOOST_TEST(last(scanl(plus,0,even4))() == 20);
  39     BOOST_TEST(head(scanr1(plus,even4))()  == 20);
  40     BOOST_TEST(last(scanl1(plus,even4))()  == 20);
  41
  42     list<int> map_result = map(inc,even4)();
  43     list<int> zip_with_result = zip_with(plus,even4,odd4)();
  44
  45     BOOST_TEST(foldl1(plus,map_result)()  == 24);
  46     BOOST_TEST(last(zip_with_result)()    == 17);
  47
  48     typedef std::pair<int,int> pair_ii;
  49     list<pair_ii> zip_result1 = zip_with(make_pair,even4,odd4)();
  50     list<pair_ii> zip_result2 = zip(even4,odd4)();
  51
  52     BOOST_TEST(head(zip_result1)().first   == 2);
  53     BOOST_TEST(last(zip_result2)().second  == 9);
  54
  55     return boost::report_errors();
  56 }