|
use SPVM 'TestCase::LocalVar' ; my $api = SPVM::api();
my $start_memory_blocks_count = $api ->get_memory_blocks_count();
{
ok(SPVM::TestCase::LocalVar->name);
ok(SPVM::TestCase::LocalVar->var_brace);
ok(SPVM::TestCase::LocalVar->upper_case);
ok(SPVM::TestCase::LocalVar->high_precidence_than_class_var);
ok(SPVM::TestCase::LocalVar->with_logical_operator);
}
$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;
|