GitHub-Mirror
/
DelphiLua
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Changed: TLuaScript > TLuaAPIScript in API unit tests to avoid confusion with Lua.Wrapper.TLuaScript

This commit is contained in:
Mark van Renswoude 2015-12-30 12:38:27 +00:00
parent fa2f6df00c
commit af0786dbf5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
UnitTests/source/TestAPI.pas
View File

@ -49,8 +49,8 @@ end;
type type
PLuaScript = ^TLuaScript; PLuaAPIScript = ^TLuaAPIScript;
TLuaScript = record TLuaAPIScript = record
Data: AnsiString; Data: AnsiString;
Remaining: Integer; Remaining: Integer;
@ -58,8 +58,8 @@ type
end; end;
{ TLuaScript } { TLuaAPIScript }
constructor TLuaScript.Create(const AData: string); constructor TLuaAPIScript.Create(const AData: string);
begin begin
Data := AnsiString(AData); Data := AnsiString(AData);
Remaining := Length(Data); Remaining := Length(Data);
@ -68,7 +68,7 @@ end;
function TestReaderProc(L: lua_State; ud: Pointer; var sz: size_t): PAnsiChar; cdecl; function TestReaderProc(L: lua_State; ud: Pointer; var sz: size_t): PAnsiChar; cdecl;
var var
script: PLuaScript; script: PLuaAPIScript;
begin begin
script := ud; script := ud;
@ -88,12 +88,12 @@ end;
procedure TTestAPI.Load; procedure TTestAPI.Load;
var var
state: lua_State; state: lua_State;
script: TLuaScript; script: TLuaAPIScript;
begin begin
state := lua_newstate(@DefaultLuaAlloc, nil); state := lua_newstate(@DefaultLuaAlloc, nil);
try try
script := TLuaScript.Create('print("Hello world!")'); script := TLuaAPIScript.Create('print("Hello world!")');
CheckEquals(0, lua_load(state, @TestReaderProc, @script, nil, nil), 'lua_load result'); CheckEquals(0, lua_load(state, @TestReaderProc, @script, nil, nil), 'lua_load result');
finally finally
lua_close(state); lua_close(state);
@ -104,14 +104,14 @@ end;
procedure TTestAPI.LoadAndCall; procedure TTestAPI.LoadAndCall;
var var
state: lua_State; state: lua_State;
script: TLuaScript; script: TLuaAPIScript;
begin begin
state := lua_newstate(@DefaultLuaAlloc, nil); state := lua_newstate(@DefaultLuaAlloc, nil);
try try
luaopen_base(state); luaopen_base(state);
script := TLuaScript.Create('print("Hello world!")'); script := TLuaAPIScript.Create('print("Hello world!")');
CheckEquals(0, lua_load(state, @TestReaderProc, @script, nil, nil), 'lua_load result'); CheckEquals(0, lua_load(state, @TestReaderProc, @script, nil, nil), 'lua_load result');
if lua_pcall(state, 0, 0, 0) <> 0 then if lua_pcall(state, 0, 0, 0) <> 0 then