RegistryUnitTest.pas
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:1k
源码类别:

Email服务器

开发平台:

Delphi

  1. unit RegistryUnitTest;
  2. interface
  3. uses RegistryUnit, TestFramework, Registry;
  4. type
  5.   TTestRegistry = class(TTestCase)
  6.   private
  7.     FInstallPath: string;
  8.     FModData: string;
  9.     FReg: TRegistry;
  10.   public
  11.     procedure Setup; override;
  12.     procedure TearDown; override;
  13.   published
  14.     procedure TestRegistrySample;
  15.     procedure TestGetInstallPath;
  16.   end;
  17.   function Suite: ITestSuite;
  18. implementation
  19. function Suite: ITestSuite;
  20. begin
  21.   Suite := TTestRegistry.Suite;
  22. end;
  23. { TTestRegistry }
  24. procedure TTestRegistry.Setup;
  25. begin
  26.   FInstallPath := 'C:Program FilesSampleApp';
  27.   FModData := 'SomeData';
  28.   FReg := TRegistry.Create;
  29.   FReg.OpenKey(ABaseKey, true);
  30.   FReg.WriteString('InstallPath', FInstallPath);
  31.   FReg.OpenKey('ModuleAData', true);
  32.   FReg.WriteString('Data', FModData);
  33.   FReg.CloseKey;
  34. end;
  35. procedure TTestRegistry.TearDown;
  36. begin
  37.   FReg.DeleteKey(ABaseKey);
  38.   FReg.Free;
  39. end;
  40. procedure TTestRegistry.TestGetInstallPath;
  41. begin
  42.   check(RegistryUnit.GetRegInstallPath = FInstallPath);
  43. end;
  44. procedure TTestRegistry.TestRegistrySample;
  45. var
  46.   InstallPath: string;
  47.   ModData: string;
  48. begin
  49.   RegistryUnit.GetRegData(InstallPath, ModData);
  50.   check(InstallPath = FInstallPath);
  51.   check(ModData = FModData);
  52. end;
  53. end.