require_relative 'helper'

# test the generation of a whole program
# not many asserts, but assume all is  well (ho ho)
# linking and running does not produce seqmentation fault, ie it works
# should really thiink about more asserts (but currently no way to execute as still running on mac )
#    (have to fix the int being used in code generation as ruby int is only 31 bits, and that wont do)

class TestSmallProg < MiniTest::Test
  # need a code generator, for arm 
  def setup
    @program = Vm::Program.new "Arm"
  end

  def test_loop
    @program.main.instance_eval do
      mov  :r0,  5                #1
      start = Vm::Block.new("start")
      add_code start
      start.instance_eval do
        sub  :r0, :r0, 1 , :update_status => 1      #2
        bne  start  ,{}         #3
      end
    end
    @should = [0,176,160,227,5,0,160,227,1,0,80,226,253,255,255,26,1,112,160,227,0,0,0,239]
    write( 6 , "loop" )
  end

  def test_hello
    hello = Vm::StringConstant.new "Hello Raisa\n"
    @program.add_object hello
    @program.main.instance_eval do 
      mov :r7,  4     # 4 == write
      mov :r0 ,  1    # stdout
      add :r1 , hello , nil   # address of "hello Raisa"
      mov :r2 ,  hello.length
    	swi  0          #software interupt, ie kernel syscall
    end
    @should = [0,176,160,227,4,112,160,227,1,0,160,227,12,16,143,226,16,32,160,227,0,0,0,239,1,112,160,227,0,0,0,239,72,101,108,108,111,32,82,97,105,115,97,10,0,0,0,0]
    write(7 + hello.length/4 + 1 , 'hello')
  end

  #helper to write the file
  def write len ,name
    writer = Elf::ObjectWriter.new(@program , Elf::Constants::TARGET_ARM)
    assembly = writer.text
    assembly.text.bytes.each_with_index do |byte , index|
      assert_equal  byte , @should[index] , "byte #{index}"
    end
#    writer.save("#{name}_test.o")
  end
end
# _start copied from dietc
#  	mov	fp, #0			@ clear the frame pointer
#  	ldr	a1, [sp]		@ argc
#  	add	a2, sp, #4		@ argv
#  	ldr	ip, .L3
#  	add	a3, a2, a1, lsl #2	@ &argv[argc]
#  	add	a3, a3, #4		@ envp	
#  	str	a3, [ip, #0]		@ environ = envp
#  	bl	main