test_stringclass.pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· PAS 代码 · 共 60 行

unit Test_StringClass;

interface

uses
  TestFramework,
  SysUtils,
  StringClass;

type

  CRACK_TStringClass = class(TStringClass);

  Check_TStringClass = class(TTestCase)
  public
    procedure setUp; override;
    procedure tearDown; override;
  published
    procedure VerifyUpperCase;
    procedure VerifyLowerCase;
    procedure VerifyQuotedStr;
  end;

function Suite: ITestSuite;

implementation

function Suite: ITestSuite;
begin
  result := TTestSuite.Create('StringClass Tests');

  result.addTest(testSuiteOf(Check_TStringClass));
end;

procedure Check_TStringClass.setUp;
begin
end;

procedure Check_TStringClass.tearDown;
begin
end;

procedure Check_TStringClass.VerifyUpperCase;
begin
  fail('Test Not Implemented Yet');
end;

procedure Check_TStringClass.VerifyLowerCase;
begin
  fail('Test Not Implemented Yet');
end;

procedure Check_TStringClass.VerifyQuotedStr;
begin
  fail('Test Not Implemented Yet');
end;

end.