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