2018-04-23 12:16:46 +02:00
|
|
|
require_relative "../helper"
|
2015-11-08 13:30:28 +01:00
|
|
|
|
2017-01-19 08:02:29 +01:00
|
|
|
module Risc
|
2018-03-30 16:09:02 +02:00
|
|
|
class InterpreterPlusTest < MiniTest::Test
|
2017-01-03 21:42:40 +01:00
|
|
|
include Ticker
|
2015-11-08 13:30:28 +01:00
|
|
|
|
2017-01-03 21:42:40 +01:00
|
|
|
def setup
|
2018-04-01 13:01:17 +02:00
|
|
|
@string_input = as_main("return 5 + 5")
|
2017-01-03 21:42:40 +01:00
|
|
|
super
|
|
|
|
end
|
2015-11-08 13:30:28 +01:00
|
|
|
|
2018-05-25 19:40:39 +02:00
|
|
|
def test_add
|
2018-04-04 19:05:09 +02:00
|
|
|
#show_main_ticks # get output of what is
|
2018-05-24 20:20:56 +02:00
|
|
|
check_main_chain [LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
|
|
|
|
SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
|
2018-05-25 19:40:39 +02:00
|
|
|
RegToSlot, SlotToReg, RegToSlot, Branch, SlotToReg,
|
|
|
|
RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
|
|
|
|
SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
|
|
|
|
RegToSlot, SlotToReg, Branch, FunctionCall, SlotToReg,
|
|
|
|
SlotToReg, SlotToReg, SlotToReg, SlotToReg, OperatorInstruction,
|
|
|
|
LoadConstant, SlotToReg, SlotToReg, RegToSlot, RegToSlot,
|
|
|
|
RegToSlot, SlotToReg, Branch, SlotToReg, RegToSlot,
|
|
|
|
SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
|
2018-05-24 20:20:56 +02:00
|
|
|
RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
|
2018-05-25 19:40:39 +02:00
|
|
|
SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
|
|
|
|
Transfer, Syscall, NilClass]
|
2018-03-31 19:21:27 +02:00
|
|
|
assert_equal Parfait::Integer , get_return.class
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal 10 , get_return.value
|
2017-01-03 21:42:40 +01:00
|
|
|
end
|
2018-03-31 18:37:24 +02:00
|
|
|
def test_load_5
|
2018-05-25 19:40:39 +02:00
|
|
|
lod = main_ticks( 20 )
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal LoadConstant , lod.class
|
|
|
|
assert_equal Parfait::Integer , lod.constant.class
|
|
|
|
assert_equal 5 , lod.constant.value
|
|
|
|
end
|
2018-05-24 20:20:56 +02:00
|
|
|
def base
|
2018-05-25 19:40:39 +02:00
|
|
|
30
|
2018-05-24 20:20:56 +02:00
|
|
|
end
|
2018-03-31 18:37:24 +02:00
|
|
|
def test_slot_receiver #load receiver from message
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks( base )
|
2018-03-30 17:05:38 +02:00
|
|
|
assert_equal SlotToReg , sl.class
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal :r0 , sl.array.symbol #load from message
|
2018-05-14 19:50:52 +02:00
|
|
|
assert_equal 2 , sl.index
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal :r1 , sl.register.symbol
|
2018-03-30 17:05:38 +02:00
|
|
|
end
|
2018-03-31 18:37:24 +02:00
|
|
|
def test_slot_args #load args from message
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks( base + 1 )
|
2018-03-30 17:05:38 +02:00
|
|
|
assert_equal SlotToReg , sl.class
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal :r0 , sl.array.symbol #load from message
|
2018-05-14 19:50:52 +02:00
|
|
|
assert_equal 8 , sl.index
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal :r2 , sl.register.symbol
|
2018-03-30 17:05:38 +02:00
|
|
|
end
|
2018-03-31 18:37:24 +02:00
|
|
|
def test_slot_arg #load arg 1, destructively from args
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks( base + 2 )
|
2018-03-30 17:05:38 +02:00
|
|
|
assert_equal SlotToReg , sl.class
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal :r2 , sl.array.symbol #load from message
|
2018-05-14 19:50:52 +02:00
|
|
|
assert_equal 1 , sl.index
|
2018-03-30 17:05:38 +02:00
|
|
|
assert_equal :r2 , sl.register.symbol
|
|
|
|
end
|
2018-03-31 18:37:24 +02:00
|
|
|
def test_slot_int1 #load int from object
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks( base + 3 )
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal SlotToReg , sl.class
|
|
|
|
assert_equal :r1 , sl.array.symbol #load from message
|
2018-05-28 14:09:59 +02:00
|
|
|
assert_equal 2 , sl.index
|
2018-03-31 18:37:24 +02:00
|
|
|
assert_equal :r1 , sl.register.symbol
|
2017-01-03 21:42:40 +01:00
|
|
|
end
|
2018-03-31 18:37:24 +02:00
|
|
|
def test_op
|
2018-05-24 20:20:56 +02:00
|
|
|
op = main_ticks(base + 5)
|
2018-03-31 18:37:24 +02:00
|
|
|
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)
|
2017-01-03 21:42:40 +01:00
|
|
|
end
|
2018-04-01 11:00:59 +02:00
|
|
|
def test_load_int_space
|
2018-05-24 20:20:56 +02:00
|
|
|
cons = main_ticks(base + 6)
|
2018-04-01 11:00:59 +02:00
|
|
|
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
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks(base + 7)
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal SlotToReg , sl.class
|
|
|
|
assert_equal :r3 , sl.array.symbol #load from space
|
2018-05-14 19:50:52 +02:00
|
|
|
assert_equal 4 , sl.index
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal :r2 , sl.register.symbol
|
|
|
|
assert_equal Parfait::Integer , @interpreter.get_register(:r2).class
|
|
|
|
end
|
|
|
|
def test_load_int_next_int
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks(base + 8)
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal SlotToReg , sl.class
|
|
|
|
assert_equal :r2 , sl.array.symbol #load from next_int
|
2018-05-14 19:50:52 +02:00
|
|
|
assert_equal 1 , sl.index
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal :r4 , sl.register.symbol
|
|
|
|
assert_equal Parfait::Integer , @interpreter.get_register(:r4).class
|
|
|
|
end
|
|
|
|
def test_load_int_next_int2
|
2018-05-24 20:20:56 +02:00
|
|
|
sl = main_ticks(base + 9)
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal RegToSlot , sl.class
|
|
|
|
assert_equal :r3 , sl.array.symbol #store to space
|
2018-05-14 19:50:52 +02:00
|
|
|
assert_equal 4 , sl.index
|
2018-04-01 11:00:59 +02:00
|
|
|
assert_equal :r4 , sl.register.symbol
|
|
|
|
end
|
2018-04-01 13:56:01 +02:00
|
|
|
def test_sys
|
2018-05-25 19:40:39 +02:00
|
|
|
sys = main_ticks(62)
|
2018-04-01 13:56:01 +02:00
|
|
|
assert_equal Syscall , sys.class
|
|
|
|
assert_equal :exit , sys.name
|
|
|
|
end
|
2015-11-08 14:15:55 +01:00
|
|
|
end
|
2015-11-08 13:30:28 +01:00
|
|
|
end
|