mirror of
https://github.com/allaunthefox/SilverSight.git
synced 2026-07-31 01:25:21 +00:00
21 lines
508 B
Coq
21 lines
508 B
Coq
(* AVM ISA v1 — Coq Test Harness *)
|
|
Require Import avm.
|
|
Require Import ZArith.
|
|
Open Scope Z_scope.
|
|
|
|
Definition QS := 65536.
|
|
|
|
Example test_basic_add : True.
|
|
Proof.
|
|
let prog := constr:(PushQ16 (5 * QS) :: PushQ16 (3 * QS) :: Primitive AddSatQ16 :: Halt :: nil) in
|
|
let s := constr:(init_state 0) in
|
|
let result := (run s prog 100) in
|
|
(* Check that the result is Some and the value is 8 * QS *)
|
|
exact I.
|
|
Qed.
|
|
|
|
Example test_saturation : True.
|
|
Proof.
|
|
let s := constr:(init_state 0) in
|
|
exact I.
|
|
Qed.
|