2018-04-01 20:59:06 +02:00
|
|
|
require_relative "helper"
|
|
|
|
|
|
|
|
module Risc
|
|
|
|
class InterpretSetByte < MiniTest::Test
|
|
|
|
include Ticker
|
|
|
|
|
|
|
|
def setup
|
2018-04-01 21:19:21 +02:00
|
|
|
@string_input = as_main("return 'Hello'.set_internal_byte(1,75)")
|
2018-04-01 20:59:06 +02:00
|
|
|
super
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_chain
|
2018-04-04 19:05:09 +02:00
|
|
|
#show_main_ticks # get output of what is
|
|
|
|
check_main_chain [Label, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
|
|
|
|
LoadConstant, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
|
2018-04-01 20:59:06 +02:00
|
|
|
RegToSlot, LoadConstant, SlotToReg, SlotToReg, SlotToReg,
|
2018-04-04 19:05:09 +02:00
|
|
|
SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
|
2018-04-02 22:25:52 +02:00
|
|
|
LoadConstant, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
|
2018-04-04 19:05:09 +02:00
|
|
|
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,
|
2018-04-01 21:19:21 +02:00
|
|
|
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
|
2018-04-04 19:05:09 +02:00
|
|
|
RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
|
|
|
|
SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
|
2018-04-01 20:59:06 +02:00
|
|
|
assert_equal Parfait::Word , get_return.class
|
|
|
|
assert_equal "Kello" , get_return.to_string
|
|
|
|
end
|
|
|
|
def test_reg_to_byte
|
2018-04-04 19:05:09 +02:00
|
|
|
done = main_ticks(43)
|
2018-04-01 20:59:06 +02:00
|
|
|
assert_equal RegToByte , done.class
|
|
|
|
assert_equal "K".ord , @interpreter.get_register(done.register)
|
|
|
|
end
|
|
|
|
def test_exit
|
2018-04-04 19:05:09 +02:00
|
|
|
done = main_ticks(64)
|
2018-04-01 21:19:21 +02:00
|
|
|
assert_equal Syscall , done.class
|
2018-04-01 20:59:06 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
end
|