* Changed AssertException so "no exception" is displayed if there was no exception

git-svn-id: trunk@11567 -

packages/fcl-fpcunit/src/fpcunit.pp

@@ -302,7 +302,7 @@ Resourcestring
   SMethodNotFound = 'Method <%s> not found';
   SNoValidInheritance = ' does not inherit from TTestCase';
   SNoValidTests = 'No valid tests found in ';
-
+  SNoException = 'no exception';
 
 implementation
 
@@ -712,6 +712,7 @@ begin
   Passed := False;
   try
     AMethod;
+    ExceptionName:=SNoException;
   except
     on E: Exception do
     begin