unpack_flatten.cpp 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114
  1. // Copyright Louis Dionne 2013-2017
  2. // Distributed under the Boost Software License, Version 1.0.
  3. // (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
  4. #include <boost/hana/assert.hpp>
  5. #include <boost/hana/detail/unpack_flatten.hpp>
  6. #include <boost/hana/equal.hpp>
  7. #include <boost/hana/tuple.hpp>
  8. #include <laws/base.hpp>
  9. namespace hana = boost::hana;
  10. using hana::test::ct_eq;
  11. int main() {
  12. constexpr auto f = hana::test::_injection<0>{};
  13. {
  14. auto tuples = hana::make_tuple();
  15. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  16. hana::detail::unpack_flatten(tuples, f),
  17. f()
  18. ));
  19. }
  20. {
  21. auto tuples = hana::make_tuple(hana::make_tuple());
  22. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  23. hana::detail::unpack_flatten(tuples, f),
  24. f()
  25. ));
  26. }
  27. {
  28. auto tuples = hana::make_tuple(hana::make_tuple(), hana::make_tuple());
  29. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  30. hana::detail::unpack_flatten(tuples, f),
  31. f()
  32. ));
  33. }
  34. {
  35. auto tuples = hana::make_tuple(hana::make_tuple(),
  36. hana::make_tuple(),
  37. hana::make_tuple());
  38. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  39. hana::detail::unpack_flatten(tuples, f),
  40. f()
  41. ));
  42. }
  43. {
  44. auto tuples = hana::make_tuple(hana::make_tuple(ct_eq<0>{}));
  45. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  46. hana::detail::unpack_flatten(tuples, f),
  47. f(ct_eq<0>{})
  48. ));
  49. }
  50. {
  51. auto tuples = hana::make_tuple(hana::make_tuple(ct_eq<0>{}, ct_eq<1>{}));
  52. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  53. hana::detail::unpack_flatten(tuples, f),
  54. f(ct_eq<0>{}, ct_eq<1>{})
  55. ));
  56. }
  57. {
  58. auto tuples = hana::make_tuple(hana::make_tuple(),
  59. hana::make_tuple(ct_eq<0>{}));
  60. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  61. hana::detail::unpack_flatten(tuples, f),
  62. f(ct_eq<0>{})
  63. ));
  64. }
  65. {
  66. auto tuples = hana::make_tuple(hana::make_tuple(),
  67. hana::make_tuple(ct_eq<0>{}, ct_eq<1>{}));
  68. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  69. hana::detail::unpack_flatten(tuples, f),
  70. f(ct_eq<0>{}, ct_eq<1>{})
  71. ));
  72. }
  73. {
  74. auto tuples = hana::make_tuple(hana::make_tuple(ct_eq<0>{}),
  75. hana::make_tuple(ct_eq<1>{}));
  76. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  77. hana::detail::unpack_flatten(tuples, f),
  78. f(ct_eq<0>{}, ct_eq<1>{})
  79. ));
  80. }
  81. {
  82. auto tuples = hana::make_tuple(hana::make_tuple(ct_eq<0>{}),
  83. hana::make_tuple(ct_eq<1>{}),
  84. hana::make_tuple(ct_eq<2>{}));
  85. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  86. hana::detail::unpack_flatten(tuples, f),
  87. f(ct_eq<0>{}, ct_eq<1>{}, ct_eq<2>{})
  88. ));
  89. }
  90. {
  91. auto tuples = hana::make_tuple(hana::make_tuple(ct_eq<0>{}),
  92. hana::make_tuple(ct_eq<1>{}),
  93. hana::make_tuple(ct_eq<2>{}, ct_eq<3>{}));
  94. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  95. hana::detail::unpack_flatten(tuples, f),
  96. f(ct_eq<0>{}, ct_eq<1>{}, ct_eq<2>{}, ct_eq<3>{})
  97. ));
  98. }
  99. }