balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

test/utils: small fix: Data_encoding.Binary.Error has no arguments

Browse Source
This commit is contained in:
OCamlPro-Iguernlala 2017-04-14 03:42:17 +02:00
parent 42a4e4ecc0
commit 7f9c77cee8
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/utils/test_stream_data_encoding.ml
View File

@ -14,7 +14,7 @@ let is_invalid_arg = function
let is_await = function Binary.Await _ -> true | _ -> false let is_await = function Binary.Await _ -> true | _ -> false
let is_success = function Binary.Success _ -> true | _ -> false let is_success = function Binary.Success _ -> true | _ -> false
let is_error = function Binary.Error _ -> true | _ -> false let is_error = function Binary.Error -> true | _ -> false
let rec fold_left_pending f accu l = let rec fold_left_pending f accu l =
@ -51,7 +51,7 @@ let test_read_simple_bin_ko_invalid_data
in in
match status with match status with
| Binary.Await _ -> () | Binary.Await _ -> ()
| Binary.Error _ -> () | Binary.Error -> ()
| Binary.Success {res; remaining} -> | Binary.Success {res; remaining} ->
(* should not have "Success" *) (* should not have "Success" *)
Assert.equal ~msg:__LOC__ remaining []; Assert.equal ~msg:__LOC__ remaining [];
@ -94,7 +94,7 @@ let test_read_simple_bin_ko_await ?msg encoding value =
in in
match status with match status with
| Binary.Await _ -> () | Binary.Await _ -> ()
| Binary.Error _ -> | Binary.Error ->
if not (classify encoding == `Variable) then if not (classify encoding == `Variable) then
Assert.fail_msg "%s" (unexpected __LOC__) Assert.fail_msg "%s" (unexpected __LOC__)
| Binary.Success result -> | Binary.Success result ->
@ -130,7 +130,7 @@ let test_read_simple_bin_ok ?msg ?(equal=Assert.equal) encoding value =
Assert.equal ~msg:__LOC__ remaining []; Assert.equal ~msg:__LOC__ remaining [];
equal ?msg value res equal ?msg value res
| Binary.Await _ -> Assert.fail_msg "%s" (unexpected __LOC__) | Binary.Await _ -> Assert.fail_msg "%s" (unexpected __LOC__)
| Binary.Error _ -> | Binary.Error ->
if not (classify encoding == `Variable) then if not (classify encoding == `Variable) then
Assert.fail_msg "%s" (unexpected __LOC__) Assert.fail_msg "%s" (unexpected __LOC__)
end; end;
@ -168,7 +168,7 @@ let test_check_simple_bin_ko_invalid_data
in in
match status with match status with
| Binary.Await _ -> () | Binary.Await _ -> ()
| Binary.Error _ -> () | Binary.Error -> ()
| Binary.Success {res; remaining} -> | Binary.Success {res; remaining} ->
Assert.equal ~msg:__LOC__ remaining []; Assert.equal ~msg:__LOC__ remaining [];
(* res is unit for check *) (* res is unit for check *)
@ -207,7 +207,7 @@ let test_check_simple_bin_ko_await ?msg encoding value =
in in
match status with match status with
| Binary.Await _ -> () | Binary.Await _ -> ()
| Binary.Error _ -> | Binary.Error ->
if not (classify encoding == `Variable) then if not (classify encoding == `Variable) then
Assert.fail_msg "%s" (unexpected __LOC__) Assert.fail_msg "%s" (unexpected __LOC__)
| Binary.Success result -> | Binary.Success result ->
@ -243,7 +243,7 @@ let test_check_simple_bin_ok ?msg ?(equal=Assert.equal) encoding value =
Assert.equal ~msg:__LOC__ remaining []; Assert.equal ~msg:__LOC__ remaining [];
(* res is unit for check *) (* res is unit for check *)
| Binary.Await _ -> Assert.fail_msg "%s" (unexpected __LOC__) | Binary.Await _ -> Assert.fail_msg "%s" (unexpected __LOC__)
| Binary.Error _ -> | Binary.Error ->
if not (classify encoding == `Variable) then if not (classify encoding == `Variable) then
Assert.fail_msg "%s" (unexpected __LOC__) Assert.fail_msg "%s" (unexpected __LOC__)
end; end;
@ -375,7 +375,7 @@ let test_union _ =
)status bin_l )status bin_l
in in
match status with match status with
| Binary.Error _ -> Assert.fail_msg "%s" msg | Binary.Error -> Assert.fail_msg "%s" msg
| Binary.Await _ -> Assert.fail_msg "%s" msg | Binary.Await _ -> Assert.fail_msg "%s" msg
| Binary.Success {res} -> res | Binary.Success {res} -> res
in in
@ -422,7 +422,7 @@ let test_splitted _ =
)status bin_l )status bin_l
in in
match status with match status with
| Binary.Error _ -> Assert.fail_msg "%s" msg | Binary.Error -> Assert.fail_msg "%s" msg
| Binary.Await _ -> Assert.fail_msg "%s" msg | Binary.Await _ -> Assert.fail_msg "%s" msg
| Binary.Success {res} -> res | Binary.Success {res} -> res
in in