Patch from Dean Zobec:

  - renamed AssertNull and AssertNotNull for Interfaces to AssertNullIntf,
    AssertNotNullIntf to not confuse the compiler in case of passing objects implementing interfaces
  - registering tests in the unit where they are defined

fcl/fpcunit/demo/consolerunner/suiteconfig.pp

@@ -20,15 +20,8 @@ unit suiteconfig;
 interface
 
 uses
-  fpcunittests, testregistry;
-
-procedure RegisterUnitTests;
+  fpcunittests, moneytest;
 
 implementation
 
-procedure RegisterUnitTests;
-begin
-  RegisterTests([TTestCaseTest, TTestSuiteTest, TAssertTest, TListenerTest]);
-end;
-
 end.

fcl/fpcunit/demo/consolerunner/testrunner.pp

@@ -17,8 +17,7 @@
  **********************************************************************}
 program testrunner;
 uses
-  custapp, classes, SysUtils, fpcunit, suiteconfig, testreport, 
-  testregistry;
+  custapp, classes, SysUtils, fpcunit, suiteconfig, testreport;
 
 Const
   ShortOpts = 'alh';
@@ -125,7 +124,6 @@ Var
   App : TTestRunner;
 
 begin
-  RegisterUnitTests;
   App:=TTestRunner.Create(Nil);
   App.Initialize;
   App.Title := 'FPCUnit Console Test Case runner.';

fcl/fpcunit/exampletests/fpcunittests.pp

@@ -20,7 +20,7 @@ unit fpcunittests;
 interface
 
 uses
-  SysUtils, Classes, fpcunit, testutils;
+  SysUtils, Classes, fpcunit, testutils, testregistry;
 
 type
 
@@ -48,6 +48,8 @@ type
     procedure TestExtractMethods;
   end;
 
+  { TAssertTest }
+
   TAssertTest = class(TTestCase)
   private
     Fa,
@@ -78,6 +80,7 @@ type
     procedure TestNull;
     procedure TestNullInterface;
     procedure TestNotNull;
+    procedure TestNotNullWithInterface;
     procedure TestNotNullInterface;
     procedure TestFailEqualsInt;
     procedure TestFailEqualsInt64;
@@ -310,6 +313,15 @@ begin
   obj.Free;
 end;
 
+procedure TAssertTest.TestNotNullWithInterface;
+var
+  obj: TMyIntfObj;
+begin
+  obj := TMyIntfObj.Create;
+  AssertNotNull(obj);
+  obj.Free;
+end;
+
 procedure TAssertTest.TestNotNullInterface;
 var
   myintf: IMyIntf;
@@ -732,4 +744,8 @@ begin
   AssertTrue(True);
 end;
 
+initialization
+
+  RegisterTests([TTestCaseTest, TTestSuiteTest, TAssertTest, TListenerTest]);
+
 end.

fcl/fpcunit/exampletests/moneytest.pp

@@ -5,7 +5,7 @@ unit moneytest;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, money;
+  Classes, SysUtils, fpcunit, money, testregistry;
 
 type
 
@@ -290,5 +290,9 @@ begin
   AssertTrue('expected ' + mb.toString + ' but was ' + (FMB2 *2).toString, (FMB2 * 2).equals(mb));
 end;
 
+initialization
+
+  RegisterTests([TMoneyTest]);
+
 end.
 

fcl/fpcunit/fpcunit.pp

@@ -90,14 +90,14 @@ type
     class procedure AssertNotSame(Expected, Actual: Pointer); overload;
     class procedure AssertNotNull(const AMessage: string; AObject: TObject); overload;
     class procedure AssertNotNull(AObject: TObject); overload;
-    class procedure AssertNotNull(const AMessage: string; AInterface: IInterface); overload;
-    class procedure AssertNotNull(AInterface: IInterface); overload;
+    class procedure AssertNotNullIntf(const AMessage: string; AInterface: IInterface); overload;
+    class procedure AssertNotNullIntf(AInterface: IInterface); overload;
     class procedure AssertNotNull(const AMessage: string; APointer: Pointer); overload;
     class procedure AssertNotNull(APointer: Pointer); overload;
     class procedure AssertNull(const AMessage: string; AObject: TObject); overload;
     class procedure AssertNull(AObject: TObject); overload;
-    class procedure AssertNull(const AMessage: string; AInterface: IInterface); overload;
-    class procedure AssertNull(AInterface: IInterface); overload;
+    class procedure AssertNullIntf(const AMessage: string; AInterface: IInterface); overload;
+    class procedure AssertNullIntf(AInterface: IInterface); overload;
     class procedure AssertNull(const AMessage: string; APointer: Pointer); overload;
     class procedure AssertNull(APointer: Pointer); overload;
     class procedure AssertNotNull(const AMessage, AString: string); overload;
@@ -518,12 +518,12 @@ begin
   AssertNotNull('', AObject);
 end;
 
-class procedure TAssert.AssertNotNull(const AMessage: string; AInterface: IInterface);
+class procedure TAssert.AssertNotNullIntf(const AMessage: string; AInterface: IInterface);
 begin
   AssertTrue(AMessage, (AInterface <> nil));
 end;
 
-class procedure TAssert.AssertNotNull(AInterface: IInterface);
+class procedure TAssert.AssertNotNullIntf(AInterface: IInterface);
 begin
   AssertNotNull('', AInterface);
 end;
@@ -548,12 +548,12 @@ begin
   AssertNull('', AObject);
 end;
 
-class procedure TAssert.AssertNull(const AMessage: string; AInterface: IInterface);
+class procedure TAssert.AssertNullIntf(const AMessage: string; AInterface: IInterface);
 begin
   AssertTrue(AMessage, (AInterface = nil));
 end;
 
-class procedure TAssert.AssertNull(AInterface: IInterface);
+class procedure TAssert.AssertNullINtf(AInterface: IInterface);
 begin
   AssertNull('', AInterface);
 end;

fcl/fpcunit/tests/asserttest.pp

@@ -20,7 +20,7 @@ unit asserttest;
 interface
 
 uses
-  fpcunit;
+  fpcunit, testregistry;
 
 type
 
@@ -210,5 +210,9 @@ begin
   Fail('Error: Objects are the same!');
 end;
 
+initialization
+
+  RegisterTests([TAssertTest]);
+
 end.
 

fcl/fpcunit/tests/suitetest.pp

@@ -20,7 +20,7 @@ unit suitetest;
 interface
 
 uses
-  fpcunit, testreport;
+  fpcunit, testreport, testregistry;
 
 type
 
@@ -218,5 +218,9 @@ begin
   end;
 end;
 
+initialization
+
+  RegisterTests([TSuiteTest]);
+
 end.