48 lines
2.4 KiB
Ruby
48 lines
2.4 KiB
Ruby
require_relative 'helper'
|
|
|
|
class TestWhileFragment < MiniTest::Test
|
|
include Fragments
|
|
|
|
def test_while_fibo
|
|
@string_input = <<HERE
|
|
def fibonaccit(n) # n == r0
|
|
a = 0 # a == r1
|
|
b = 1 # b = r2
|
|
while( n > 1 ) do #BUG comment lines + comments behind function calls
|
|
tmp = a # r3 <- r1
|
|
a = b # r1 <- r2
|
|
b = tmp + b # r4 = r2 + r3 (r4 transient) r2 <- r4
|
|
n = n - 1 # r0 <- r2 for call, #call ok
|
|
end #r5 <- r0 - 1 n=n-1 through r5 tmp
|
|
b.putint()
|
|
return b
|
|
end # r0 <- r5
|
|
|
|
fibonaccit( 10 )
|
|
HERE
|
|
@should = [0x0,0x40,0x2d,0xe9,0x0,0x20,0xa0,0xe3,0x1,0x30,0xa0,0xe3,0x1,0x0,0x51,0xe3,0x6,0x0,0x0,0xda,0x2,0x40,0xa0,0xe1,0x3,0x20,0xa0,0xe1,0x3,0x50,0x84,0xe0,0x5,0x30,0xa0,0xe1,0x1,0x60,0x41,0xe2,0x6,0x10,0xa0,0xe1,0xf6,0xff,0xff,0xea,0x3,0x70,0xa0,0xe1,0x0,0x80,0xbd,0xe8,0x0,0x40,0x2d,0xe9,0x0,0x20,0xa0,0xe3,0x1,0x30,0xa0,0xe3,0x1,0x0,0x51,0xe3,0x6,0x0,0x0,0xda,0x2,0x40,0xa0,0xe1,0x3,0x20,0xa0,0xe1,0x3,0x50,0x84,0xe0,0x5,0x30,0xa0,0xe1,0x1,0x60,0x41,0xe2,0x6,0x10,0xa0,0xe1,0xf6,0xff,0xff,0xea,0x3,0x70,0xa0,0xe1,0x0,0x80,0xbd,0xe8]
|
|
@output = " 55 "
|
|
@target = [:Object , :fibonaccit]
|
|
parse
|
|
write "while"
|
|
end
|
|
|
|
# a hand coded version of the fibonachi numbers (moved to kernel to be able to call it)
|
|
# not my hand off course, found in the net from a basic introduction
|
|
def test_kernel_fibo
|
|
int = Vm::Integer.new(1)
|
|
fibo = @object_space.get_or_create_class(:Object).get_or_create_function(:fibo)
|
|
main = @object_space.main
|
|
main.mov int , 10
|
|
ret = main.call( fibo )
|
|
main.mov( :r1 , :r7 )
|
|
putint = @object_space.get_or_create_class(:Object).get_or_create_function(:putint)
|
|
@object_space.main.call( putint )
|
|
@should = [0x0,0x40,0x2d,0xe9,0x1,0x0,0x51,0xe3,0x1,0x70,0xa0,0xd1,0xe,0xf0,0xa0,0xd1,0x1c,0x40,0x2d,0xe9,0x1,0x30,0xa0,0xe3,0x0,0x40,0xa0,0xe3,0x2,0x20,0x41,0xe2,0x4,0x30,0x83,0xe0,0x4,0x40,0x43,0xe0,0x1,0x20,0x52,0xe2,0xfb,0xff,0xff,0x5a,0x3,0x70,0xa0,0xe1,0x1c,0x80,0xbd,0xe8,0x0,0x80,0xbd,0xe8,0x0,0x40,0x2d,0xe9,0x1,0x0,0x51,0xe3,0x1,0x70,0xa0,0xd1,0xe,0xf0,0xa0,0xd1,0x1c,0x40,0x2d,0xe9,0x1,0x30,0xa0,0xe3,0x0,0x40,0xa0,0xe3,0x2,0x20,0x41,0xe2,0x4,0x30,0x83,0xe0,0x4,0x40,0x43,0xe0,0x1,0x20,0x52,0xe2,0xfb,0xff,0xff,0x5a,0x3,0x70,0xa0,0xe1,0x1c,0x80,0xbd,0xe8,0x0,0x80,0xbd,0xe8]
|
|
@target = [:Object , :fibo]
|
|
write "fibo"
|
|
end
|
|
|
|
end
|
|
|