diff options
author | Linus Nordberg <linus@nordberg.se> | 2014-09-11 16:56:25 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordberg.se> | 2014-09-11 16:56:25 +0200 |
commit | 25ccd682ed4adddaa7f33ddc421e04b6988abc68 (patch) | |
tree | fd9b1b4a690eabfbeb145688ca5c36f22a681f13 /src | |
parent | 4af0661e0612df991e58ae513d756c2ba3abfeaa (diff) |
Add a few tests.
Diffstat (limited to 'src')
-rw-r--r-- | src/ts.erl | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -4,8 +4,8 @@ -export_type([tree_store/0]). -export([new/0, store/3, append/3, truncate/2, retrieve/2, retrieve_hash/2, delete/2]). -%% FIXME: keep the arrays in an array? or maybe an array of binaries? -%% hashes do have fixed lenght. +%% FIXME: Keep the arrays in an array instead of in a map? Or maybe an +%% array of binaries? Hashes do have fixed lenght. -record(tree_store, {arrays :: map()}). % Map of arrays, indexed by layer. -type tree_store() :: #tree_store{}. @@ -69,4 +69,9 @@ store_test_() -> S0 = store(S, {0,0}, <<00>>), S1 = store(S0, {0,1}, <<01>>), S2 = store(S1, {1,0}, <<10>>), - [?_assertEqual(retrieve(S2, {1,0}), element(3, T))]. + [?_assertEqual(retrieve(S2, {1,0}), element(3, T)), + ?_assertEqual(retrieve(S2, {0,1}), element(2, T)), + ?_assertEqual(retrieve(S2, {0,0}), element(1, T)), + ?_assertEqual(retrieve_hash(S2, {3,0}), undefined), + ?_assertEqual(retrieve_hash(S1, {1,0}), undefined) + ]. |