use
Test::More;
use
strict;
use
warnings;
use
FindBin;
BEGIN {
$ENV
{SPVM_BUILD_DIR} =
"$FindBin::Bin/.spvm_build"
; }
# Start objects count
my
$start_memory_blocks_count
= SPVM::api->get_memory_blocks_count();
ok(SPVM::TestCase::Sys::Ioctl->
ioctl
);
SPVM::api->set_exception(
undef
);
# All object is freed
my
$end_memory_blocks_count
= SPVM::api->get_memory_blocks_count();
is(
$end_memory_blocks_count
,
$start_memory_blocks_count
);
done_testing;