2015-10-15 08:47:11 +02:00
|
|
|
require_relative '../../helper'
|
|
|
|
|
|
|
|
|
|
|
|
module Statements
|
|
|
|
|
|
|
|
def check
|
2015-10-22 17:16:29 +02:00
|
|
|
machine = Register.machine
|
2015-10-15 12:08:53 +02:00
|
|
|
machine.boot unless machine.booted
|
2015-10-15 08:47:11 +02:00
|
|
|
machine.parse_and_compile @string_input
|
2015-10-22 17:16:29 +02:00
|
|
|
produced = Register.machine.space.get_main.source
|
2015-10-15 08:47:11 +02:00
|
|
|
assert @expect , "No output given"
|
|
|
|
assert_equal @expect.length , produced.blocks.length , "Block length"
|
|
|
|
produced.blocks.each_with_index do |b,i|
|
|
|
|
codes = @expect[i]
|
|
|
|
assert codes , "No codes for block #{i}"
|
|
|
|
assert_equal b.codes.length , codes.length , "Code length for block #{i+1}"
|
|
|
|
b.codes.each_with_index do |c , ii |
|
|
|
|
assert_equal codes[ii] , c.class , "Block #{i+1} , code #{ii+1}"
|
|
|
|
end
|
|
|
|
end
|
2015-10-22 10:02:57 +02:00
|
|
|
produced.blocks
|
2015-10-15 08:47:11 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
end
|