use
SPVM
'TestCase::Literal::String'
;
my
$api
= SPVM::api();
my
$start_memory_blocks_count
=
$api
->get_memory_blocks_count();
{
ok(SPVM::TestCase::Literal::String->characters);
ok(SPVM::TestCase::Literal::String->escape_character);
ok(SPVM::TestCase::Literal::String->octal_escape_character);
ok(SPVM::TestCase::Literal::String->hexadecimal_escape_character);
ok(SPVM::TestCase::Literal::String->unicode_escape_character);
ok(SPVM::TestCase::Literal::String->raw_escape_character);
ok(SPVM::TestCase::Literal::String->var_expansion);
ok(SPVM::TestCase::Literal::String->heredoc_like_lf);
ok(SPVM::TestCase::Literal::String->string_literal_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;