开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
XPDUnitMacrosTests.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：8k
源码类别：

Email服务器

开发平台：

Delphi

XPDUnitMacrosTests.pas：源码内容
  1. unit XPDUnitMacrosTests;
  3. interface
  5. uses
  6.   TestFrameWork,
  7.   XPDUnitMacros;
  9. type
  11.   TXPDUnitMacrosTests = class(TTestCase)
  12.   private
  14.     FOutput: string;
  15.     FMacros: IXPDUnitMacros;
  17.   protected
  19.    procedure SetUp; override;
  20. //   procedure TearDown; override;
  22.   published
  24.     procedure EnumerationLimits;
  26.     procedure EnvEmpty;
  27.     procedure EnvSystemRoot;
  28.     procedure EnvNoMatch;
  29.     procedure EnvNewVar;
  31.     procedure FilePathEmpty;
  32.     procedure FileNameEmpty;
  33.     procedure FileStemEmpty;
  34.     procedure FileExtEmpty;
  36.     procedure FilePathAbsPath;
  37.     procedure FileNameAbsPath;
  38.     procedure FileStemAbsPath;
  39.     procedure FileExtAbsPath;
  41.     procedure FilePathFileNameWithSpace;
  42.     procedure FileNameFileNameWithSpace;
  43.     procedure FileStemFileNameWithSpace;
  44.     procedure FileExtFileNameWithSpace;
  46.     procedure FilePathFileNameOnly;
  47.     procedure FileNameFileNameOnly;
  48.     procedure FileStemFileNameOnly;
  49.     procedure FileExtFileNameOnly;
  51.     procedure FilePathExtraDelim;
  52.     procedure FileNameExtraDelim;
  53.     procedure FileStemExtraDelim;
  54.     procedure FileExtExtraDelim;
  56.     procedure FileNamePathOnly;
  57.     procedure FileExtNoExt;
  58.     procedure FileStemNoStem;
  59.     procedure FileExtNoStem;
  61.     procedure ContextMacros;
  62.   end;
  64. implementation
  66. uses
  67.   Windows;
  69. { TXPDUnitMacrosTests }
  71. procedure TXPDUnitMacrosTests.EnvEmpty;
  72. begin
  73.   Check(FMacros.Methods(dmEnviroVar)('', FOutput) = false);
  74. end;
  76. procedure TXPDUnitMacrosTests.FileExtEmpty;
  77. begin
  78.   Check((FMacros.Methods(dmFileExt)('', FOutput) = true)
  79.     and (FOutput = ''));
  80. end;
  82. procedure TXPDUnitMacrosTests.FileNameEmpty;
  83. begin
  84.   Check((FMacros.Methods(dmFileName)('', FOutput) = true)
  85.     and (FOutput = ''));
  86. end;
  88. procedure TXPDUnitMacrosTests.FilePathEmpty;
  89. begin
  90.   Check((FMacros.Methods(dmFilePath)('', FOutput) = true)
  91.     and (FOutput = ''));
  92. end;
  94. procedure TXPDUnitMacrosTests.FileStemEmpty;
  95. begin
  96.   Check((FMacros.Methods(dmFileStem)('', FOutput) = true)
  97.     and (FOutput = ''));
  98. end;
  100. procedure TXPDUnitMacrosTests.EnvSystemRoot;
  101. begin
  102.   Check(FMacros.Methods(dmEnviroVar)('SystemRoot',
  103.     FOutput) = true);
  104. end;
  106. procedure TXPDUnitMacrosTests.FileExtAbsPath;
  107. begin
  108.   Check((FMacros.Methods(dmFileExt)('c:My FolderMyFile.pas',
  109.     FOutput) = true) and (FOutput = '.pas'));
  110. end;
  112. procedure TXPDUnitMacrosTests.FileExtFileNameWithSpace;
  113. begin
  114.   Check((FMacros.Methods(dmFileExt)('c:MyFolderMy File.pas',
  115.     FOutput) = true) and (FOutput = '.pas'));
  116. end;
  118. procedure TXPDUnitMacrosTests.FileNameAbsPath;
  119. begin
  120.   Check((FMacros.Methods(dmFileName)('c:My FolderMyFile.pas',
  121.     FOutput) = true) and (FOutput = 'MyFile.pas'));
  122. end;
  124. procedure TXPDUnitMacrosTests.FileNameFileNameWithSpace;
  125. begin
  126.   Check((FMacros.Methods(dmFileName)('c:MyFolderMy File.pas',
  127.     FOutput) = true) and (FOutput = 'My File.pas'));
  128. end;
  130. procedure TXPDUnitMacrosTests.FilePathAbsPath;
  131. begin
  132.   Check((FMacros.Methods(dmFilePath)('c:My FolderMyFile.pas',
  133.     FOutput) = true) and (FOutput = 'c:My Folder'));
  134. end;
  136. procedure TXPDUnitMacrosTests.FilePathFileNameOnly;
  137. begin
  138.   Check((FMacros.Methods(dmFilePath)('MyFile.pas',
  139.     FOutput) = true) and (FOutput = ''));
  140. end;
  142. procedure TXPDUnitMacrosTests.FilePathFileNameWithSpace;
  143. begin
  144.   Check((FMacros.Methods(dmFilePath)('c:MyFolderMy File.pas',
  145.     FOutput) = true) and (FOutput = 'c:MyFolder'));
  146. end;
  148. procedure TXPDUnitMacrosTests.FileStemAbsPath;
  149. begin
  150.   Check((FMacros.Methods(dmFileStem)('c:My FolderMyFile.pas',
  151.     FOutput) = true) and (FOutput = 'MyFile'));
  152. end;
  154. procedure TXPDUnitMacrosTests.FileStemFileNameWithSpace;
  155. begin
  156.   Check((FMacros.Methods(dmFileStem)('c:MyFolderMy File.pas',
  157.     FOutput) = true) and (FOutput = 'My File'));
  158. end;
  160. procedure TXPDUnitMacrosTests.SetUp;
  161. begin
  162.   inherited;
  163.   FMacros := XPDUnitMacros.CreateXPDUnitMacros;
  164.   FOutput := '';
  165. end;
  167. procedure TXPDUnitMacrosTests.FileExtFileNameOnly;
  168. begin
  169.   Check((FMacros.Methods(dmFileExt)('MyFile.pas',
  170.     FOutput) = true) and (FOutput = '.pas'));
  171. end;
  173. procedure TXPDUnitMacrosTests.FileNameFileNameOnly;
  174. begin
  175.   Check((FMacros.Methods(dmFileName)('MyFile.pas',
  176.     FOutput) = true) and (FOutput = 'MyFile.pas'));
  177. end;
  179. procedure TXPDUnitMacrosTests.FileStemFileNameOnly;
  180. begin
  181.   Check((FMacros.Methods(dmFileStem)('MyFile.pas',
  182.     FOutput) = true) and (FOutput = 'MyFile'));
  183. end;
  185. procedure TXPDUnitMacrosTests.EnvNoMatch;
  186. begin
  187.   Check(FMacros.Methods(dmEnviroVar)('dasfas_wq12wxsf',
  188.     FOutput) = false);
  189. end;
  191. procedure TXPDUnitMacrosTests.EnvNewVar;
  192. begin
  193.   Windows.SetEnvironmentVariable('zxy321', 'blah');
  194.   Check((FMacros.Methods(dmEnviroVar)('zxy321',
  195.     FOutput) = true) and (FOutput = 'blah'));
  196. end;
  198. procedure TXPDUnitMacrosTests.FileNamePathOnly;
  199. begin
  200.   Check((FMacros.Methods(dmFileName)('c:MyFolder',
  201.     FOutput) = true) and (FOutput = ''));
  202. end;
  204. procedure TXPDUnitMacrosTests.FileExtNoExt;
  205. begin
  206.   Check((FMacros.Methods(dmFileExt)('c:MyFolderMyFile',
  207.     FOutput) = true) and (FOutput = ''));
  208. end;
  210. procedure TXPDUnitMacrosTests.FileStemNoStem;
  211. begin
  212.   Check((FMacros.Methods(dmFileStem)('c:MyFolder.pas',
  213.     FOutput) = true) and (FOutput = ''));
  214. end;
  216. procedure TXPDUnitMacrosTests.FileExtNoStem;
  217. begin
  218.   Check((FMacros.Methods(dmFileExt)('c:MyFolder.pas',
  219.     FOutput) = true) and (FOutput = '.pas'));
  220. end;
  222. procedure TXPDUnitMacrosTests.FilePathExtraDelim;
  223. begin
  224.   Check((FMacros.Methods(dmFilePath)('c:MyFolder\MyFile.pas',
  225.     FOutput) = true) and (FOutput = 'c:MyFolder\'));
  226. end;
  228. procedure TXPDUnitMacrosTests.FileExtExtraDelim;
  229. begin
  230.   Check((FMacros.Methods(dmFileExt)('c:MyFolder\MyFile.pas',
  231.     FOutput) = true) and (FOutput = '.pas'));
  232. end;
  234. procedure TXPDUnitMacrosTests.FileNameExtraDelim;
  235. begin
  236.   Check((FMacros.Methods(dmFileName)('c:MyFolder\MyFile.pas',
  237.     FOutput) = true) and (FOutput = 'MyFile.pas'));
  238. end;
  240. procedure TXPDUnitMacrosTests.FileStemExtraDelim;
  241. begin
  242.   Check((FMacros.Methods(dmFileStem)('c:MyFolder\MyFile.pas',
  243.     FOutput) = true) and (FOutput = 'MyFile'));
  244. end;
  247. procedure TXPDUnitMacrosTests.EnumerationLimits;
  248. begin
  249.   Check(System.Low(TXPDUnitMacro) = dmTestedClassName);
  250.   Check(System.High(TXPDUnitMacro) = dmEnviroVar);
  251.   CheckEquals(9, integer(dmEnviroVar));
  253.   Check(System.Low(TXPDUnitMethodMacro) = dmFilePath);
  254.   Check(System.High(TXPDUnitMethodMacro) = dmEnviroVar);
  255.   CheckEquals(5, integer(dmFilePath));
  257.   Check(System.Low(TXPDUnitValueMacro) = dmTestedClassName);
  258.   Check(System.High(TXPDUnitValueMacro) = dmProjectGroup);
  259.   CheckEquals(4, integer(dmProjectGroup));
  261.   Check(System.Low(TPDUnitContextValueMacro) = dmTestedClassName);
  262.   Check(System.High(TPDUnitContextValueMacro) = dmTestedMethodName);
  263.   CheckEquals(1, integer(dmTestedMethodName));
  264. end;
  266. procedure TXPDUnitMacrosTests.ContextMacros;
  267. begin
  268.   CheckEquals(FMacros.Text(dmTestedClassName),
  269.    FMacros.Values(dmTestedClassName), 'default tested class name');
  270.   CheckEquals(FMacros.Text(dmTestedMethodName),
  271.    FMacros.Values(dmTestedMethodName), 'default tested method name');
  273.   FMacros.SetContextValue(dmTestedClassName, 'AClassName');
  275.   CheckEquals('AClassName', FMacros.Values(dmTestedClassName),
  276.     'tested class name = AClassName');
  277.   CheckEquals(FMacros.Text(dmTestedMethodName),
  278.     FMacros.Values(dmTestedMethodName),
  279.     'default tested method name after tested class name set');
  281.   FMacros.SetContextValue(dmTestedMethodName, 'AMethodName');
  283.   CheckEquals('AClassName', FMacros.Values(dmTestedClassName),
  284.     'tested class name = AClassName');
  285.   CheckEquals('AMethodName', FMacros.Values(dmTestedMethodName),
  286.    'tested method name = AMethodName');
  288.   FMacros.SetContextValue(dmTestedClassName, '');
  290.   CheckEquals(FMacros.Text(dmTestedClassName),
  291.    FMacros.Values(dmTestedClassName), 'default tested class name');
  292.   CheckEquals('AMethodName', FMacros.Values(dmTestedMethodName),
  293.    'tested method name = AMethodName');
  295.   FMacros.SetContextValue(dmTestedMethodName, '');
  297.   CheckEquals(FMacros.Text(dmTestedClassName),
  298.    FMacros.Values(dmTestedClassName), 'default tested class name');
  299.   CheckEquals(FMacros.Text(dmTestedMethodName),
  300.    FMacros.Values(dmTestedMethodName), 'default tested method name');
  301. end;
  303. initialization
  305.   TestFramework.RegisterTest('XPDUnitMacrosTests Suite',
  306.     TXPDUnitMacrosTests.Suite);
  308. end.