From cbf7849e7eef9295c756add057c67e0a0e2a9012 Mon Sep 17 00:00:00 2001
From: Bertrand BRUN <bertrand.brun@me.com>
Date: Tue, 19 Oct 2010 17:58:29 +0200
Subject: [PATCH] Ajout de quelque test unitaire sur VM (a completer)

---
 VM/instruction.lisp | 20 ++++++++++++++++++++
 main.lisp           |  2 +-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/VM/instruction.lisp b/VM/instruction.lisp
index 1ed5458..c2a2384 100644
--- 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
index 69e4f16..62f918a 100644
--- 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)