2015-11-07 12:18:08 +02:00
|
|
|
require_relative "helper"
|
2015-09-27 11:28:06 +03:00
|
|
|
|
2015-10-22 18:16:29 +03:00
|
|
|
module Register
|
2015-10-13 16:42:53 +03:00
|
|
|
class TestFields < MiniTest::Test
|
2015-11-07 12:18:08 +02:00
|
|
|
include ExpressionHelper
|
2016-12-10 15:18:37 +02:00
|
|
|
include AST::Sexp
|
2015-09-27 11:28:06 +03:00
|
|
|
|
2015-10-13 16:42:53 +03:00
|
|
|
def setup
|
2015-10-22 18:16:29 +03:00
|
|
|
Register.machine.boot
|
2015-10-13 16:42:53 +03:00
|
|
|
end
|
|
|
|
|
|
|
|
def test_field_not_defined
|
|
|
|
@root = :field_access
|
2016-12-10 15:18:37 +02:00
|
|
|
@input = s(:field_access, s(:receiver, s(:name, :self)), s(:field, s(:name, :a)))
|
2015-10-13 16:42:53 +03:00
|
|
|
assert_raises(RuntimeError) { check }
|
2015-09-27 11:28:06 +03:00
|
|
|
end
|
|
|
|
|
2015-11-07 12:18:08 +02:00
|
|
|
def test_field_not_space
|
|
|
|
@root = :field_access
|
2016-12-10 23:07:04 +02:00
|
|
|
@input = s(:field_access, s(:receiver, s(:name, :self)), s(:field, s(:name, :space)))
|
2016-12-10 15:18:37 +02:00
|
|
|
|
2015-11-07 12:18:08 +02:00
|
|
|
assert_raises(RuntimeError) { check }
|
|
|
|
end
|
|
|
|
|
2015-10-13 16:42:53 +03:00
|
|
|
def test_field
|
2016-12-10 18:07:38 +02:00
|
|
|
add_space_field(:bro,:Object)
|
2015-10-13 16:42:53 +03:00
|
|
|
@root = :field_access
|
2016-12-10 23:07:04 +02:00
|
|
|
@input = s(:field_access,s(:receiver, s(:name, :self)),s(:field,s(:name, :bro)))
|
2015-10-14 21:34:18 +03:00
|
|
|
@output = Register::RegisterValue
|
|
|
|
check
|
2015-10-13 16:42:53 +03:00
|
|
|
end
|
2015-09-27 11:28:06 +03:00
|
|
|
|
|
|
|
end
|
|
|
|
end
|