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

Client: random json template : fix random integers

Browse Source
This commit is contained in:
Grégoire Henry 2016-11-22 11:16:56 +01:00
parent 46cca127a6
commit 8d37369f27
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/client/client_generic_rpcs.ml
View File

@ -104,7 +104,12 @@ let fill_in input schema =
let random_fill_in schema = let random_fill_in schema =
let display _ = return () in let display _ = return () in
let int min max _ _ = return (Random.int (max - min) + min) in let int min max _ _ =
let max = Int64.of_int max
and min = Int64.of_int min in
let range = Int64.sub max min in
let random_int64 = Int64.add (Random.int64 range) min in
return (Int64.to_int random_int64) in
let string _title _ = return "" in let string _title _ = return "" in
let float _ _ = return (Random.float infinity) in let float _ _ = return (Random.float infinity) in
let bool _ _ = return (Random.int 2 = 0) in let bool _ _ = return (Random.int 2 = 0) in
@ -155,7 +160,9 @@ let editor_fill_in schema =
and reread () = and reread () =
(* finally reread the file *) (* finally reread the file *)
Lwt_io.(with_file Input tmp (fun fp -> read fp)) >>= fun text -> Lwt_io.(with_file Input tmp (fun fp -> read fp)) >>= fun text ->
return (Data_encoding.Json.from_string text) match Data_encoding.Json.from_string text with
| Ok r -> return (Ok r)
| Error msg -> return (Error (Printf.sprintf "bad input: %s" msg))
and delete () = and delete () =
(* and delete the temp file *) (* and delete the temp file *)
Lwt_unix.unlink tmp Lwt_unix.unlink tmp
@ -300,8 +307,8 @@ let call url () =
Client_node_rpcs.describe ~recurse:false args >>= function Client_node_rpcs.describe ~recurse:false args >>= function
| Static { service = Some { input } } -> begin | Static { service = Some { input } } -> begin
fill_in input >>= function fill_in input >>= function
| Error _ -> | Error msg ->
error "bad input" error "%s" msg
| Ok json -> | Ok json ->
Client_node_rpcs.get_json args json >>= fun json -> Client_node_rpcs.get_json args json >>= fun json ->
Printf.printf "Output:\n%s\n%!" (Data_encoding.Json.to_string json) ; Printf.printf "Output:\n%s\n%!" (Data_encoding.Json.to_string json) ;