Initall commit

FPCTests/testcase1.pas

@@ -0,0 +1,51 @@
+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.
+