bit of organising

test/risc/interpreter/calling/test_div10.rb

@@ -0,0 +1,53 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterDiv10 < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main("return 25.div10")
+      super
+    end
+
+    def test_chain
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
+             Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             SlotToReg, SlotToReg, LoadData, OperatorInstruction, LoadData,
+             OperatorInstruction, OperatorInstruction, LoadData, Transfer, OperatorInstruction,
+             OperatorInstruction, LoadData, Transfer, OperatorInstruction, OperatorInstruction,
+             LoadData, Transfer, OperatorInstruction, OperatorInstruction, LoadData,
+             OperatorInstruction, LoadData, Transfer, OperatorInstruction, OperatorInstruction,
+             Transfer, LoadData, OperatorInstruction, LoadData, OperatorInstruction,
+             OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, Syscall, NilClass]
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal 2 , get_return.value
+    end
+
+    def test_load_25
+      load_ins = main_ticks 17
+      assert_equal LoadConstant ,  load_ins.class
+      assert_equal 25 , @interpreter.get_register(load_ins.register).value
+    end
+    def test_return
+      ret = main_ticks(73)
+      assert_equal FunctionReturn ,  ret.class
+      link = @interpreter.get_register( ret.register )
+      assert_equal Label , link.class
+    end
+    def test_sys
+      sys = main_ticks(87)
+      assert_equal Syscall ,  sys.class
+      assert_equal :exit ,  sys.name
+    end
+  end
+end

test/risc/interpreter/calling/test_get_byte.rb

@@ -0,0 +1,41 @@
+require_relative "../helper"
+
+module Risc
+  class InterpretGetByte < MiniTest::Test
+    include Ticker
+
+    def setup
+        @string_input = as_main("return 'Hello'.get_internal_byte(1)")
+      super
+    end
+    def test_chain
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, ByteToReg,
+             LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, FunctionReturn, Transfer,
+             Syscall, NilClass]
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal "H".ord , get_return.value
+    end
+    def test_exit
+      done = main_ticks(61)
+      assert_equal Syscall ,  done.class
+    end
+
+    def test_byte_to_reg
+      done = main_ticks(35)
+      assert_equal ByteToReg ,  done.class
+      assert_equal "H".ord ,  @interpreter.get_register(done.register)
+    end
+
+  end
+end

test/risc/interpreter/calling/test_minus.rb

@@ -0,0 +1,50 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterMinusTest < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main("return 6 - 5")
+      super
+    end
+
+    def test_minus
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, Syscall, NilClass]
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal 1 , get_return.value
+    end
+    def test_load_5
+      lod = main_ticks( 20 )
+      assert_equal LoadConstant , lod.class
+      assert_equal Parfait::Integer , lod.constant.class
+      assert_equal 5 , lod.constant.value
+    end
+    def test_op
+      op = main_ticks(36)
+      assert_equal OperatorInstruction , op.class
+      assert_equal :r1 , op.left.symbol
+      assert_equal :r2 , op.right.symbol
+      assert_equal 5 , @interpreter.get_register(:r2)
+      assert_equal 1 , @interpreter.get_register(:r1)
+    end
+    def test_sys
+      sys = main_ticks(62)
+      assert_equal Syscall ,  sys.class
+      assert_equal :exit ,  sys.name
+    end
+  end
+end

test/risc/interpreter/calling/test_mod.rb

@@ -0,0 +1,51 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterMod < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main "return 9.div4"
+      super
+    end
+
+    def test_chain
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
+             Label, SlotToReg, SlotToReg, LoadData, OperatorInstruction,
+             LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, FunctionReturn, Transfer,
+             Syscall, NilClass]
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal 2 , get_return.value
+    end
+
+    def test_load
+      lod = main_ticks(17)
+      assert_equal LoadConstant , lod.class
+      assert_equal 9 , lod.constant.value
+    end
+    def test_fix # reduce self to fix
+      sl = main_ticks(28)
+      assert_equal SlotToReg , sl.class
+      assert_equal :r1 , sl.array.symbol
+      assert_equal 3 , sl.index
+      assert_equal :r1 , sl.register.symbol
+      assert_equal 9 , @interpreter.get_register(:r1)
+    end
+
+    def test_sys
+      sys = main_ticks(56)
+      assert_equal Syscall ,  sys.class
+      assert_equal :exit ,  sys.name
+    end
+
+  end
+end

