at.cpp 2.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  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/at.hpp>
  6. #include <boost/hana/equal.hpp>
  7. #include <boost/hana/experimental/types.hpp>
  8. #include <boost/hana/type.hpp>
  9. namespace hana = boost::hana;
  10. template <int> struct x;
  11. int main() {
  12. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  13. hana::at_c<0>(hana::experimental::types<x<0>>{}),
  14. hana::type_c<x<0>>
  15. ));
  16. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  17. hana::at_c<0>(hana::experimental::types<x<0>, x<1>>{}),
  18. hana::type_c<x<0>>
  19. ));
  20. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  21. hana::at_c<1>(hana::experimental::types<x<0>, x<1>>{}),
  22. hana::type_c<x<1>>
  23. ));
  24. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  25. hana::at_c<0>(hana::experimental::types<x<0>, x<1>, x<2>>{}),
  26. hana::type_c<x<0>>
  27. ));
  28. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  29. hana::at_c<1>(hana::experimental::types<x<0>, x<1>, x<2>>{}),
  30. hana::type_c<x<1>>
  31. ));
  32. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  33. hana::at_c<2>(hana::experimental::types<x<0>, x<1>, x<2>>{}),
  34. hana::type_c<x<2>>
  35. ));
  36. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  37. hana::at_c<0>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>>{}),
  38. hana::type_c<x<0>>
  39. ));
  40. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  41. hana::at_c<1>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>>{}),
  42. hana::type_c<x<1>>
  43. ));
  44. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  45. hana::at_c<2>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>>{}),
  46. hana::type_c<x<2>>
  47. ));
  48. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  49. hana::at_c<3>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>>{}),
  50. hana::type_c<x<3>>
  51. ));
  52. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  53. hana::at_c<0>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>, x<4>>{}),
  54. hana::type_c<x<0>>
  55. ));
  56. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  57. hana::at_c<1>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>, x<4>>{}),
  58. hana::type_c<x<1>>
  59. ));
  60. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  61. hana::at_c<2>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>, x<4>>{}),
  62. hana::type_c<x<2>>
  63. ));
  64. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  65. hana::at_c<3>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>, x<4>>{}),
  66. hana::type_c<x<3>>
  67. ));
  68. BOOST_HANA_CONSTANT_CHECK(hana::equal(
  69. hana::at_c<4>(hana::experimental::types<x<0>, x<1>, x<2>, x<3>, x<4>>{}),
  70. hana::type_c<x<4>>
  71. ));
  72. }