warning-free vsns of string:str/2 & string:right/3

This commit is contained in:
Ulf Wiger 2018-12-07 08:39:44 +01:00
parent bfddb53e31
commit fbe200f1ca
7 changed files with 75 additions and 14 deletions

View file

@ -263,9 +263,11 @@ generate_randomkeys(Count, BucketRangeLow, BucketRangeHigh) ->
generate_randomkeys(0, Acc, _BucketLow, _BucketHigh) ->
Acc;
generate_randomkeys(Count, Acc, BucketLow, BRange) ->
BNumber = string:right(integer_to_list(BucketLow + leveled_rand:uniform(BRange)),
4, $0),
KNumber = string:right(integer_to_list(leveled_rand:uniform(1000)), 4, $0),
BNumber = leveled_util:string_right(
integer_to_list(BucketLow + leveled_rand:uniform(BRange)),
4, $0),
KNumber = leveled_util:string_right(
integer_to_list(leveled_rand:uniform(1000)), 4, $0),
K = {o, "Bucket" ++ BNumber, "Key" ++ KNumber, null},
RandKey = {K, {Count + 1,
{active, infinity},