Unit1.pas
上传用户:youjie821
上传日期:2013-01-27
资源大小:459k
文件大小:1k
- 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.
-