Skip to content
Snippets Groups Projects
Commit a39c8e88 authored by Virgile Prevosto's avatar Virgile Prevosto
Browse files

[aorai] use WP cache in 'prove' ptest configuration

parent 8ca1cf3c
No related branches found
No related tags found
No related merge requests found
Showing
with 46 additions and 2 deletions
...@@ -29,6 +29,16 @@ module InternalWpShare = ...@@ -29,6 +29,16 @@ module InternalWpShare =
let file_kind = "wp share directory" let file_kind = "wp share directory"
end) end)
module WpCache =
P.Filepath(
struct
let option_name = "-aorai-test-wp-cache"
let help = "use custom session dir for storing cache"
let arg_name = "dir"
let existence = Filepath.Must_exist
let file_kind = "wp session directory"
end)
module ProveAuxSpec = module ProveAuxSpec =
P.False( P.False(
struct struct
...@@ -97,7 +107,12 @@ let extend () = ...@@ -97,7 +107,12 @@ let extend () =
File.pretty_ast ~prj:aorai_prj ~fmt (); File.pretty_ast ~prj:aorai_prj ~fmt ();
close_out chan; close_out chan;
let selection = let selection =
State_selection.of_list [ InternalWpShare.self; ProveAuxSpec.self ] List.fold_left
(fun selection state ->
State_selection.union
(State_selection.with_codependencies state) selection)
State_selection.empty
[ InternalWpShare.self; ProveAuxSpec.self; WpCache.self ]
in in
Project.copy ~selection my_project; Project.copy ~selection my_project;
Project.set_current my_project; Project.set_current my_project;
...@@ -115,6 +130,9 @@ let extend () = ...@@ -115,6 +130,9 @@ let extend () =
Wp.Wp_parameters.Split.on(); Wp.Wp_parameters.Split.on();
Wp.Wp_parameters.SplitMax.set 32; Wp.Wp_parameters.SplitMax.set 32;
Wp.Wp_parameters.Verbose.set 0; Wp.Wp_parameters.Verbose.set 0;
if WpCache.is_set () then
Wp.Wp_parameters.Session.set (WpCache.get());
Wp.Wp_parameters.Cache.set "update";
Globals.Functions.iter check_auto_func; Globals.Functions.iter check_auto_func;
end else begin end else begin
File.pretty_ast (); File.pretty_ast ();
......
...@@ -3,4 +3,4 @@ PLUGIN: aorai eva,from,scope report wp,rtegen ...@@ -3,4 +3,4 @@ PLUGIN: aorai eva,from,scope report wp,rtegen
COMMENT: Path to the library from the test file COMMENT: Path to the library from the test file
LIBS: @PTEST_SUITE_DIR@/../Aorai_test LIBS: @PTEST_SUITE_DIR@/../Aorai_test
MACRO: PROVE_OPTIONS @AORAI_WP_SHARE@ -aorai-test-prove-aux-spec MACRO: PROVE_OPTIONS @AORAI_WP_SHARE@ -aorai-test-wp-cache @PTEST_SUITE_DIR@/../wp-cache -aorai-test-prove-aux-spec
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.0178,
"steps": 164 }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.0095,
"steps": 46 }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.1532,
"steps": 68 }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.005,
"steps": 46 }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.0042,
"steps": 22 }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.017,
"steps": 161 }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.0081,
"steps": 51 }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
{ "prover": "Alt-Ergo:2.2.0", "verdict": "valid", "time": 0.0237,
"steps": 257 }
{ "prover": "Alt-Ergo:2.4.1", "verdict": "failed" }
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