Unit1.pas
上传用户:youjie821
上传日期:2013-01-27
资源大小:459k
文件大小:1k
源码类别:

PlugIns编程

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. uses
  4.   TestFramework, frmResTree;
  5. type
  6.   TResTreeTest = class(TTestCase)
  7.   published
  8.     procedure TestResTree;
  9.     procedure TestProjectCollection;
  10.   end;
  11. implementation
  12. uses
  13.   frmProjectCollection;
  14. { TResTreeTest }
  15. procedure TResTreeTest.TestProjectCollection;
  16. begin
  17.   ShowProjectCollectionForm;
  18. end;
  19. procedure TResTreeTest.TestResTree;
  20. begin
  21.   ShowResTreeForm;
  22. end;
  23. initialization
  24.   TestFramework.RegisterTest('TResTree', TResTreeTest.Suite);
  25. end.
  26.