From b756e5e0d7a453b0ebccb687c4c6658f20eaf94b Mon Sep 17 00:00:00 2001
From: Peter Dimov <pdimov@gmail.com>
Date: Tue, 16 May 2023 21:59:35 +0300
Subject: [PATCH] Add test for mp_erase with value lists. Refs #53.

---
 test/Jamfile        |   1 +
 test/mp_erase_2.cpp | 159 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 160 insertions(+)
 create mode 100644 test/mp_erase_2.cpp

diff --git a/test/Jamfile b/test/Jamfile
index 859b4d5..561073c 100644
--- a/test/Jamfile
+++ b/test/Jamfile
@@ -134,6 +134,7 @@ run mp_replace_at_c.cpp ;
 run mp_for_each.cpp ;
 run mp_insert.cpp ;
 run mp_erase.cpp ;
+run mp_erase_2.cpp ;
 run mp_with_index.cpp ;
 run mp_with_index_cx.cpp ;
 run mp_from_sequence.cpp ;
diff --git a/test/mp_erase_2.cpp b/test/mp_erase_2.cpp
new file mode 100644
index 0000000..0bcf54d
--- /dev/null
+++ b/test/mp_erase_2.cpp
@@ -0,0 +1,159 @@
+// Copyright 2023 Peter Dimov
+// Distributed under the Boost Software License, Version 1.0.
+// https://www.boost.org/LICENSE_1_0.txt
+
+#include <boost/mp11/algorithm.hpp>
+#include <boost/mp11/list.hpp>
+#include <boost/mp11/integral.hpp>
+
+#if !defined(BOOST_MP11_HAS_TEMPLATE_AUTO)
+
+#pragma message("Test skipped because BOOST_MP11_HAS_TEMPLATE_AUTO is not defined")
+int main() {}
+
+#else
+
+#include <boost/core/lightweight_test_trait.hpp>
+
+template<auto... A> struct V1 {};
+template<int... I> struct V2 {};
+
+int main()
+{
+    using boost::mp11::mp_erase;
+    using boost::mp11::mp_erase_c;
+    using boost::mp11::mp_size_t;
+    using boost::mp11::mp_iota_c;
+    using boost::mp11::mp_rename_v;
+
+    using _0 = mp_size_t<0>;
+    using _1 = mp_size_t<1>;
+    using _2 = mp_size_t<2>;
+    using _3 = mp_size_t<3>;
+    using _4 = mp_size_t<4>;
+    using _5 = mp_size_t<5>;
+
+    {
+        using L1 = V1<>;
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L1, 0, 0>, L1);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L1, _0, _0>, L1);
+
+        using L2 = V1<false, 0, true, 1>;
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 0>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 1>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 2>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 3, 3>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 4, 4>, L2);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _0>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _1>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _2>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _3, _3>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _4, _4>, L2);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 1>, V1<0, true, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 2>, V1<false, true, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 3>, V1<false, 0, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 3, 4>, V1<false, 0, true>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _1>, V1<0, true, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _2>, V1<false, true, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _3>, V1<false, 0, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _3, _4>, V1<false, 0, true>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 2>, V1<true, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 3>, V1<false, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 4>, V1<false, 0>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _2>, V1<true, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _3>, V1<false, 1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _4>, V1<false, 0>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 3>, V1<1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 4>, V1<false>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _3>, V1<1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _4>, V1<false>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 4>, V1<>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _4>, V1<>);
+
+        using L3 = mp_rename_v<mp_iota_c<18>, V1>;
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L3, 1, 17>, V1<std::size_t(0), std::size_t(17)>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L3, mp_size_t<1>, mp_size_t<17>>, V1<std::size_t(0), std::size_t(17)>);
+    }
+
+    {
+        using L1 = V2<>;
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L1, 0, 0>, L1);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L1, _0, _0>, L1);
+
+        using L2 = V2<1, 2, 3, 4, 5>;
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 0>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 1>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 2>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 3, 3>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 4, 4>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 5, 5>, L2);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _0>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _1>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _2>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _3, _3>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _4, _4>, L2);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _5, _5>, L2);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 1>, V2<2, 3, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 2>, V2<1, 3, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 3>, V2<1, 2, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 3, 4>, V2<1, 2, 3, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 4, 5>, V2<1, 2, 3, 4>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _1>, V2<2, 3, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _2>, V2<1, 3, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _3>, V2<1, 2, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _3, _4>, V2<1, 2, 3, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _4, _5>, V2<1, 2, 3, 4>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 2>, V2<3, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 3>, V2<1, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 4>, V2<1, 2, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 3, 5>, V2<1, 2, 3>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _2>, V2<3, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _3>, V2<1, 4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _4>, V2<1, 2, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _3, _5>, V2<1, 2, 3>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 3>, V2<4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 4>, V2<1, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 2, 5>, V2<1, 2>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _3>, V2<4, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _4>, V2<1, 5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _2, _5>, V2<1, 2>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 4>, V2<5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 1, 5>, V2<1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L2, 0, 5>, V2<>);
+
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _4>, V2<5>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _1, _5>, V2<1>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L2, _0, _5>, V2<>);
+
+        using L3 = mp_rename_v<mp_iota_c<18>, V2>;
+
+        BOOST_TEST_TRAIT_SAME(mp_erase_c<L3, 1, 17>, V2<0, 17>);
+        BOOST_TEST_TRAIT_SAME(mp_erase<L3, mp_size_t<1>, mp_size_t<17>>, V2<0, 17>);
+    }
+
+    return boost::report_errors();
+}
+
+#endif