From b7214ad11d0090ac3148af25c7d2122c5798aeb8 Mon Sep 17 00:00:00 2001
From: Patrick Pelissier <patrick.pelissier@gmail.com>
Date: Sat, 18 Mar 2023 17:20:30 +0100
Subject: [PATCH] Adding test of NOCLEAR property

---
 tests/test-mtry.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests/test-mtry.c b/tests/test-mtry.c
index d625a7f7..8cf8a13f 100644
--- a/tests/test-mtry.c
+++ b/tests/test-mtry.c
@@ -356,6 +356,19 @@ static void test2(void)
     // Nothing to do
     assert(0);
   }
+
+  // Test of NOCLEAR property:
+  // Destructor is not called on exception.
+#define FAIL(a) ((void)a, assert(0))
+#define OPL (INIT(M_INIT_BASIC), TYPE(int), CLEAR(FAIL), PROPERTIES((NOCLEAR(1))))
+  M_TRY(test1) {
+    M_LET( obj, OPL) {
+      M_THROW(1);
+      assert(0);
+    }
+  } M_CATCH(test1, 1) {
+    // Nothing to do
+  }
 }
 
 int main(void)