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.
44 lines
1.3 KiB
Text
44 lines
1.3 KiB
Text
|
|
|
|
structure bv (w : Nat) := (u:Unit)
|
|
|
|
inductive val : Type
|
|
| bv (w : Nat) : bv w → val
|
|
|
|
inductive memtype : Type
|
|
| ptr : Unit → memtype
|
|
|
|
inductive instr : Type
|
|
| load : memtype -> val -> instr
|
|
| store : Unit -> Unit -> Unit -> instr
|
|
|
|
structure sim (a:Type) :=
|
|
(runSim : {z:Type} → (IO.Error → z) /- error continuation -/ → (a → z) /- normal continuation -/ → z)
|
|
|
|
instance monad : Monad sim :=
|
|
{ bind := λ mx mf => sim.mk (λ kerr k =>
|
|
mx.runSim kerr (λx => (mf x).runSim kerr k)),
|
|
pure := fun a => sim.mk $ fun _ k => k a }
|
|
|
|
instance monadExcept : MonadExcept IO.Error sim :=
|
|
{ throw := λ err => sim.mk (λ kerr _k => kerr err),
|
|
tryCatch := λ m handle => sim.mk (λ kerr k =>
|
|
let kerr' := λerr => (handle err).runSim kerr k;
|
|
m.runSim kerr' k)
|
|
}
|
|
|
|
def f : sim val := throw (IO.userError "ASDF")
|
|
def g : sim Unit := throw (IO.userError "ASDF")
|
|
|
|
def evalInstr : instr → sim (Option val)
|
|
| instr.load mt pv =>
|
|
match mt, pv with
|
|
| memtype.ptr _, val.bv 27 _ => throw (IO.userError "ASDF")
|
|
| _, _ => throw (IO.userError "expected pointer value in load" )
|
|
|
|
| instr.store _ _ _ =>
|
|
do let pv <- f;
|
|
g;
|
|
(match pv with
|
|
| val.bv 27 _ => throw (IO.userError "asdf")
|
|
| _ => throw (IO.userError "expected pointer value in store" ))
|