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