Final Delphi+part of FPC

Tests/Unit2.pas

@@ -7,7 +7,7 @@ uses
 type
 
   [TestFixture]
-  TMyTestObject = class(TObject) 
+  TMyTestObject = class(TObject)
   public
     // Sample Methods
     // Simple single Test
@@ -28,7 +28,7 @@ MultiLog:=TAGMultiLog.Create(nil);
 (MultiLog as TAGMultiLog).Logs.Add(TAGNullLog.Create());
 (MultiLog as TAGMultiLog).Logs.Add(TAGDiskLog.Create('test.log'));
 (MultiLog as TAGMultiLog).Logs.Add(TAGRamLog.Create());
-//(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle()));
+{$IFNDEF MSWINDOWS}(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle(STD_OUTPUT_HANDLE))){$ENDIF};
 try
   s:=TFile.ReadAllBytes('test2.log');
 except
@@ -37,8 +37,12 @@ end;
 Stream:=TFileStream.Create('test2.log',fmCreate+fmOpenReadWrite+fmShareDenyWrite);
 Stream.WriteBuffer(s,length(s));
 (MultiLog as TAGMultiLog).Logs.Add(TAGStreamLog.Create(Stream));
-//(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create());
-MultiLog.Write('aaaaaaaaaaa',self);
+(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create(procedure(s:string)
+                                                         begin
+                                                         Self.WriteLn(s);
+                                                         end));{}
+MultiLog.Write('Str Test');
+MultiLog.Write('Str+Object Test',self);
 FreeAndNil(MultiLog);
 end;