From 97e3cc35c223cf9f52f93e32b595c35ea526c04a Mon Sep 17 00:00:00 2001
From: Patrick Pelissier <patrick.pelissier@gmail.com>
Date: Sat, 24 Feb 2018 20:26:32 +0100
Subject: [PATCH] Add more tests.

---
 tests/test-mlist.c | 59 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)

diff --git a/tests/test-mlist.c b/tests/test-mlist.c
index cab49984..3264f025 100644
--- a/tests/test-mlist.c
+++ b/tests/test-mlist.c
@@ -291,6 +291,65 @@ static void test_dual_push1(void)
   assert (d == 0.0);
   assert(list2_double_empty_p(list));
 
+  list2_double_push_back_new(list);
+  list2_double_pop_back(&d, list);
+  assert (d == 0.0);
+  list2_double_push_front_new(list);
+  list2_double_pop_back(&d, list);
+  assert (d == 0.0);
+
+  list2_double_push_back_new(list);
+  list2_double_pop_back(NULL, list);
+  assert(list2_double_empty_p(list));
+  list2_double_push_front_new(list);
+  list2_double_pop_back(NULL, list);
+  assert(list2_double_empty_p(list));
+
+  for(double e = 0.0; e < 1024.0; e += 1.0) {
+    if (e < 1000.0)
+      list2_double_push_front(list, e);
+    if (e >= 24.0 && e < 1000.0) {
+      assert (list2_double_size (list) == 25);
+    }
+    if (e >= 24.0) {
+      list2_double_pop_back(&d, list);
+      assert (d + 24.0 == e);
+    }
+  }
+
+  list2_double_push_back(list, 15);
+  list2_double_t list2;
+  list2_double_init(list2);
+  assert(list2_double_empty_p(list2));
+  assert(!list2_double_empty_p(list));
+  list2_double_swap(list, list2);
+  assert(!list2_double_empty_p(list2));
+  assert(list2_double_empty_p(list));
+  list2_double_clear(list2);
+
+  for(double e = 0.0; e < 1024.0; e += 1.0) {
+    list2_double_push_back(list, e);    
+  }
+  list2_double_init_set (list2, list);
+  assert(list2_double_equal_p(list, list2));
+
+  list2_double_reverse(list2);
+  for(double e = 0.0; e < 1024.0 ; e += 1.0) {
+    list2_double_pop_back(&d, list2);
+    assert (d == e);
+  }
+  assert(list2_double_empty_p(list2));
+
+  list2_double_splice(list2, list);
+  assert(list2_double_size(list2) == 1024);
+  assert(list2_double_size(list) == 0);
+  list2_double_set(list, list2);
+  assert(list2_double_size(list) == 1024);
+  list2_double_splice(list2, list);
+  assert(list2_double_size(list2) == 2048);
+  assert(list2_double_size(list) == 0);
+  
+  list2_double_move(list, list2);
   list2_double_clear(list);
 }