From c0384d7a86a81a59568d349eecac9ba294eb0435 Mon Sep 17 00:00:00 2001
From: martinsumner <martin.sumner@adaptip.co.uk>
Date: Wed, 30 Nov 2016 23:23:10 +0000
Subject: [PATCH] Extend small skiplist test further

---
 src/leveled_skiplist.erl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/leveled_skiplist.erl b/src/leveled_skiplist.erl
index d32ed9f..160771a 100644
--- a/src/leveled_skiplist.erl
+++ b/src/leveled_skiplist.erl
@@ -381,8 +381,12 @@ dotest_skiplist_small(N) ->
                             end,
                         empty(),
                         KL),
+    SkipList2 = from_list(lists:reverse(KL)),
     lists:foreach(fun({K, V}) -> ?assertMatch({value, V}, lookup(K, SkipList1))
                                     end,
+                    lists:ukeysort(1, lists:reverse(KL))),
+    lists:foreach(fun({K, V}) -> ?assertMatch({value, V}, lookup(K, SkipList2))
+                                    end,
                     lists:ukeysort(1, lists:reverse(KL))).
 
 skiplist_test() ->