From a3827cc3843acb9b3da4aeeb7dc87744a9d53965 Mon Sep 17 00:00:00 2001
From: Patrick Pelissier <patrick.pelissier@gmail.com>
Date: Tue, 29 Jun 2021 21:43:21 +0200
Subject: [PATCH] Add tests for new constructs allowed in M_LET for tuples

---
 tests/test-mtuple.c | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/tests/test-mtuple.c b/tests/test-mtuple.c
index 0ac95441..67d6169b 100644
--- a/tests/test-mtuple.c
+++ b/tests/test-mtuple.c
@@ -118,6 +118,48 @@ static void check_clean(void)
     rtuple_clean(r);
     assert(string_equal_str_p (r->name, ""));    
   }
+  
+  M_LET( (r, ("Hello"), 4), TUPLE_OPLIST(pair2_str, STRING_OPLIST, M_DEFAULT_OPLIST) )  {
+    assert(string_equal_str_p (r->str, "Hello"));
+    assert(r->value == 4);
+    pair2_str_clean(r);
+    assert(string_equal_str_p (r->str, ""));
+  }
+
+  M_LET( (s, ("Goldy") ), STRING_OPLIST) 
+  M_LET( (r, s, 46), TUPLE_OPLIST(pair2_str, STRING_OPLIST, M_DEFAULT_OPLIST) )
+  M_LET( (q, r), TUPLE_OPLIST(pair2_str, STRING_OPLIST, M_DEFAULT_OPLIST) ) {
+    assert(string_equal_str_p (q->str, "Goldy"));
+    assert(q->value == 46);
+    pair2_str_clean(q);
+    assert(string_equal_str_p (q->str, ""));
+  }
+
+  // Wrong oplist usage: fall back to _init_emplace.
+  M_LET( (s, ("Goldy McDuck") ), STRING_OPLIST) 
+  M_LET((r, s, 460), TUPLE_OPLIST(pair2_str, STRING_OPLIST) )  {
+    assert(string_equal_str_p (r->str, "Goldy McDuck"));
+    assert(r->value == 460);
+    pair2_str_clean(r);
+    assert(string_equal_str_p (r->str, ""));
+  }
+
+  // Two level of parenthesis needed: 
+  //  one to perform an emplace with INIT_WITH for the tuple
+  //  another level to emplace the string_t
+  M_LET( (r, (("Two emplace"))), TUPLE_OPLIST(single_str, STRING_OPLIST) ) {
+    assert(string_equal_str_p (r->vala, "Two emplace"));
+    single_str_clean(r);
+    assert(string_equal_str_p (r->vala, ""));
+  }
+
+  M_LET( (s, ("Goldy McDuck") ), STRING_OPLIST) 
+  M_LET( (r, (s)), TUPLE_OPLIST(single_str, STRING_OPLIST) ) {
+    assert(string_equal_str_p (r->vala, "Goldy McDuck"));
+    single_str_clean(r);
+    assert(string_equal_str_p (r->vala, ""));
+  }
+
 }
 
 static void check_io(void)