Initall commit

Tests/TesterMain.pas

@@ -0,0 +1,79 @@
+unit TesterMain;
+
+interface
+
+uses
+  DUnitX.TestFramework,Fasm4Delphi,FasmOnDelphi,SysUtils;
+
+type
+  [TestFixture]
+  TMyTestObject = class(TObject) 
+  public
+    [Setup]
+    procedure Setup;
+    [TearDown]
+    procedure TearDown;
+    [Test]
+    procedure Test1;
+    [Test]
+    procedure Test2;      
+    [Test]
+    procedure Test3;
+    [Test]
+    procedure Test4;
+  end;
+
+const
+  CompliterMemSize=$10000;
+
+var
+  CompliterMem:PFASM_STATE;
+  
+implementation
+
+procedure TMyTestObject.Setup;
+begin
+end;
+
+procedure TMyTestObject.TearDown;
+begin
+end;
+
+procedure TMyTestObject.Test1;
+begin
+if fasm_AssembleFile('..\..\Test1.ASM',CompliterMem,CompliterMemSize)<>FASM_OK then
+  raise Exception.Create('Condition:    '+CompliterMem^.condition.ToString+sLineBreak+
+                         'Error Code:   '+CompliterMem^.error_code.ToString+sLineBreak);
+end;
+
+procedure TMyTestObject.Test2;
+var
+  Res:TFasmOut;
+begin
+Res:=FasmAssemble('add eax,',CompliterMemSize);
+raise Exception.Create('Answ:      '+Res.OutPut.OutStr+sLineBreak);
+                       //'Error Code:'+CompliterMem^.error_code.ToString+sLineBreak);
+if Res.OutPut.Error<>FASM_OK then
+  raise Exception.Create('Condition:    '+CompliterMem^.condition.ToString+sLineBreak+
+                         'Error Code:   '+CompliterMem^.error_code.ToString+sLineBreak);
+end;
+
+procedure TMyTestObject.Test3;
+begin
+if fasm_AssembleFile('..\..\..\FasmDll\FASM.ASH',CompliterMem,CompliterMemSize)=FASM_OK then
+  raise Exception.Create('FASM is compiling something that it is can not compile at all.');
+end;
+
+procedure TMyTestObject.Test4;
+begin
+if fasm_Assemble('call -100',CompliterMem,CompliterMemSize)<>FASM_OK then
+  raise Exception.Create('Condition:    '+CompliterMem^.condition.ToString+sLineBreak+
+                         'Error Code:   '+CompliterMem^.error_code.ToString+sLineBreak);
+end;
+
+initialization
+  TDUnitX.RegisterTestFixture(TMyTestObject);
+  OpenFASM('..\..\..\Fasm4Delphi\FasmDll\FASM.DLL',true);
+  //OpenFASM('..\..\..\fasmw172\FASM.EXE');
+  GetMem(CompliterMem,CompliterMemSize);
+end.