ceph/src/boost/libs/hana/test/basic_tuple/laws.cpp

   1 // Copyright Louis Dionne 2013-2016
   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
   5 #include <boost/hana/basic_tuple.hpp>
   6
   7 #include <laws/base.hpp>
   8 #include <laws/foldable.hpp>
   9 #include <laws/functor.hpp>
  10 #include <laws/iterable.hpp>
  11 namespace hana = boost::hana;
  12 using hana::test::ct_eq;
  13
  14
  15 int main() {
  16     auto eq_tuples = hana::make_basic_tuple(
  17           hana::make_basic_tuple()
  18         , hana::make_basic_tuple(ct_eq<0>{})
  19         , hana::make_basic_tuple(ct_eq<0>{}, ct_eq<1>{})
  20         , hana::make_basic_tuple(ct_eq<0>{}, ct_eq<1>{}, ct_eq<2>{})
  21         , hana::make_basic_tuple(ct_eq<0>{}, ct_eq<1>{}, ct_eq<2>{}, ct_eq<3>{})
  22         , hana::make_basic_tuple(ct_eq<0>{}, ct_eq<1>{}, ct_eq<2>{}, ct_eq<3>{}, ct_eq<4>{})
  23         , hana::make_basic_tuple(ct_eq<0>{}, ct_eq<1>{}, ct_eq<2>{}, ct_eq<3>{}, ct_eq<4>{}, ct_eq<5>{})
  24     );
  25
  26     auto eq_values = hana::make_basic_tuple(
  27         ct_eq<0>{},
  28         ct_eq<2>{},
  29         ct_eq<4>{}
  30     );
  31
  32     hana::test::TestFunctor<hana::basic_tuple_tag>{eq_tuples, eq_values};
  33     hana::test::TestFoldable<hana::basic_tuple_tag>{eq_tuples};
  34     hana::test::TestIterable<hana::basic_tuple_tag>{eq_tuples};
  35 }