unit1.pas

来自「一个基于Socket的在线更新程序」· PAS 代码 · 共 36 行

unit Unit1;

interface

uses
  TestFramework, frmResTree;

type
  TResTreeTest = class(TTestCase)
  published
    procedure TestResTree;
    procedure TestProjectCollection;
  end;

implementation

uses
  frmProjectCollection;

{ TResTreeTest }

procedure TResTreeTest.TestProjectCollection;
begin
  ShowProjectCollectionForm;
end;

procedure TResTreeTest.TestResTree;
begin
  ShowResTreeForm;
end;

initialization
  TestFramework.RegisterTest('TResTree', TResTreeTest.Suite);

end.