small test improvement

This commit is contained in:
Torsten Ruger 2016-12-13 18:48:42 +02:00
parent c346260bde
commit 2c5541fb19
2 changed files with 18 additions and 4 deletions

View File

@ -6,6 +6,7 @@ class TestDictionary < MiniTest::Test
@lookup = ::Parfait::Dictionary.new
end
def test_dict_create
assert_equal 0 , @lookup.length
assert @lookup.empty?
end
def test_empty_dict_doesnt_return
@ -14,6 +15,17 @@ class TestDictionary < MiniTest::Test
end
def test_one_set1
assert_equal 1 , @lookup.set(1,1)
assert_equal 1 , @lookup.length
end
def test_one_double
assert_equal 1 , @lookup.set(1,1)
assert_equal 3 , @lookup.set(1,3)
assert_equal 1 , @lookup.length
end
def test_one_double2
assert_equal 1 , @lookup.set(:one,1)
assert_equal 3 , @lookup.set(:one,3)
assert_equal 1 , @lookup.length
end
def test_one_set2
assert_equal :some , @lookup.set(1,:some)

View File

@ -6,15 +6,17 @@ module Register
include Statements
def test_field_frame
@input = s(:statements, s(:field_def, :Message, s(:name, :m)), s(:return, s(:field_access, s(:receiver, s(:name, :m)), s(:field, s(:name, :name)))))
@input = s(:statements, s(:field_def, :Message, s(:name, :m)),
s(:return, s(:field_access, s(:receiver, s(:name, :m)), s(:field, s(:name, :name)))))
@expect = [Label, GetSlot, GetSlot, GetSlot, SetSlot, Label, FunctionReturn]
check
end
def test_field_arg
clean_compile s(:statements, s(:class, :Space, s(:derives, nil), s(:statements, s(:function, :Integer, s(:name, :get_name), s(:parameters, s(:parameter, :Message, :main)), s(:statements, s(:return, s(:field_access, s(:receiver, s(:name, :main)), s(:field, s(:name, :name)))))))))
clean_compile s(:statements, s(:class, :Space, s(:derives, nil), s(:statements,
s(:function, :Integer, s(:name, :get_name), s(:parameters, s(:parameter, :Message, :main)),
s(:statements, s(:return, s(:field_access,
s(:receiver, s(:name, :main)), s(:field, s(:name, :name)))))))))
@input =s(:statements, s(:field_def, :Message, s(:name, :m)), s(:return, s(:call, s(:name, :get_name), s(:arguments, s(:name, :m)))))
@expect = [Label, GetSlot, GetSlot, SetSlot, LoadConstant, SetSlot, LoadConstant ,