1 files changed, 54 insertions, 0 deletions
diff --git a/libs/phoenix/test/function/lazy_list3_tests.cpp b/libs/phoenix/test/function/lazy_list3_tests.cpp
new file mode 100644
index 000000000..9e4bc6d0d
--- /dev/null
+++ b/libs/phoenix/test/function/lazy_list3_tests.cpp
@@ -0,0 +1,54 @@
+////////////////////////////////////////////////////////////////////////////
+// lazy_list3_tests.cpp
+//
+// more tests on list<T>
+//
+////////////////////////////////////////////////////////////////////////////
+/*=============================================================================
+    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 <boost/phoenix/core/limits.hpp>
+
+#include <boost/detail/lightweight_test.hpp>
+#include <boost/phoenix/core.hpp>
+#include <boost/phoenix/function/lazy_prelude.hpp>
+
+
+int main()
+{
+    namespace phx = boost::phoenix;
+    //using boost::phoenix::arg_names::arg1;
+    //using boost::phoenix::arg_names::arg2;
+    using namespace phx;
+
+    list<int> l    = enum_from(2);
+    list<int> ll   = take(4,l);
+    list<int> lll  = take(12,l);
+    list<int> l2   = enum_from_to(2,10);
+    list<int> ll2  = take(4,l2);
+    list<int> lll2 = take(12,l2);
+    list<int> evens = filter(even,l);
+    list<int> odds  = filter(odd,l);
+    list<int> even4 = take(4,evens)();
+    list<int> odd4  = take(4,odds)();
+    list<int> itersome = take(4,iterate(dec,1))();
+    list<int> repeatsome = take(4,repeat(1))();
+    
+    BOOST_TEST(last(ll)()   == 5);
+    BOOST_TEST(last(lll)()  == 13);
+    BOOST_TEST(last(ll2)()  == 5);
+    BOOST_TEST(last(lll2)() == 10);
+    BOOST_TEST(length(lll2)() == 9);
+    BOOST_TEST(at_(even4,3)() == 8);
+    BOOST_TEST(at_(odd4,2)()  == 7);
+    BOOST_TEST(at_(itersome,3)()   == -3);
+    BOOST_TEST(at_(repeatsome,3)() == 1);
+
+    return boost::report_errors();
+}