From 71f89ce8cd3dd95b83c406c3d8a97eb859a797a4 Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 14 Aug 2008 08:07:16 +0000 Subject: [PATCH] * Changed AssertException so "no exception" is displayed if there was no exception git-svn-id: trunk@11567 - --- packages/fcl-fpcunit/src/fpcunit.pp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/packages/fcl-fpcunit/src/fpcunit.pp b/packages/fcl-fpcunit/src/fpcunit.pp index b5f83fe812..00b44d71df 100644 --- a/packages/fcl-fpcunit/src/fpcunit.pp +++ b/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