From f5152b3de2a52b7a8d05c3cdc18d5f690c76bfba Mon Sep 17 00:00:00 2001 From: John Estabrook Date: Fri, 31 Jan 2025 09:36:24 -0600 Subject: T6946: add test function and executable --- src/test_commit_data.ml | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 src/test_commit_data.ml (limited to 'src/test_commit_data.ml') diff --git a/src/test_commit_data.ml b/src/test_commit_data.ml new file mode 100644 index 0000000..81b6c19 --- /dev/null +++ b/src/test_commit_data.ml @@ -0,0 +1,30 @@ +module CT = Vyos1x.Config_tree +module FP = FilePath + +let active_config_file = ref "" +let working_config_file = ref "" + +let usage = "Usage: " ^ Sys.argv.(0) ^ " [options]" + +let args = [ + ("--running-config", Arg.String (fun s -> active_config_file:= s), "running config file"); + ("--proposed-config", Arg.String (fun s -> working_config_file := s), "proposed config file"); + ] + +let parse_ct file_name = + match file_name with + | "" -> CT.make "" + | _ -> + let ic = open_in file_name in + let s = really_input_string ic (in_channel_length ic) in + let ct = Vyos1x.Parser.from_string s in + close_in ic; ct + +let () = + let () = Arg.parse args (fun _ -> ()) usage in + let af = !active_config_file in + let wf = !working_config_file in + let at = parse_ct af in + let wt = parse_ct wf in + let out = Vyconfd_config.Commit.show_commit_data at wt + in print_endline out -- cgit v1.2.3