ifs working

This commit is contained in:
Torsten Ruger
2018-03-16 19:05:22 +05:30
parent da0e1cdc5f
commit 259b248588
4 changed files with 62 additions and 52 deletions

View File

@ -4,24 +4,25 @@ require_relative "helper"
module Vool
class TestConditionIfMom < MiniTest::Test
include MomCompile
include Mom
def setup
Risc.machine.boot
@stats = compile_first_method( "if(@a == 5) ; 5.mod4 ; else; 4.mod4 ; end")
@first = @stats.first
@ins = compile_first_method( "if(@a == 5) ; 5.mod4 ; else; 4.mod4 ; end")
end
def test_if_compiles_as_array
assert_equal Mom::IfStatement , @first.class , @stats
end
def test_condition_compiles_to_slot
assert_equal Mom::TruthCheck , @first.condition.class
def test_condition
assert_equal TruthCheck , @ins.next(12).class
end
def test_condition_is_slot
assert_equal Mom::SlotDefinition , @first.condition.condition.class , @stats
assert_equal SlotDefinition , @ins.next(12).condition.class , @ins
end
def test_hoisetd
assert_equal Mom::SlotLoad , @first.hoisted.class
def test_hoisted_dynamic_call
assert_equal DynamicCall , @ins.next(10).class
end
def test_array
check_array [NotSameCheck,SlotLoad,MessageSetup,SlotLoad,ArgumentTransfer,SimpleCall,SlotLoad,MessageSetup,SlotLoad,ArgumentTransfer,DynamicCall,SlotLoad,TruthCheck,Label,MessageSetup,SlotLoad,ArgumentTransfer,SimpleCall,Jump,Label,MessageSetup,SlotLoad,ArgumentTransfer,SimpleCall,Label], @ins
end
end
end