adds a mom version of basic values

This commit is contained in:
Torsten Ruger
2018-03-13 12:30:51 +05:30
parent 45bfe118d1
commit b297650b78
20 changed files with 94 additions and 30 deletions

View File

@ -16,7 +16,7 @@ module Mom
assert_equal 1 , @stats.length
end
def test_assigns_class
assert_equal Vool::IntegerStatement , @stats.right.class , @stats.inspect
assert_equal Mom::IntegerConstant , @stats.right.class , @stats.inspect
end
def test_assigns_value
assert_equal 5 , @stats.right.value , @stats.inspect
@ -49,7 +49,7 @@ module Mom
assert_equal 1 , @stats.length
end
def test_assigns_class
assert_equal Vool::InstanceVariable , @stats.right.class , @stats.inspect
assert_equal Mom::SlotDefinition , @stats.right.class , @stats.inspect
end
end
end

View File

@ -13,8 +13,8 @@ module Mom
def test_if_compiles
assert_equal @stats.last.class , SimpleCall , @stats
end
def test_length
assert_equal 3 , @stats.length
def test_method_name
assert_equal @stats.last.method.name , :mod4 , @stats.last.to_rxf
end
def test_array
check_array [MessageSetup,ArgumentTransfer,SimpleCall] , @stats