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
5 #include <boost/hana/ext/std/integral_constant.hpp>
6
7 #include <boost/hana/tuple.hpp>
8
9 #include <laws/euclidean_ring.hpp>
10 #include <laws/group.hpp>
11 #include <laws/monoid.hpp>
12 #include <laws/ring.hpp>
13
14 #include <type_traits>
15 namespace hana = boost::hana;
16
17
main()18 int main() {
19 auto ints = hana::make_tuple(
20 std::integral_constant<int, -10>{},
21 std::integral_constant<int, -2>{},
22 std::integral_constant<int, 0>{},
23 std::integral_constant<int, 1>{},
24 std::integral_constant<int, 3>{}
25 );
26
27 hana::test::TestMonoid<hana::ext::std::integral_constant_tag<int>>{ints};
28 hana::test::TestGroup<hana::ext::std::integral_constant_tag<int>>{ints};
29 hana::test::TestRing<hana::ext::std::integral_constant_tag<int>>{ints};
30 hana::test::TestEuclideanRing<hana::ext::std::integral_constant_tag<int>>{ints};
31 }
32