覆盖测试用例的设置功能

时间:2015-04-30 06:48:55

标签: delphi

我可以从这个特定测试用例的类助手函数覆盖TTestcase的设置和拆卸功能吗?

喜欢

MytestCase =   class(TTestCase)
   //   here is my testcase 
end;

MyTestCaseEXT = class helper for  MytestCase
    ...
    procedure Setup ; override;
    ...
end;

MyTestCaseEXT.setup;
begin
    ///  do some special stuff at start
    .....
    ..
    ///   now do normal setup ....  if not fail at start up 
    if not fail(...) then
    inherited;   //
    else
    exit;
end;

可选方法

MyTestcaseHelper = class helper for MyTestCase
    ...
    protected
      procedure SetUp; override;
     procedure TearDown; override;
   published
     [TestCase( )]
     function Init( .....  ) : Boolean;
   end;

使用上面的代码框架我得到编译器错误,类中没有找到方法设置,ERROR = E2137;因为设置不是类构造函数应该是可能的....

当我尝试从类助手中的派生MyTestcase覆盖设置功能时,也会发生此错误

0 个答案:

没有答案