use
SPVM
'TestCase::Operator::UnaryMinus'
;
use
SPVM
'TestCase::Operator::NumericOperator'
;
my
$api
= SPVM::api();
my
$start_memory_blocks_count
=
$api
->get_memory_blocks_count();
{
ok(SPVM::TestCase::Operator::UnaryMinus->unary_minus_byte);
ok(SPVM::TestCase::Operator::UnaryMinus->unary_minus_short);
ok(SPVM::TestCase::Operator::UnaryMinus->unary_minus_int);
ok(SPVM::TestCase::Operator::UnaryMinus->unary_minus_long);
ok(SPVM::TestCase::Operator::UnaryMinus->unary_minus_float);
ok(SPVM::TestCase::Operator::UnaryMinus->unary_minus_double);
}
{
ok(SPVM::TestCase::Operator::NumericOperator->plus());
}
$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;