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.   end;
  16.   function Suite: ITestSuite;
  17. implementation
  18. function Suite: ITestSuite;
  19. begin
  20.   Suite := TTestSuite.Create(TTestRegistry);
  21. end;
  22. { TTestRegistry }
  23. procedure TTestRegistry.Setup;
  24. begin
  25.   FInstallPath := 'C:Program FilesSampleApp';
  26.   FModData := 'SomeData';
  27.   FReg := TRegistry.Create;
  28.   FReg.OpenKey(ABaseKey, true);
  29.   FReg.WriteString('InstallPath', FInstallPath);
  30.   FReg.OpenKey('ModuleAData', true);
  31.   FReg.WriteString('Data', FModData);
  32.   FReg.CloseKey;
  33. end;
  34. procedure TTestRegistry.TearDown;
  35. begin
  36.   FReg.DeleteKey(ABaseKey);
  37.   FReg.Free;
  38. end;
  39. procedure TTestRegistry.TestRegistrySample;
  40. var
  41.   InstallPath: string;
  42.   ModData: string;
  43. begin
  44.   RegistryUnit.GetRegData(InstallPath, ModData);
  45.   check(InstallPath = FInstallPath);
  46.   check(ModData = FModData);
  47. end;
  48. end.