Re: [fpc-pascal] Testing if exception raised in fpcUnit

[Michael Van Canneyt]

On Mon, 5 Nov 2012, Graeme Geldenhuys wrote:

On 2012-11-05 12:49, ik wrote:

So how do I do it ?

Create a method of the test class, and pass that to AssertException.

Alternatively, do it manually as follows:

 try
   si.SetSlideName('001~z~1~a~4~d~1.1.2.swf');
   si.SlideTypeDB;
 except
   on E: exception do
   begin
     CheckEquals(EUnknownSlideType.ClassName, E.ClassName, 'Failing on 2');
   end;
 end;

This will not detect if no exception is raised, only if the right exception is 
raised in case one is raised.

Michael.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal