use
SPVM
'TestCase::Operator::SpecialAssign'
;
my
$api
= SPVM::api();
my
$start_memory_blocks_count
=
$api
->get_memory_blocks_count();
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_concat);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_var);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_element_access_constant_index);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_element_access_var_index);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_field_access);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_deref);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_class_var_access);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_array_field_access_constant_index);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_element_access_invocant_not_var);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_array_field_access_invocant_not_var);
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_add_field_access_invocant_not_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_subtract_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_multiply_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_divide_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_modulo_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_bit_and_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_bit_or_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_bit_xor_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_left_shift_var);
}
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_right_shift_var);
}
$api
->set_exception(
undef
);
my
$end_memory_blocks_count
=
$api
->get_memory_blocks_count();
is(
$end_memory_blocks_count
,
$start_memory_blocks_count
);
done_testing;