use
SPVM
'TestCase::Operator::Isa'
;
my
$api
= SPVM::api();
my
$start_memory_blocks_count
=
$api
->get_memory_blocks_count();
{
ok(SPVM::TestCase::Operator::Isa->isa);
ok(SPVM::TestCase::Operator::Isa->isa_any_object_type);
ok(SPVM::TestCase::Operator::Isa->isa_numeric_type);
ok(SPVM::TestCase::Operator::Isa->isa_multi_numeric_type);
ok(SPVM::TestCase::Operator::Isa->isa_match_class);
ok(SPVM::TestCase::Operator::Isa->isa_not_match_class);
ok(SPVM::TestCase::Operator::Isa->isa_match_array);
ok(SPVM::TestCase::Operator::Isa->isa_not_match_class_undef);
ok(SPVM::TestCase::Operator::Isa->isa_match_callback);
ok(SPVM::TestCase::Operator::Isa->isa_not_match_callback_undef);
ok(SPVM::TestCase::Operator::Isa->isa_error);
ok(SPVM::TestCase::Operator::Isa->isa_extra);
}
$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;