1 files changed, 39 insertions, 0 deletions
diff --git a/src/boost/libs/hana/example/find_if.cpp b/src/boost/libs/hana/example/find_if.cpp
new file mode 100644
index 000000000..73264683a
--- /dev/null
+++ b/src/boost/libs/hana/example/find_if.cpp
@@ -0,0 +1,39 @@
+// Copyright Louis Dionne 2013-2017
+// Distributed under the Boost Software License, Version 1.0.
+// (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
+
+#include <boost/hana/assert.hpp>
+#include <boost/hana/equal.hpp>
+#include <boost/hana/equal.hpp>
+#include <boost/hana/ext/std/integral_constant.hpp>
+#include <boost/hana/find_if.hpp>
+#include <boost/hana/functional/compose.hpp>
+#include <boost/hana/optional.hpp>
+#include <boost/hana/tuple.hpp>
+#include <boost/hana/type.hpp>
+
+#include <type_traits>
+namespace hana = boost::hana;
+
+
+// First get the type of the object, and then call the trait on it.
+constexpr auto is_integral = hana::compose(hana::trait<std::is_integral>, hana::typeid_);
+constexpr auto is_class = hana::compose(hana::trait<std::is_class>, hana::typeid_);
+
+static_assert(
+    hana::find_if(hana::make_tuple(1.0, 2, '3'), is_integral) == hana::just(2)
+, "");
+
+BOOST_HANA_CONSTANT_CHECK(
+    hana::find_if(hana::make_tuple(1.0, 2, '3'), is_class) == hana::nothing
+);
+
+constexpr auto types = hana::tuple_t<char, int, unsigned, long, unsigned long>;
+BOOST_HANA_CONSTANT_CHECK(
+    hana::find_if(types, hana::equal.to(hana::type_c<unsigned>)) == hana::just(hana::type_c<unsigned>)
+);
+BOOST_HANA_CONSTANT_CHECK(
+    hana::find_if(types, hana::equal.to(hana::type_c<void>)) == hana::nothing
+);
+
+int main() { }