From 508da0be45849939e34c645f6b649e1ccc13513e Mon Sep 17 00:00:00 2001 From: martinsumner Date: Tue, 14 Mar 2017 22:47:48 +0000 Subject: [PATCH] Additional unit tests --- src/leveled_codec.erl | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/src/leveled_codec.erl b/src/leveled_codec.erl index aae0b6b..0e5d17f 100644 --- a/src/leveled_codec.erl +++ b/src/leveled_codec.erl @@ -481,7 +481,28 @@ general_skip_strategy_test() -> {}, true}, [{?STD_TAG, skip}]), - ?assertMatch(skip, TagStrat2). + ?assertMatch(skip, TagStrat2), + TagStrat3 = compact_inkerkvc({{1, + ?INKT_KEYD, + {?IDX_TAG, "B1", "K1", "SK"}}, + {}, + true}, + [{?STD_TAG, skip}]), + ?assertMatch(skip, TagStrat3), + TagStrat4 = compact_inkerkvc({{1, + ?INKT_KEYD, + {?IDX_TAG, "B1", "K1", "SK"}}, + {}, + true}, + [{?STD_TAG, skip}, {?IDX_TAG, recalc}]), + ?assertMatch({recalc, null}, TagStrat4), + TagStrat5 = compact_inkerkvc({{1, + ?INKT_TOMB, + {?IDX_TAG, "B1", "K1", "SK"}}, + {}, + true}, + [{?STD_TAG, skip}, {?IDX_TAG, recalc}]), + ?assertMatch(skip, TagStrat5). corrupted_inker_tag_test() -> % Confirm that we will skip on unknown inker tag