1 files changed, 69 insertions, 0 deletions
diff --git a/src/boost/libs/yap/test/depth_stress_test_left.cpp b/src/boost/libs/yap/test/depth_stress_test_left.cpp
new file mode 100644
index 000000000..ec2724e12
--- /dev/null
+++ b/src/boost/libs/yap/test/depth_stress_test_left.cpp
@@ -0,0 +1,69 @@
+// Copyright (C) 2016-2018 T. Zachary Laine
+//
+// Distributed under the Boost Software License, Version 1.0. (See
+// accompanying file LICENSE_1_0.txt or copy at
+// http://www.boost.org/LICENSE_1_0.txt)
+#include <boost/yap/expression.hpp>
+
+#include <boost/test/minimal.hpp>
+
+#include <sstream>
+
+
+template <typename T>
+using term = boost::yap::terminal<boost::yap::expression, T>;
+
+namespace yap = boost::yap;
+
+
+int test_main(int, char * [])
+{
+{
+    term<double> unity{1.0};
+
+    {
+        auto expr = (unity + (unity + (unity + (unity +    (unity + (unity + (unity + unity)))))));
+        double result = boost::yap::evaluate(expr);
+        BOOST_CHECK(result == 8.0);
+    }
+
+    {
+        auto expr =
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+        double result = boost::yap::evaluate(expr);
+        BOOST_CHECK(result == 64.0);
+    }
+
+#if 0 // This makes the Travis VMs barf.
+    {
+        auto expr =
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity +
+            (unity + (unity + (unity + (unity +    (unity + (unity + (unity + (unity))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
+        double result = boost::yap::evaluate(
+            (expr + (expr + (expr + (expr +    (expr + (expr + (expr + (expr +
+            (expr + (expr + (expr + (expr +    (expr + (expr + (expr + (expr +
+            (expr + (expr + (expr + (expr +    (expr + (expr + (expr + (expr +
+            (expr + (expr + (expr + (expr +    (expr + (expr + (expr + (expr))))))))))))))))))))))))))))))))
+        );
+        BOOST_CHECK(result == 64.0 * 32.0);
+    }
+#endif
+}
+
+return 0;
+}