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() ->