--- /dev/null
+
+// Copyright 2020 Hans Dembinski.
+//
+// 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/mp11/tuple.hpp>
+#include <boost/core/lightweight_test.hpp>
+#include <boost/core/lightweight_test_trait.hpp>
+#include <tuple>
+#include <utility>
+#include <iosfwd>
+
+// family of test types with state
+template <int N>
+struct T {
+ int value;
+ T() : value{N} {};
+ explicit T(int n) : value{n} {}
+};
+
+template <int N>
+std::ostream& operator<<( std::ostream& os, T<N> const& t )
+{
+ os << t.value;
+ return os;
+}
+
+// test function changes type and value
+struct F {
+ template<int N, int M=1> T<N+M> operator()( T<N> a, T<M> b={} ) const
+ {
+ return T<N+M>{a.value + b.value + 1};
+ }
+};
+
+int main()
+{
+ using boost::mp11::tuple_transform;
+
+ {
+ std::tuple<T<1>, T<2>, T<3>> tp;
+ std::tuple<T<4>, T<5>, T<6>> tp2;
+
+ {
+ std::tuple<T<2>, T<3>, T<4>> s = tuple_transform( F{}, tp );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 5 );
+ }
+
+ {
+ std::tuple<T<2>, T<3>, T<4>> s = tuple_transform( F{}, std::move(tp) );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 5 );
+ }
+
+ {
+ std::tuple<T<5>, T<7>, T<9>> s = tuple_transform( F{}, tp, tp2 );
+ BOOST_TEST_EQ( std::get<0>(s).value, 6 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 8 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 10 );
+ }
+
+ {
+ std::tuple<T<5>, T<7>, T<9>> s = tuple_transform(
+ F{}, std::move(tp), std::move(tp2)
+ );
+ BOOST_TEST_EQ( std::get<0>(s).value, 6 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 8 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 10 );
+ }
+ }
+
+ {
+ std::tuple<T<1>, T<2>, T<3>> const tp;
+ std::tuple<T<4>, T<5>, T<6>> const tp2;
+
+ {
+ std::tuple<T<2>, T<3>, T<4>> s = tuple_transform( F{}, tp );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 5 );
+ }
+
+ {
+ std::tuple<T<2>, T<3>, T<4>> s = tuple_transform( F{}, std::move(tp) );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 5 );
+ }
+
+ {
+ std::tuple<T<5>, T<7>, T<9>> s = tuple_transform( F{}, tp, tp2 );
+ BOOST_TEST_EQ( std::get<0>(s).value, 6 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 8 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 10 );
+ }
+
+ {
+ std::tuple<T<5>, T<7>, T<9>> s = tuple_transform(
+ F{}, std::move(tp), std::move(tp2)
+ );
+ BOOST_TEST_EQ( std::get<0>(s).value, 6 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 8 );
+ BOOST_TEST_EQ( std::get<2>(s).value, 10 );
+ }
+ }
+
+ {
+ std::pair<T<1>, T<2>> tp;
+ std::pair<T<3>, T<4>> tp2;
+
+ {
+ std::tuple<T<2>, T<3>> s = tuple_transform( F{}, tp );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ }
+
+ {
+ std::tuple<T<2>, T<3>> s = tuple_transform( F{}, std::move(tp) );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ }
+
+ {
+ std::tuple<T<4>, T<6>> s = tuple_transform( F{}, tp, tp2 );
+ BOOST_TEST_EQ( std::get<0>(s).value, 5 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 7 );
+ }
+
+ {
+ std::tuple<T<4>, T<6>> s = tuple_transform(
+ F{}, std::move(tp), std::move(tp2)
+ );
+ BOOST_TEST_EQ( std::get<0>(s).value, 5 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 7 );
+ }
+ }
+
+ {
+ std::pair<T<1>, T<2>> const tp;
+ std::pair<T<3>, T<4>> const tp2;
+
+ {
+ std::tuple<T<2>, T<3>> s = tuple_transform( F{}, tp );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ }
+
+ {
+ std::tuple<T<2>, T<3>> s = tuple_transform( F{}, std::move(tp) );
+ BOOST_TEST_EQ( std::get<0>(s).value, 3 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 4 );
+ }
+
+ {
+ std::tuple<T<4>, T<6>> s = tuple_transform( F{}, tp, tp2 );
+ BOOST_TEST_EQ( std::get<0>(s).value, 5 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 7 );
+ }
+
+ {
+ std::tuple<T<4>, T<6>> s = tuple_transform(
+ F{}, std::move(tp), std::move(tp2)
+ );
+ BOOST_TEST_EQ( std::get<0>(s).value, 5 );
+ BOOST_TEST_EQ( std::get<1>(s).value, 7 );
+ }
+ }
+
+ {
+ std::tuple<> tp;
+
+ {
+ auto s = tuple_transform( F{}, tp );
+ BOOST_TEST_TRAIT_TRUE((std::is_same<decltype(s), std::tuple<>>));
+ }
+
+ {
+ auto s = tuple_transform( F{}, std::move(tp) );
+ BOOST_TEST_TRAIT_TRUE((std::is_same<decltype(s), std::tuple<>>));
+ }
+ }
+
+ return boost::report_errors();
+}