more test fixes and more to do

This commit is contained in:
2019-08-10 21:59:31 +03:00
parent 213938075f
commit 0b59c95218
17 changed files with 58 additions and 47 deletions

View File

@ -7,21 +7,21 @@ module VoolBlocks
def setup
Parfait.boot!(Parfait.default_test_options)
Risc::Builtin.boot_functions
#Risc::Builtin.boot_functions
@ins = compile_first_block( "if(5.div4) ; @a = 6 ; else; @a = 5 ; end")
end
def test_condition
def pest_condition
assert_equal TruthCheck , @ins.next(4).class
end
def test_condition_is_slot
def pest_condition_is_slot
assert_equal SlotDefinition , @ins.next(4).condition.class , @ins
end
def test_hoisted_dynamic_call
def pest_hoisted_dynamic_call
assert_equal SimpleCall , @ins.next(2).class
assert_equal :div4 , @ins.next(2).method.name
end
def test_array
def pest_array
check_array [MessageSetup, ArgumentTransfer, SimpleCall, SlotLoad, TruthCheck, Label ,
SlotLoad, Jump, Label, SlotLoad, Label] , @ins
end

View File

@ -6,8 +6,7 @@ module VoolBlocks
def setup
Parfait.boot!(Parfait.default_test_options)
@compiler = compile_first_block( "while(@a) ; @a = 5 ; end")
@ins = @compiler.mom_instructions.next
@ins = compile_first_block( "while(@a) ; @a = 5 ; end")
end
def test_compiles_as_while

View File

@ -8,7 +8,7 @@ module Vool
def setup
Parfait.boot!(Parfait.default_test_options)
Risc::Builtin.boot_functions
#Risc::Builtin.boot_functions
@ins = compile_first_method( send_method )
end

View File

@ -7,7 +7,7 @@ module Vool
def setup
Parfait.boot!(Parfait.default_test_options)
Risc::Builtin.boot_functions
#Risc::Builtin.boot_functions
@ins = compile_first_method( send_method )
end

View File

@ -10,24 +10,24 @@ module Vool
@compiler = compile_first_method( "a = 5; a.div4")
@ins = @compiler.mom_instructions.next
end
def test_check_type
def pest_check_type
assert_equal NotSameCheck , @ins.next.class , @ins
end
def test_type_update
def pest_type_update
load = @ins.next(2)
assert_equal :message , load.right.known_object , load
assert_equal :frame , load.right.slots[0] , load
assert_equal :a , load.right.slots[1] , load
assert_equal :type , load.right.slots[2] , load
end
def test_check_resolve_call
def pest_check_resolve_call
assert_equal ResolveMethod , @ins.next(3).class , @ins
end
def test_dynamic_call_last
def pest_dynamic_call_last
assert_equal DynamicCall , @ins.last.class , @ins
end
def test_array
def pest_array
check_array [SlotLoad, NotSameCheck, SlotLoad, ResolveMethod, Label, MessageSetup ,
ArgumentTransfer, DynamicCall] , @ins
end