init git

tests.scm

@@ -0,0 +1,21 @@
+(use-modules (d- test))
+
+
+;;; VM tests
+(use-modules (scmvm vm)
+             (rnrs bytevectors)
+             (rnrs io ports))
+
+(define adder-program
+  #vu8(#x01 1 0 0 0 ; Push value "1"
+       #x01 2 0 0 0 ; Push value "2"
+       #x05         ; Perform "+"
+       #x03 1 0 0 0 ; Store the value to memory address 1
+       ))
+
+(define-test-suite "VM"
+  (define-test "adder"
+    (define my-vm (make-vm))
+    (define my-program (open-bytevector-input-port adder-program))
+    (run-program my-vm my-program)
+    (assert-equal 3 (vm-memory-ref my-vm 1))))