test/risc/interpreter/calling/test_mult.rb

@@ -0,0 +1,47 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterMultTest < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main "return #{2**31} * #{2**31}"
+      super
+    end
+
+    def test_mult
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, Syscall, NilClass]
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal 0 , get_return.value
+    end
+    def test_op
+      op = main_ticks(36)
+      assert_equal OperatorInstruction , op.class
+      assert_equal :r1 , op.left.symbol
+      assert_equal :r2 , op.right.symbol
+      assert_equal 2**31 , @interpreter.get_register(:r2)
+      assert_equal 0 , @interpreter.get_register(:r1)
+    end
+    def test_overflow
+      main_ticks( 37 )
+      assert @interpreter.flags[:overflow]
+    end
+    def test_zero
+      ticks( 12 )
+      assert @interpreter.flags[:zero]
+    end
+  end
+end

test/risc/interpreter/calling/test_plus.rb

@@ -0,0 +1,107 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterPlusTest < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main("return 5 + 5")
+      super
+    end
+
+    def test_add
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
+             RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
+             Transfer, Syscall, NilClass]
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal 10 , get_return.value
+    end
+    def test_load_5
+      lod = main_ticks( 20 )
+      assert_equal LoadConstant , lod.class
+      assert_equal Parfait::Integer , lod.constant.class
+      assert_equal 5 , lod.constant.value
+    end
+    def test_slot_receiver #load receiver from message
+      sl = main_ticks( 31 )
+      assert_equal SlotToReg , sl.class
+      assert_equal :r0 , sl.array.symbol #load from message
+      assert_equal 3 , sl.index
+      assert_equal :r1 , sl.register.symbol
+    end
+    def test_slot_args #load args from message
+      sl = main_ticks( 32 )
+      assert_equal SlotToReg , sl.class
+      assert_equal :r0 , sl.array.symbol #load from message
+      assert_equal 9 , sl.index
+      assert_equal :r2 , sl.register.symbol
+    end
+    def test_slot_arg #load arg 1, destructively from args
+      sl = main_ticks( 33 )
+      assert_equal SlotToReg , sl.class
+      assert_equal :r2 , sl.array.symbol #load from message
+      assert_equal 2 , sl.index
+      assert_equal :r2 , sl.register.symbol
+    end
+    def test_slot_int1 #load int from object
+      sl = main_ticks( 34 )
+      assert_equal SlotToReg , sl.class
+      assert_equal :r1 , sl.array.symbol #load from message
+      assert_equal 3 , sl.index
+      assert_equal :r1 , sl.register.symbol
+    end
+    def test_op
+      op = main_ticks(36)
+      assert_equal OperatorInstruction , op.class
+      assert_equal :r1 , op.left.symbol
+      assert_equal :r2 , op.right.symbol
+      assert_equal 5 , @interpreter.get_register(:r2)
+      assert_equal 10 , @interpreter.get_register(:r1)
+    end
+    def test_load_int_space
+      cons = main_ticks(37)
+      assert_equal LoadConstant , cons.class
+      assert_equal Parfait::Space , cons.constant.class
+      assert_equal :r3 , cons.register.symbol
+    end
+    def test_load_int_next_space
+      sl = main_ticks(38)
+      assert_equal SlotToReg , sl.class
+      assert_equal :r3 , sl.array.symbol #load from space
+      assert_equal 5 , sl.index
+      assert_equal :r2 , sl.register.symbol
+      assert_equal Parfait::Integer , @interpreter.get_register(:r2).class
+    end
+    def test_load_int_next_int
+      sl = main_ticks(39)
+      assert_equal SlotToReg , sl.class
+      assert_equal :r2 , sl.array.symbol #load from next_int
+      assert_equal 2 , sl.index
+      assert_equal :r4 , sl.register.symbol
+      assert_equal Parfait::Integer , @interpreter.get_register(:r4).class
+    end
+    def test_load_int_next_int2
+      sl = main_ticks(40)
+      assert_equal RegToSlot , sl.class
+      assert_equal :r3 , sl.array.symbol #store to space
+      assert_equal  5 , sl.index
+      assert_equal :r4 , sl.register.symbol
+    end
+    def test_sys
+      sys = main_ticks(62)
+      assert_equal Syscall ,  sys.class
+      assert_equal :exit ,  sys.name
+    end
+  end
+end

