public void ExecutionCannotBeHaltedWhenEvaluatingFromWithinANativeMacro()
{
var host = new LispHost();
host.AddMacro("NATIVE-FUNCTION", (host, executionState, args) =>
{
var result = host.EvalAtStackFrame(executionState.StackFrame, LispList.FromEnumerable(new LispObject[] { LispSymbol.CreateFromString("*"), new LispInteger(2), new LispInteger(2) }));
return(result);
});
var hitBreakpoint = false;
host.RootFrame.EvaluatingExpression += (s, e) =>
{
if (!hitBreakpoint &&
e.Expression is LispList list &&
list.ToString() == "(* 2 2)")
{
hitBreakpoint = true;
e.HaltExecution = true; // this should not be honored
}
};
var evalResult = host.Eval("(native-function)");
Assert.True(hitBreakpoint);
Assert.True(evalResult.ExecutionState.IsExecutionComplete);
Assert.Equal(4, ((LispInteger)evalResult.LastResult).Value);
}
