Add machi_ap_repair_eqc:sublist()

This commit is contained in:
Scott Lystig Fritchie 2015-12-02 15:24:24 +09:00
parent 29c2ede275
commit 2f95305292

View file

@ -218,6 +218,11 @@ sublist(L) ->
?LET(L2, eqc_gen:vector(K, eqc_gen:oneof(L)), ?LET(L2, eqc_gen:vector(K, eqc_gen:oneof(L)),
lists:usort(L2))). lists:usort(L2))).
sublist(L) ->
?LET(K, nat(),
?LET(L2, eqc_gen:vector(K, eqc_gen:oneof(L)),
lists:usort(L2))).
%% Generator for possibly assymmetric partition information %% Generator for possibly assymmetric partition information
partition(FLUNames) -> partition(FLUNames) ->
frequency([{10, return([])}, frequency([{10, return([])},