49 lines
1.4 KiB
C++
49 lines
1.4 KiB
C++
//////////////////////////////////////////////////////////////////
|
|
//
|
|
// lazy_thunk_tests.cpp
|
|
//
|
|
// Tests for thunk functions.
|
|
//
|
|
//
|
|
/*=============================================================================
|
|
Copyright (c) 2000-2003 Brian McNamara and Yannis Smaragdakis
|
|
Copyright (c) 2001-2007 Joel de Guzman
|
|
Copyright (c) 2015 John Fletcher
|
|
|
|
Distributed under the Boost Software License, Version 1.0. (See accompanying
|
|
file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
|
==============================================================================*/
|
|
|
|
#include <iostream>
|
|
#include <boost/phoenix/core.hpp>
|
|
#include <boost/phoenix/function.hpp>
|
|
#include <boost/shared_ptr.hpp>
|
|
#include <boost/phoenix/function/lazy_prelude.hpp>
|
|
|
|
#include <boost/detail/lightweight_test.hpp>
|
|
|
|
using namespace boost::phoenix;
|
|
|
|
using std::cout;
|
|
using std::endl;
|
|
|
|
|
|
|
|
int main() {
|
|
using boost::phoenix::arg_names::arg1;
|
|
using boost::phoenix::arg_names::arg2;
|
|
|
|
BOOST_TEST( thunk1(inc,1)()() == 2);
|
|
BOOST_TEST( thunk1(inc,arg1)(1)() == 2);
|
|
BOOST_TEST( thunk2(plus,1,2)()() == 3);
|
|
BOOST_TEST( thunk2(plus,arg1,arg2)(1,2)() == 3);
|
|
|
|
list<int> l = enum_from_to(1,5);
|
|
list<int> l4 = take(4,l)();
|
|
BOOST_TEST( foldl(plus,0,l4)() == 10);
|
|
BOOST_TEST( thunk3(foldl,plus,0,l4)()() == 10);
|
|
BOOST_TEST( thunk3(foldl,plus,arg1,l4)(0)() == 10);
|
|
|
|
return boost::report_errors();
|
|
}
|