rubyx/test/risc/test_interpreter.rb

require_relative "helper"

module Risc
  class TestInterpreterBasics < MiniTest::Test

    def test_class
      assert_equal Risc::Interpreter , Interpreter.new.class
    end
    def test_starts_stopped
      assert_equal :stopped , Interpreter.new.state
    end
    def test_has_regs
      assert_equal 12 , Interpreter.new.registers.length
    end
    def test_has_r0
      assert_equal :r0 , Interpreter.new.registers.keys.first
    end
  end
  class TestInterpreterStarts < MiniTest::Test
    def setup
      Parfait.boot!
      @machine = Risc.machine.boot
      @machine.translate(:interpreter)
      @machine.position_all
      @interpreter = Interpreter.new
    end
    def test_starts
      assert_equal 0 , @interpreter.start_machine
    end
    def test_started
      @interpreter.start_machine
      assert_equal :running , @interpreter.state
    end
    def test_pos
      @interpreter.start_machine
      assert_equal 1 , @interpreter.clock
    end
  end
  class TestInterpreterTicks < MiniTest::Test
    def setup
      Parfait.boot!
      @machine = Risc.machine.boot
      @machine.translate(:interpreter)
      @machine.position_all
      @interpreter = Interpreter.new
      @interpreter.start_machine
    end
    def test_tick1
      assert_equal 2 , @interpreter.tick
    end
    def test_clock1
      @interpreter.tick
      assert_equal 2 , @interpreter.clock
    end
    def test_pc1
      @interpreter.tick
      assert_equal 20728 , @interpreter.pc
    end
    def test_tick2
      @interpreter.tick
      assert_equal 3 , @interpreter.tick
    end
    def test_clock2
      @interpreter.tick
      @interpreter.tick
      assert_equal 3 , @interpreter.clock
    end
    def test_pc2
      @interpreter.tick
      @interpreter.tick
      assert_equal 20732 , @interpreter.pc
    end
    def test_tick_14_jump
      14.times {@interpreter.tick}
      assert_equal Branch , @interpreter.instruction.class
    end
    def test_tick_14_bin
      13.times {@interpreter.tick}
      binary_pos = binary_position
      @interpreter.tick #jump has no listener
      @interpreter.tick
      assert binary_pos.at != binary_position.at , "#{binary_pos}!=#{binary_position}"
    end
    def binary_position
      pos = Position.get(@interpreter.instruction)
      list = pos.event_table[:position_changed].first
      assert_equal InstructionListener, list.class
      Position.get(list.binary)
    end
    def test_tick_15 #more than a binary code worth
      15.times {@interpreter.tick}
    end
  end
end