(local t (require :deps.faith))
(local {: r : move} (require :host.assembler.opcodes))

(fn hex [n]
  "format a number as 32 bit hexadecimal"
  (string.format :0x%08x n))

(fn test-move []
  (t.= 0xe1a05003
       (move (r 5) (r 3)))
  (t.= 0xe3a05003
       (move (r 5) 3)))

{: test-move}