commit cbf7849e7eef9295c756add057c67e0a0e2a9012 parent fab4a175d85b36b6c593c8469438834eb528db38 Author: Bertrand BRUN <bertrand.brun@me.com> Date: Tue, 19 Oct 2010 17:58:29 +0200 Ajout de quelque test unitaire sur VM (a completer) Diffstat:
| M | VM/instruction.lisp | | | 21 | +++++++++++++++++++++ |
| M | main.lisp | | | 2 | +- |
2 files changed, 22 insertions(+), 1 deletion(-)
diff --git a/VM/instruction.lisp b/VM/instruction.lisp @@ -141,3 +141,23 @@ (set-register vm 'HALT t)) +;;Test Unitaire +;; TODO : Faire deftestvar +(load "test-unitaire") +(defvar vm (make-vm (+ 10 (random 10)))) +(defvar t-address (random (size-memory vm))) +(defvar t-value (random 42)) +(set-memory vm t-address t-value) + +(deftest virtual-machine + (progn (ISN-LOAD vm t-address 'R0) + (get-register vm 'R0)) + (get-memory vm t-address)) + +(setf t-address (random (size-memory vm))) +(deftest virtual-machine + (progn (ISN-STORE vm 'R0 t-address) + (get-memory vm t-address)) + (get-register vm 'R0)) + +(dump-vm vm) +\ No newline at end of file diff --git a/main.lisp b/main.lisp @@ -6,5 +6,5 @@ (load "environnement") (load "VM/instruction") ;; ... -;(run-test t) +(run-test t) ;(print-env-stack exemple-env-stack)