[Lazarus] TTestSuite

Lee Jenkins lee at datatrakpos.com
Tue Feb 10 16:53:21 CET 2009


Graeme Geldenhuys wrote:
> On Tue, Feb 10, 2009 at 4:28 PM, Lee Jenkins <lee at datatrakpos.com> wrote:
>> Something like this:
>>
> 
> 
>   TTestSuite1 = class(TTestCase)
>   published
>      procedure TestCase1;
>      procedure TestCase2;
>   end;
> 
> initialization
>   RegisterTest('Main Test Suite', TTestSuite1);
> 
> 
> ------------[ unit2.pas ]------------
> 
>   TTestSuite2 = class(TTestCase)
>   published
>      procedure TestCase1;
>      procedure TestCase2;
>      procedure TestCase3;
>      procedure TestCase4;
>   end;
> 
> initialization
>   RegisterTest('Main Test Suite', TTestSuite2);

Ah..OK.  I was thinking something completely different.

> 
> Also have a look at the tiFPCUnitUtils.pas unit in tiOPF. It can
> create a more complex hierarchy with much less effort.  Some of that
> code could probably move to FPC itself.
> 

I'll have a look, never came across it before.

Thanks for taking the time...

Lee



More information about the Lazarus mailing list