putting tests into module
This commit is contained in:
@ -1,51 +1,53 @@
|
||||
require_relative "helper"
|
||||
|
||||
class IfCalledTest < MiniTest::Test
|
||||
include Ticker
|
||||
include Compiling
|
||||
module Register
|
||||
class IfCalledTest < MiniTest::Test
|
||||
include Ticker
|
||||
include Compiling
|
||||
|
||||
def setup
|
||||
@string_input = <<HERE
|
||||
class Space
|
||||
int itest(int n)
|
||||
if_zero( n - 12)
|
||||
"then".putstring()
|
||||
else
|
||||
"else".putstring()
|
||||
def setup
|
||||
@string_input = <<HERE
|
||||
class Space
|
||||
int itest(int n)
|
||||
if_zero( n - 12)
|
||||
"then".putstring()
|
||||
else
|
||||
"else".putstring()
|
||||
end
|
||||
end
|
||||
|
||||
int main()
|
||||
itest(20)
|
||||
end
|
||||
end
|
||||
|
||||
int main()
|
||||
itest(20)
|
||||
end
|
||||
end
|
||||
HERE
|
||||
@input = s(:statements, s(:call, s(:name, :itest), s(:arguments, s(:int, 20))))
|
||||
super
|
||||
end
|
||||
@input = s(:statements, s(:call, s(:name, :itest), s(:arguments, s(:int, 20))))
|
||||
super
|
||||
end
|
||||
|
||||
# must be after boot, but before main compile, to define method
|
||||
def do_clean_compile
|
||||
clean_compile :Space , :itest , {:n => :Integer} ,
|
||||
s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:name, :n), s(:int, 12))),
|
||||
s(:true_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "then")))),
|
||||
s(:false_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "else"))))))
|
||||
end
|
||||
def test_if
|
||||
#show_ticks # get output of what is
|
||||
check_chain ["Branch","Label","LoadConstant","SlotToReg","RegToSlot",
|
||||
"LoadConstant","RegToSlot","FunctionCall","Label","SlotToReg",
|
||||
"SlotToReg","RegToSlot","LoadConstant","RegToSlot","LoadConstant",
|
||||
"SlotToReg","SlotToReg","RegToSlot","LoadConstant","SlotToReg",
|
||||
"RegToSlot","LoadConstant","RegToSlot","RegisterTransfer","FunctionCall",
|
||||
"Label","SlotToReg","SlotToReg","LoadConstant","OperatorInstruction",
|
||||
"IsZero","SlotToReg","LoadConstant","RegToSlot","LoadConstant",
|
||||
"RegToSlot","LoadConstant","SlotToReg","SlotToReg","RegToSlot",
|
||||
"LoadConstant","RegToSlot","RegisterTransfer","FunctionCall","Label",
|
||||
"SlotToReg","SlotToReg","RegisterTransfer","Syscall","RegisterTransfer",
|
||||
"RegisterTransfer","RegToSlot","Label","FunctionReturn","RegisterTransfer",
|
||||
"SlotToReg","SlotToReg","Branch","Label","Label",
|
||||
"FunctionReturn","RegisterTransfer","SlotToReg","SlotToReg","Label",
|
||||
"FunctionReturn","RegisterTransfer","Syscall","NilClass"]
|
||||
# must be after boot, but before main compile, to define method
|
||||
def do_clean_compile
|
||||
clean_compile :Space , :itest , {:n => :Integer} ,
|
||||
s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:name, :n), s(:int, 12))),
|
||||
s(:true_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "then")))),
|
||||
s(:false_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "else"))))))
|
||||
end
|
||||
def test_if
|
||||
#show_ticks # get output of what is
|
||||
check_chain ["Branch","Label","LoadConstant","SlotToReg","RegToSlot",
|
||||
"LoadConstant","RegToSlot","FunctionCall","Label","SlotToReg",
|
||||
"SlotToReg","RegToSlot","LoadConstant","RegToSlot","LoadConstant",
|
||||
"SlotToReg","SlotToReg","RegToSlot","LoadConstant","SlotToReg",
|
||||
"RegToSlot","LoadConstant","RegToSlot","RegisterTransfer","FunctionCall",
|
||||
"Label","SlotToReg","SlotToReg","LoadConstant","OperatorInstruction",
|
||||
"IsZero","SlotToReg","LoadConstant","RegToSlot","LoadConstant",
|
||||
"RegToSlot","LoadConstant","SlotToReg","SlotToReg","RegToSlot",
|
||||
"LoadConstant","RegToSlot","RegisterTransfer","FunctionCall","Label",
|
||||
"SlotToReg","SlotToReg","RegisterTransfer","Syscall","RegisterTransfer",
|
||||
"RegisterTransfer","RegToSlot","Label","FunctionReturn","RegisterTransfer",
|
||||
"SlotToReg","SlotToReg","Branch","Label","Label",
|
||||
"FunctionReturn","RegisterTransfer","SlotToReg","SlotToReg","Label",
|
||||
"FunctionReturn","RegisterTransfer","Syscall","NilClass"]
|
||||
end
|
||||
end
|
||||
end
|
||||
|
Reference in New Issue
Block a user