Hi Dean,
I wrapped our DB Connection code in a TTestSetup decendent class. I
registered the test case with:
RegisterTestDecorator(TDBConnectionSetupDecorator, TTreeviewFormTest);
Executing the complete TTreeviewFormTest test case from the GUI Test
Runner works fine. Selecting a individual test fails, as it never
executes the test decorator. I created a breakpoint it my
TDBConnectionSetupDecorator.OneTimeSetup;
procedure, and it never reached it.
I had a look at the code, but can't quite figure out where the problem is. :(
I have an idea that it might be related to the following code in
TGUITestRunner.BuildTree() but for the life of me I a can't see what.
node := TestTree.Items.AddChildObject(rootNode,
ASuite.Test[i].TestName, ASuite.Test[i]);
if ASuite.Test[i] is TTestSuite then
BuildTree(Node, TTestSuite(ASuite.Test[i]))
else
if TObject(ASuite.Test[i]).InheritsFrom(TTestDecorator) then
BuildTree(Node, TTestSuite(TTestDecorator(ASuite.Test[i]).Test));
Regards,
- Graeme -
--
There's no place like 127.0.0.1
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
