my
$loaded
= 0;
END { fail(
"Able to 'use Inline SLang'"
)
unless
$loaded
; }
pass(
"Able to 'use Inline SLang'"
);
$loaded
= 1;
eval
{
print
JAxH(
'Inline'
); };
is( $@,
""
,
"We're just another Inline hacker"
);
eval
{ Inline::SLang::sl_eval(
"variable = ;"
); };
like( $@,
qr/^S-Lang Error: Syntax Error: Expecting a variable name: found '=', line 1, file: \*\*\*string\*\*\*/
,
"Can catch S-Lang error messages via eval"
);
is( JAxH(
"re-installed"
),
"Just Another re-installed Hacker\n"
,
"and the S-Lang interpreter has been re-started"
);