fix tests for NameExpression split

also necessitates giving method name without the wrapping expression
which is simpler anyway
This commit is contained in:
Torsten Ruger
2017-01-16 09:34:47 +02:00
parent 5f7ea08a43
commit 8dbbffd58e
19 changed files with 71 additions and 93 deletions

View File

@ -13,7 +13,7 @@ module Register
end
HERE
@input = s(:statements, s(:call,
s(:name, :set_internal_byte),
:set_internal_byte ,
s(:arguments, s(:int, 1), s(:int, 104)),
s(:receiver, s(:string, "Hello"))))
super

View File

@ -21,16 +21,16 @@ module Register
end
end
HERE
@input = s(:statements, s(:call, s(:name, :itest), s(:arguments, s(:int, 20))))
@input = s(:statements, s(:call, :itest , s(:arguments, s(:int, 20))))
super
end
# must be after boot, but before main compile, to define method
def do_clean_compile
clean_compile :Space , :itest , {:n => :Integer} ,
s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:name, :n), s(:int, 12))),
s(:true_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "then")))),
s(:false_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "else"))))))
s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:arg, :n), s(:int, 12))),
s(:true_statements, s(:call, :putstring , s(:arguments), s(:receiver, s(:string, "then")))),
s(:false_statements, s(:call, :putstring , s(:arguments), s(:receiver, s(:string, "else"))))))
end
def test_if
#show_ticks # get output of what is

View File

@ -12,7 +12,7 @@ module Register
end
end
HERE
@input = s(:statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "Hello again"))))
@input = s(:statements, s(:call, :putstring, s(:arguments), s(:receiver, s(:string, "Hello again"))))
super
end

View File

@ -13,7 +13,7 @@ module Register
end
HERE
@input = s(:statements, s(:call,
s(:name, :get_internal_byte),
:get_internal_byte,
s(:arguments, s(:int, 1)),
s(:receiver, s(:string, "Hello"))))
super

View File

@ -18,8 +18,8 @@ module Register
end
HERE
@input = s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:int, 10), s(:int, 12))),
s(:true_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "then")))),
s(:false_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "else"))))))
s(:true_statements, s(:call, :putstring, s(:arguments), s(:receiver, s(:string, "then")))),
s(:false_statements, s(:call, :putstring, s(:arguments), s(:receiver, s(:string, "else"))))))
super
end