diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-08-14 08:07:16 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-08-14 08:07:16 +0000 |
| commit | 2e6e87c8df554e2d80b8fa85a69d7c3b33af32ba (patch) | |
| tree | c2fa8ed4c90f0a25dc40e4a8cc64f39587a2946e /packages/fcl-fpcunit/src | |
| parent | 02edea428892b1dbf456217f1afe85cd3aa61248 (diff) | |
| download | fpc-2e6e87c8df554e2d80b8fa85a69d7c3b33af32ba.tar.gz | |
* Changed AssertException so "no exception" is displayed if there was no exception
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11567 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-fpcunit/src')
| -rw-r--r-- | packages/fcl-fpcunit/src/fpcunit.pp | 3 |
1 files changed, 2 insertions, 1 deletions
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 |