test/risc/interpreter/calling/test_puts.rb

@@ -0,0 +1,71 @@
+require_relative "../helper"
+
+module Risc
+  class TestPuts < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main(" return 'Hello again'.putstring ")
+      super
+    end
+
+    def test_chain
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
+             Label, SlotToReg, SlotToReg, Transfer, Syscall,
+             Transfer, Transfer, LoadConstant, SlotToReg, SlotToReg,
+             RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             FunctionReturn, Transfer, Syscall, NilClass]
+       assert_equal "Hello again" , @interpreter.stdout
+       assert_equal Parfait::Integer , get_return.class
+       assert_equal 11 , get_return.value #bytes written
+    end
+    def test_call
+      cal =  main_ticks(25)
+      assert_equal FunctionCall , cal.class
+      assert_equal :putstring , cal.method.name
+    end
+
+    def test_putstring_sys
+      done = main_ticks(30)
+      assert_equal Syscall ,  done.class
+      assert_equal "Hello again" , @interpreter.stdout
+      assert_equal 11 , @interpreter.get_register(:r0)
+      assert_equal Parfait::Word , @interpreter.get_register(:r1).class
+      assert_equal "Hello again" , @interpreter.get_register(:r1).to_string
+    end
+    def test_move_sys_return
+      sl = main_ticks(31)
+      assert_equal Transfer , sl.class
+      assert_equal :r0 , sl.from.symbol
+      assert_equal :r1 , sl.to.symbol
+      assert_equal 11 , @interpreter.get_register(:r1)
+    end
+    def test_restore_message
+      sl = main_ticks(32)
+      assert_equal Transfer , sl.class
+      assert_equal :r8 , sl.from.symbol
+      assert_equal :r0 , sl.to.symbol
+      assert_equal Parfait::Message , @interpreter.get_register(:r0).class
+    end
+    def test_save_sys_return
+      sl = main_ticks(37)
+      assert_equal RegToSlot , sl.class
+      assert_equal :r1 , sl.register.symbol #return
+      assert_equal :r2 , sl.array.symbol #parfait integer
+      assert_equal  3 , sl.index
+    end
+    def test_return
+      done = main_ticks(44)
+      assert_equal FunctionReturn ,  done.class
+    end
+
+  end
+end

test/risc/interpreter/calling/test_set_byte.rb

@@ -0,0 +1,41 @@
+require_relative "../helper"
+
+module Risc
+  class InterpretSetByte < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main("return 'Hello'.set_internal_byte(1,75)")
+      super
+    end
+
+    def test_chain
+      #show_main_ticks # get output of what is
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
+             SlotToReg, LoadConstant, FunctionCall, Label, SlotToReg,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             SlotToReg, RegToByte, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             FunctionReturn, Transfer, Syscall, NilClass]
+       assert_equal Parfait::Word , get_return.class
+       assert_equal "Kello" , get_return.to_string
+    end
+    def test_reg_to_byte
+      done = main_ticks(42)
+      assert_equal RegToByte ,  done.class
+      assert_equal "K".ord ,  @interpreter.get_register(done.register)
+    end
+    def test_exit
+      done = main_ticks(63)
+      assert_equal Syscall ,  done.class
+    end
+
+  end
+end