Skip to content
Snippets Groups Projects
Commit 8fcad1f5 authored by Andre Maroneze's avatar Andre Maroneze
Browse files

[Aorai] avoid macOS issues with test oracles and Filename.get_temp_dir_name

parent cc18134c
No related branches found
No related tags found
No related merge requests found
...@@ -72,10 +72,11 @@ let extend () = ...@@ -72,10 +72,11 @@ let extend () =
in in
run f; run f;
let tmpfile = let tmpfile =
Filename.get_temp_dir_name () ^ "/aorai_" ^ Filename.(concat (get_temp_dir_name ())
(Filename.chop_extension ("aorai_" ^
(Filename.basename (List.hd (Kernel.Files.get()):>string))) ^ "_" ^ (chop_extension
(string_of_int (TestNumber.get ())) ^ ".i" (basename (List.hd (Kernel.Files.get()):>string))) ^
"_" ^ (string_of_int (TestNumber.get ())) ^ ".i"))
in in
let () = let () =
Extlib.safe_at_exit Extlib.safe_at_exit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment