whilespace in s-exps
This commit is contained in:
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user