{-----------------------------------------------------------------------------
 Unit Name: TestStringUnit
 Author:    hubdog(陳省)
 Email:     hubdog@263.net
 Purpose:   測(cè)試TStringClass類
 History:
            2003-4-6 創(chuàng)建本單元
-----------------------------------------------------------------------------}


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.