//////////////////////////////////////////////////////////////////
//
// 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();
}