simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-01-28 04:14:50 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add test for certificates

Browse source
This commit is contained in:
Simon Cruanes 2021-02-16 15:18:38 -05:00
parent 0bd2770b40
commit 341d82fa7f
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/arith/tests/test_simplex2.ml
View file

@ -243,21 +243,9 @@ let prop_sound ?(inv=false) pb =
in in
List.for_all check_step pb List.for_all check_step pb
| Spl.Unsat _cert -> | Spl.Unsat cert ->
Spl._check_cert cert;
true true
(* TODO
begin match Spl.check_cert simplex cert with
| `Ok _ -> true
| `Bad_bounds (low, up) ->
QC.Test.fail_reportf
"(@[<hv>bad-certificat@ :problem %a@ :cert %a@ :low %s :up %s@ :simplex %a@])"
Problem.pp pb Spl.pp_cert cert low up Spl.pp_full_state simplex
| `Diff_not_0 e ->
QC.Test.fail_reportf
"(@[<hv>bad-certificat@ :problem %a@ :cert %a@ :diff %a@ :simplex %a@])"
Problem.pp pb Spl.pp_cert cert Comb.pp (Comb.of_map e) Spl.pp_full_state simplex
end
*)
| exception Spl.E_unsat _cert -> | exception Spl.E_unsat _cert ->
true (* TODO : check certificate *) true (* TODO : check certificate *)
end end
@ -493,8 +481,20 @@ module Reg = struct
] in ] in
reg_prop_backtrack "t7" l reg_prop_backtrack "t7" l
(* regression for simplex certificate checking *)
let t8 =
let l = [
S_new_var 0;
S_lt (0, qstr "-8675/8802");
S_new_var 5;
S_define (7, [qstr "95221/14629", 5; qstr "60092/7011", 0]);
S_lt (5, qstr "-80423/7787");
S_geq (7, qstr "-10544/35599");
] in
reg_prop_sound "t8" l
let tests = [ let tests = [
t1; t2_snd; t2_inv; t3_snd; t4_snd_short; t4_snd; t5; t6; t7; t1; t2_snd; t2_inv; t3_snd; t4_snd_short; t4_snd; t5; t6; t7; t8;
] ]
end end