14 lines
506 B
OCaml
14 lines
506 B
OCaml
module Reader = Tori.System.Process.Reader
|
|
module File = Tori.System.File
|
|
|
|
let smoke () =
|
|
(* Executing echo should return the same string on output *)
|
|
let result = Reader.read [||] "echo 0x70121" in
|
|
assert (Reader.format result = "0x70121");
|
|
|
|
(* Reading a file, relying on Dune's directory structure *)
|
|
let file_contents = File.read "../tori.opam" in
|
|
let contents_list = String.split_on_char '\n' file_contents in
|
|
assert (List.mem "depends: [" contents_list)
|
|
|
|
let () = smoke ()
|