correct flattening for moms if

This commit is contained in:
Torsten Ruger
2017-09-08 13:12:24 +03:00
parent 985dc9904d
commit 0f83b89805
3 changed files with 46 additions and 4 deletions

View File

@ -0,0 +1,27 @@
require_relative "helper"
module Mom
class TestConditionIfMom < MiniTest::Test
include MomCompile
def setup
Risc.machine.boot
@stats = compile_first_method_flat( "if(@a == 5) ; 5.mod4 ; else; 4.mod4 ; end")
@first = @stats.next
end
def test_if_compiles
assert IfStatement != @stats.class , @stats
end
def test_check
assert_equal TruthCheck , @first.class
end
def test_condition_is_slot
assert_equal SlotDefinition , @first.condition.class , @first
end
def test_length
assert_equal 9 , @stats.length
end
end
end