* Fixed typo (bug 27789)

git-svn-id: trunk@30460 -

packages/fcl-fpcunit/src/fpcunit.pp

@@ -881,7 +881,7 @@ end;
 class procedure TAssert.AssertException(AExceptionClass: ExceptClass;
   AMethod: TRunMethod;AExceptionMessage : String = ''; AExceptionContext : Integer = 0);
 begin
-  AssertException('', AExceptionClass, AMethod,'',0,CallerAddr);
+  AssertException('', AExceptionClass, AMethod, AExceptionMessage, 0, CallerAddr);
 end;