107 lines
1.9 KiB
ObjectPascal
107 lines
1.9 KiB
ObjectPascal
unit TestWrapper;
|
|
|
|
interface
|
|
uses
|
|
System.SysUtils,
|
|
|
|
TestFramework,
|
|
|
|
Lua.Wrapper;
|
|
|
|
|
|
type
|
|
TTestWrapper = class(TTestCase)
|
|
private
|
|
FLua: TLua;
|
|
FPrinted: TStringBuilder;
|
|
protected
|
|
procedure SetUp; override;
|
|
procedure TearDown; override;
|
|
|
|
property Lua: TLua read FLua;
|
|
property Printed: TStringBuilder read FPrinted;
|
|
published
|
|
procedure NewState;
|
|
procedure LoadAndCallFromString;
|
|
procedure LoadAndCallFromStream;
|
|
|
|
procedure FunctionResult;
|
|
end;
|
|
|
|
|
|
implementation
|
|
uses
|
|
System.Classes;
|
|
|
|
|
|
type
|
|
TProtectedLua = class(TLua);
|
|
|
|
|
|
{ TTestWrapper }
|
|
procedure TTestWrapper.SetUp;
|
|
begin
|
|
inherited;
|
|
|
|
FPrinted := TStringBuilder.Create;
|
|
|
|
FLua := TLua.Create;
|
|
FLua.RegisterFunction('print',
|
|
procedure(AContext: ILuaContext)
|
|
begin
|
|
FPrinted.Append(AContext.Parameters.ToString);
|
|
end);
|
|
end;
|
|
|
|
|
|
procedure TTestWrapper.TearDown;
|
|
begin
|
|
FreeAndNil(FPrinted);
|
|
FreeAndNil(FLua);
|
|
|
|
inherited;
|
|
end;
|
|
|
|
|
|
procedure TTestWrapper.NewState;
|
|
begin
|
|
TProtectedLua(Lua).CheckState;
|
|
end;
|
|
|
|
|
|
|
|
procedure TTestWrapper.LoadAndCallFromString;
|
|
begin
|
|
Lua.LoadFromString('print("Hello world!")');
|
|
Lua.Call;
|
|
CheckEquals('Hello world!', Printed.ToString);
|
|
end;
|
|
|
|
|
|
procedure TTestWrapper.LoadAndCallFromStream;
|
|
begin
|
|
Lua.LoadFromStream(TStringStream.Create('print("Hello world!")'));
|
|
Lua.Call;
|
|
CheckEquals('Hello world!', Printed.ToString);
|
|
end;
|
|
|
|
|
|
procedure TTestWrapper.FunctionResult;
|
|
begin
|
|
Lua.RegisterFunction('myuppercase',
|
|
procedure(AContext: ILuaContext)
|
|
begin
|
|
AContext.Result.Push(UpperCase(AContext.Parameters[0].AsString));
|
|
end);
|
|
|
|
Lua.LoadFromString('print(myuppercase("Hello world!"))');
|
|
Lua.Call;
|
|
CheckEquals('HELLO WORLD!', Printed.ToString);
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterTest(TTestWrapper.Suite);
|
|
|
|
end.
|