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

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

Email服务器

开发平台：

Delphi

uTestSingnalMgr.pas：源码内容
  1. unit uTestSingnalMgr;
  3. interface
  5. uses uSingnalMgr,TestFramework,strutils,sysutils,classes ;
  7. type
  8.   TTestSingnalMgr=class(TTestCase)
  9.   private
  10.     FIt:TIterator;
  11.     List:TSingnalList;
  12.   protected
  13.     procedure Setup;override;
  14.     procedure TearDown;override;
  15.   published
  16.     procedure TestLoadFromFile;
  17.     procedure TestSaveToFile;
  19.     procedure TestTIteratorFirst;
  20.     procedure TestTIteratorNext;
  21.     procedure TestTIteratorRemove;
  22.     procedure TestTIteratorHasNext;
  23.     procedure PrintList;
  24.   end;
  26. implementation
  29. { TTestSingnalMgr }
  31. procedure TTestSingnalMgr.PrintList;
  32. var
  33.   S:String;
  34.   P:PSingnalData;
  35. begin
  36.   S:='';
  37.   while Fit.HasNext do
  38.   begin
  39.     P:=PSingnalData(Fit.next);
  40.     S:=S+'Caption: '+p.Caption+' text:'+strpas(p.Text);
  41.   end;
  42.   Status(S);
  43. end;
  45. procedure TTestSingnalMgr.Setup;
  46. var
  47.   p:PSingnalData;
  48. begin
  49.   Inherited;
  50.   List:=TSingnalList.create;
  51.   FIt:=TIterator.Create(List);
  53.   P:=List.NewSingnal;
  54.   p.Caption:='cap1';
  55.   p.Text:='text1';
  56.   list.Add(p);
  57.   P:=List.NewSingnal;
  58.   p.Caption:='cap2';
  59.   p.Text:='text2';
  60.   list.Add(p);
  61. end;
  63. procedure TTestSingnalMgr.TearDown;
  64. begin
  65.   FIt.Free;
  66.   List.free;
  67.   Inherited;
  68. end;
  70. procedure TTestSingnalMgr.TestLoadFromFile;
  71. begin
  73. end;
  75. procedure TTestSingnalMgr.TestSaveToFile;
  76. begin
  78. end;
  80. procedure TTestSingnalMgr.TestTIteratorFirst;
  81. begin
  82.   Fit.First;
  83. end;
  85. procedure TTestSingnalMgr.TestTIteratorHasNext;
  86. begin
  87.   status('HasNext:'+booltostr(Fit.HasNext));
  88. end;
  90. procedure TTestSingnalMgr.TestTIteratorNext;
  91. begin
  92.   Status('Caption: '+psingnalData(Fit.Next).Caption+'  Text: '+psingnalData(Fit.Next).Text);
  93. end;
  95. procedure TTestSingnalMgr.TestTIteratorRemove;
  96. begin
  97.   Fit.Remove;
  98. end;
  100. initialization
  101.   TestFrameWork.RegisterTest(TTestSingnalMgr.Suite);
  103. end.