52 lines
1.4 KiB
ObjectPascal
52 lines
1.4 KiB
ObjectPascal
unit TestCase1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, fpcunit, testutils, testregistry,Fasm4Delphi;
|
|
|
|
type
|
|
|
|
TTestCase1= class(TTestCase)
|
|
published
|
|
procedure TestHookUp;
|
|
end;
|
|
|
|
implementation
|
|
|
|
const
|
|
CompliterMemSize=$10000;
|
|
|
|
var
|
|
CompliterMem:PFASM_STATE;
|
|
|
|
procedure TTestCase1.TestHookUp;
|
|
begin
|
|
if fasm_AssembleFile('..\Tests\Test1.asm',CompliterMem,CompliterMemSize)<>FASM_OK then
|
|
Fail('Error in test1:'+sLineBreak+
|
|
'Condition: '+CompliterMem^.condition.ToString+sLineBreak+
|
|
'Error Code: '+CompliterMem^.error_code.ToString);
|
|
if fasm_Assemble('add eax,0',CompliterMem,CompliterMemSize)<>FASM_OK then
|
|
writeln('Error in test2:'+sLineBreak+
|
|
'Condition: '+CompliterMem^.condition.ToString+sLineBreak+
|
|
'Error Code: '+CompliterMem^.error_code.ToString);
|
|
if fasm_AssembleFile('..\FasmDll\FASM.ASH',CompliterMem,CompliterMemSize)=FASM_OK then
|
|
Fail('Error in test3:'+sLineBreak+
|
|
'FASM is compiling something that it is can not compile at all.');
|
|
if fasm_Assemble('call -100',CompliterMem,CompliterMemSize)<>FASM_OK then
|
|
Fail('Error in test4:'+sLineBreak+
|
|
'Condition: '+CompliterMem^.condition.ToString+sLineBreak+
|
|
'Error Code: '+CompliterMem^.error_code.ToString);
|
|
end;
|
|
|
|
|
|
|
|
initialization
|
|
LoadFASM('..\FasmDll\FASM.DLL');
|
|
GetMem(CompliterMem,CompliterMemSize);
|
|
RegisterTest(TTestCase1);
|
|
end.
|
|
|