use
SPVM
'TestCase::Operator::New::Array'
;
if
(
$ENV
{SPVM_TEST_PRIVATE}) {
plan;
}
else
{
plan
skip_all
=>
'This is private test because not understandable memory error occured'
;
}
my
$api
= SPVM::api();
my
$start_memory_blocks_count
=
$api
->get_memory_blocks_count();
my
$array_big_index_long_cant_alloc_memory
;
ok(SPVM::TestCase::Operator::New::Array->array_big_index_byte);
ok(SPVM::TestCase::Operator::New::Array->array_big_index_short);
ok(SPVM::TestCase::Operator::New::Array->array_big_index_int);
ok(SPVM::TestCase::Operator::New::Array->array_big_index_long);
ok(SPVM::TestCase::Operator::New::Array->array_big_index_float);
ok(SPVM::TestCase::Operator::New::Array->array_big_index_double);
ok(SPVM::TestCase::Operator::New::Array->array_max_index_byte);
$api
->set_exception(
undef
);
$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;