use
lib
"$FindBin::Bin/lib"
;
BEGIN {
$ENV
{SPVM_BUILD_DIR} =
"$FindBin::Bin/.spvm_build"
; }
use
SPVM
'TestCase::Time::Local'
;
my
$api
= SPVM::api();
my
$start_memory_blocks_count
=
$api
->get_memory_blocks_count;
{
ok(SPVM::TestCase::Time::Local->timelocal);
}
{
ok(SPVM::TestCase::Time::Local->timegm);
}
{
my
$version_string
= SPVM::Fn->get_version_string(
"Time::Local"
);
is(
$SPVM::Time::Local::VERSION
,
$version_string
);
}
SPVM::Fn->destroy_runtime_permanent_vars;
my
$end_memory_blocks_count
=
$api
->get_memory_blocks_count;
is(
$end_memory_blocks_count
,
$start_memory_blocks_count
);
done_testing;