From 22e9e52b1338c48febee1af0c329a3147b1cc9cd Mon Sep 17 00:00:00 2001
From: Patrick Pelissier <patrick.pelissier@gmail.com>
Date: Sun, 23 Apr 2017 10:10:57 +0200
Subject: [PATCH] Add more tests.

---
 tests/test-mtuple.c   | 1 +
 tests/test-mvariant.c | 1 +
 2 files changed, 2 insertions(+)

diff --git a/tests/test-mtuple.c b/tests/test-mtuple.c
index e4526865..e56bca87 100644
--- a/tests/test-mtuple.c
+++ b/tests/test-mtuple.c
@@ -103,6 +103,7 @@ int main(void)
   assert(string_equal_str_p(p2->key, "HELLO"));
   string_set_str(p2->key, "HELLO WORLD");
   mpz_set_str(p2->value, "174217", 10);
+  pair_set(p1, p1);
   pair_set(p1, p2);
   assert(mpz_cmp_ui(p1->value, 174217) == 0);
   assert(string_equal_str_p(p1->key, "HELLO WORLD"));
diff --git a/tests/test-mvariant.c b/tests/test-mvariant.c
index 9f40f05b..484d1cb5 100644
--- a/tests/test-mvariant.c
+++ b/tests/test-mvariant.c
@@ -79,6 +79,7 @@ static void test_pair(void)
   assert (*i == 15);
 
   assert (pair_value_p(p));
+  pair_set(p, p);
   pair_set(p, p2);
   assert (!pair_value_p(p));
   assert (pair_key_p(p));