fdbconnecttest.pas

来自「财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全」· PAS 代码 · 共 29 行

unit FDBConnectTest;

interface

uses
  Windows, SysUtils, Classes, TestFramework, TestExtensions;

type
  TTest = class(TTestCase)
  published
    procedure Test;
  end;

implementation

{ TTest }

procedure TTest.Test;
begin
  Check(True,'数据连接测试');
end;

initialization
  //TestFramework.RegisterTest(TTest.Suite);
  TestFramework.RegisterTest('数据连接测试',TTest.Suite);

end.