paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@11567 -
This commit is contained in:
michael 2008-08-14 08:07:16 +00:00
parent 89ae7d0b25
commit 71f89ce8cd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-fpcunit/src/fpcunit.pp
View File

@ -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