use lib "t/testlib";
use strict;
use SPVM 'TestCase::Operator::SpecialAssign';
# Start objects count
my $api = SPVM::api();
my $start_memory_blocks_count = $api->get_memory_blocks_count();
# Special assign concat
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_concat);
}
# Special assign add
{
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);
}
# Special assign subtract
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_subtract_var);
}
# Special assign multiply
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_multiply_var);
}
# Special assign divide
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_divide_var);
}
# Special assign modulo
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_modulo_var);
}
# Special assign bit and
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_bit_and_var);
}
# Special assign bit or
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_bit_or_var);
}
# Special assign bit xor
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_bit_xor_var);
}
# Special assign left shift
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_left_shift_var);
}
# Special assign right shift
{
ok(SPVM::TestCase::Operator::SpecialAssign->special_assign_right_shift_var);
}
# All object is freed
$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;