teststringunit.pas

Delphi深度探索,Delphi深度探索（第二版）

{-----------------------------------------------------------------------------
 Unit Name: TestStringUnit
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   测试TStringClass类
 History:
            2003-4-6 创建本单元
-----------------------------------------------------------------------------}


unit TestStringUnit;

interface

uses
  TestFrameWork, StringClass;

type

  TStringTestCase = class(TTestCase)
  private
    FStringClass:TStringClass;
  protected
    procedure SetUp; override;
    procedure TearDown; override;
  published
    procedure TestUpperCase;
    procedure TestLowerCase;
    procedure TestQuotedStr;
  end;

implementation

{ TStringTestCase }

procedure TStringTestCase.SetUp;
begin
  inherited;
  FStringClass:=TStringClass.Create('Test');
end;

procedure TStringTestCase.TearDown;
begin
  inherited;
  FStringClass.Free;
end;

procedure TStringTestCase.TestLowerCase;
begin
  Self.CheckEquals('test', FStringClass.LowerCase, 'LowerCase error!');
end;

procedure TStringTestCase.TestQuotedStr;
begin
  Self.CheckEquals('''Test''', FStringClass.QuotedStr, 'QuotedStr error!');
end;

procedure TStringTestCase.TestUpperCase;
begin
  Self.CheckEquals('TEST', FStringClass.UpperCase, 'UpperCase error');
end;

//initialization
//  TestFramework.RegisterTest('TestStringUnit Suite',
//    TStringTestCase.Suite);
end.