[fpc-pascal] fpcUnit testing Exceptions

[Dean Zobec]

Graeme Geldenhuys wrote:
> 
> I think the problem is the SlideTypeDB which is a property!  I will
> change it to a standard function returning a string and try
> @si.SlideTypeDB again.
I guess it won't work, since assertException expects a procedure
(TRunMethod = procedure of Object).

I would create a procedure in the TTestCase class that would internaly
access this property and pass this procedure instead.

Regards,
Dean