People, just found an error in the consolerunner/testrunner.pp demo application. It's constructor and destrutor differs from the frameworktest sample in the tests directory.
The correct methods are:
constructor TTestRunner.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FXMLResultsWriter := TXMLResultsWriter.Create;
FSuite := TTestSuite.Create;
FSuite.TestName := 'Framework test';
FSuite.AddTestSuiteFromClass(TAssertTest);
FSuite.AddTest(TSuiteTest.Suite());
end;
destructor TTestRunner.Destroy;
begin
FXMLResultsWriter.Free;
FSuite.Free;
end;Leonardo M. Ramé
http://leonardorame.blogspot.com
__________________________________________________ Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
