08eb78a5b2
This PR sets up the new integrated test/bench suite. It then migrates all benchmarks and some related tests to the new suite. There's also some documentation and some linting. For now, a lot of the old tests are left alone so this PR doesn't become even larger than it already is. Eventually, all tests should be migrated to the new suite though so there isn't a confusing mix of two systems.
25 lines
772 B
Text
25 lines
772 B
Text
import Std.Tactic.BVDecide.LRAT.Parser
|
|
|
|
open Std.Tactic.BVDecide.LRAT
|
|
|
|
-- This is a nonsensical LRAT proof, merely used for testing.
|
|
def actions : Array IntAction := #[
|
|
.del #[1, 2, 3, 4],
|
|
.addRup 10000 #[111111111, -6] #[7, 8],
|
|
.addRat 10001 #[234234, 13] (234234, true) #[5, 9] #[(500, #[120, 170, 42])],
|
|
.addEmpty 10002 #[10000, 10001, 42]
|
|
]
|
|
|
|
/-- info: true -/
|
|
#guard_msgs in
|
|
#eval show IO _ from do
|
|
match Parser.parseActions.run (lratProofToString actions).toUTF8 with
|
|
| .ok parsed => return parsed == actions
|
|
| .error e => throw <| IO.userError e
|
|
|
|
/-- info: true -/
|
|
#guard_msgs in
|
|
#eval show IO _ from do
|
|
match Parser.parseActions.run (lratProofToBinary actions) with
|
|
| .ok parsed => return parsed == actions
|
|
| .error e => throw <| IO.userError e
|