1 files changed, 73 insertions, 0 deletions
diff --git a/external/glim/test_exception.cc b/external/glim/test_exception.cc
new file mode 100644
index 000000000..74759f4da
--- /dev/null
+++ b/external/glim/test_exception.cc
@@ -0,0 +1,73 @@
+#define _GLIM_ALL_EXCEPTIONS_CODE
+#include "exception.hpp"
+#include <iostream>
+#include <typeinfo>
+#include <assert.h>
+
+// NB: Controlling exceptions across shared object (.so) boundaries is tested separately in frople/src/test.cpp/testExceptionControl.
+
+static void testThrowLine() {
+  int line = 0; std::string message; try {
+    line = __LINE__; GTHROW ("message");
+  } catch (const std::exception& ex) {
+    message = ex.what();
+  }
+  //std::cout << message << ' ' << std::flush;
+  assert (message.size());
+  assert (std::string (message) .find (":" + std::to_string (line)) != std::string::npos);
+
+  line = 0; message.clear(); std::string name; try {
+    line = __LINE__; G_DEFINE_EXCEPTION (FooEx); GNTHROW (FooEx, "foo");
+  } catch (const std::exception& ex) {
+    message = ex.what(); name = typeid (ex) .name();
+  }
+  //std::cout << "testThrowLine: " << message << ' ' << name << ' ' << std::flush;
+  assert (message.size());
+  assert (std::string (message) .find (":" + std::to_string (line)) != std::string::npos);
+  assert (name.find ("FooEx") != std::string::npos);
+
+  message.clear(); try {
+    glim::ExceptionControl plainWhat (glim::Exception::PLAIN_WHAT);
+    GTHROW ("bar");
+  } catch (const std::exception& ex) {
+    message = ex.what();
+  }
+  assert (message == "bar");
+  assert (glim::Exception::options() == 0);
+}
+
+static void testBacktrace() {
+  assert (glim::Exception::options() == 0);
+  glim::ExceptionControl captureTrace (glim::Exception::CAPTURE_TRACE);
+  assert (glim::Exception::options() != 0);
+  std::string message;
+  try {
+    GTHROW ("message");
+  } catch (const std::exception& ex) {
+    message = ex.what();
+  }
+  //std::cout << "testBacktrace: " << message << std::endl;
+  if (message.find ("[at bin/test_exception") == std::string::npos && message.find ("[test_exception") == std::string::npos)
+    GTHROW ("No expected string in " + message);
+}
+
+static void testAllExceptionsHack() {
+  assert (glim::Exception::options() == 0);
+  std::string traceBuf;
+  glim::ExceptionHandler traceExceptions (glim::Exception::HANDLE_ALL | glim::Exception::RENDEZVOUS, glim::captureBacktrace, &traceBuf);
+  assert (glim::Exception::options() != 0);
+  try {
+    throw "catch me"; // Catched by `_GLIM_ALL_EXCEPTIONS_CODE` and handled with `glim::ExceptionControl::backtrace`.
+  } catch (const char* skip) {}
+  //std::cout << "testAllExceptionsHack: " << std::endl << traceBuf << std::endl;
+  assert (traceBuf.size());
+}
+
+int main () {
+  std::cout << "Testing exception.hpp ... " << std::flush;
+  testThrowLine();
+  testBacktrace();
+  testAllExceptionsHack();
+  std::cout << "pass." << std::endl;
+  return 0;
+}