(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))))