umgeher/leveled
0
Fork 0
Code Issues Pull requests Releases Activity Actions

Extend small skiplist test further

Browse source
This commit is contained in:
martinsumner 2016-11-30 23:23:10 +00:00
parent 39f61db92b
commit c0384d7a86
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/leveled_skiplist.erl
View file

@ -381,8 +381,12 @@ dotest_skiplist_small(N) ->
end, end,
empty(), empty(),
KL), KL),
SkipList2 = from_list(lists:reverse(KL)),
lists:foreach(fun({K, V}) -> ?assertMatch({value, V}, lookup(K, SkipList1)) lists:foreach(fun({K, V}) -> ?assertMatch({value, V}, lookup(K, SkipList1))
end, 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))). lists:ukeysort(1, lists:reverse(KL))).
skiplist_test() -> skiplist_test() ->