test(rule-funcs): test compression funcs

This commit is contained in:
JimMoen 2022-12-19 15:35:40 +08:00
parent 5151242583
commit 4906da9796
No known key found for this signature in database
GPG Key ID: 87A520B4F76BA86D
1 changed files with 42 additions and 0 deletions

View File

@ -843,6 +843,48 @@ prop_hash_fun() ->
end end
). ).
%%------------------------------------------------------------------------------
%% Test cases for zip funcs
%%------------------------------------------------------------------------------
t_zip_funcs(_) ->
?PROPTEST(prop_zip_fun).
prop_zip_fun() ->
?FORALL(
S,
binary(),
S == apply_func(unzip, [apply_func(zip, [S])])
).
%%------------------------------------------------------------------------------
%% Test cases for gzip funcs
%%------------------------------------------------------------------------------
t_gzip_funcs(_) ->
?PROPTEST(prop_gzip_fun).
prop_gzip_fun() ->
?FORALL(
S,
binary(),
S == apply_func(gunzip, [apply_func(gzip, [S])])
).
%%------------------------------------------------------------------------------
%% Test cases for zip funcs
%%------------------------------------------------------------------------------
t_zip_compress_funcs(_) ->
?PROPTEST(prop_zip_compress_fun).
prop_zip_compress_fun() ->
?FORALL(
S,
binary(),
S == apply_func(zip_uncompress, [apply_func(zip_compress, [S])])
).
%%------------------------------------------------------------------------------ %%------------------------------------------------------------------------------
%% Test cases for base64 %% Test cases for base64
%%------------------------------------------------------------------------------ %%------------------------------------------------------------------------------