whilespace in s-exps

This commit is contained in:
Torsten Ruger
2016-12-10 23:07:04 +02:00
parent 99454b3efe
commit fa0e279620
17 changed files with 55 additions and 345 deletions

View File

@ -11,28 +11,28 @@ module Register
end
def test_call_main_plain
@input = s(:call, s(:name, :main), s(:arguments))
@input = s(:call,s(:name, :main),s(:arguments))
check
end
def test_call_main_int
@input = s(:call, s(:name, :main), s(:arguments , s(:int, 1)))
@input =s(:call,s(:name, :main),s(:arguments , s(:int, 1)))
check
end
def test_call_main_string
@input = s(:call, s(:name, :main), s(:arguments , s(:string, "1") ))
@input =s(:call,s(:name, :main),s(:arguments , s(:string, "1") ))
check
end
def test_call_main_op
Register.machine.space.get_main.ensure_local(:bar , :Integer)
@input = s(:call, s(:name, :main), s(:arguments , s(:name, :bar) ))
@input =s(:call,s(:name, :main),s(:arguments , s(:name, :bar) ))
check
end
def test_call_string_put
@input = s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "Hello Raisa, I am salama")))
@input = s(:call,s(:name, :putstring),s(:arguments),s(:receiver,s(:string, "Hello Raisa, I am salama")))
check
end

View File

@ -17,11 +17,7 @@ module Register
def test_field_not_space
@root = :field_access
@input = s(:field_access,
s(:receiver,
s(:name, :self)),
s(:field,
s(:name, :space)))
@input = s(:field_access, s(:receiver, s(:name, :self)), s(:field, s(:name, :space)))
assert_raises(RuntimeError) { check }
end
@ -29,7 +25,7 @@ module Register
def test_field
add_space_field(:bro,:Object)
@root = :field_access
@input = s(:field_access, s(:receiver, s(:name, :self)), s(:field, s(:name, :bro)))
@input = s(:field_access,s(:receiver, s(:name, :self)),s(:field,s(:name, :bro)))
@output = Register::RegisterValue
check
end

View File

@ -33,16 +33,13 @@ module Register
def test_field_int
add_space_field(:bro,:int)
@input = s(:operator_value, :+, s(:field_access, s(:receiver, s(:name, :self)),
s(:field, s(:name, :bro))),
s(:int, 3))
@input = s(:operator_value, :+, s(:field_access,s(:receiver, s(:name, :self)), s(:field, s(:name, :bro))), s(:int, 3))
check
end
def test_int_field
add_space_field(:bro,:int)
@input = s(:operator_value, :+, s(:int, 3), s(:field_access, s(:receiver, s(:name, :self)),
s(:field,s(:name, :bro))))
@input = s(:operator_value, :+, s(:int, 3), s(:field_access, s(:receiver, s(:name, :self)), s(:field,s(:name, :bro))))
check
end
end