vergnet/be_ocaml
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

add tools module tests

Browse source
This commit is contained in:
Arnaud Vergnet 2020-11-12 14:02:44 +01:00
parent 31c05c0f32
commit 5ffa39c47b
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ftest.ml
View file

@ -1,4 +1,6 @@
open Gfile
open Tools
open Ffalgo
let () =
@ -22,7 +24,9 @@ let () =
(* Open file *)
let graph = from_file infile in
(* let graph2 = clone_nodes graph in *)
(* let graph2 = gmap (gmap (gmap graph int_of_string) (fun x -> x + 1)) string_of_int in *)
(* let graph2 = gmap (add_arc (gmap graph int_of_string) 2 1 13) string_of_int in *)
(* Rewrite the graph that has been read. *)
let () = export outfile graph in