parseexpressiontest.pas

天翔财务系统刚获得

{******************************************************************************}
{                                                                              }
{          测试名称：                                                          }
{          作    者：                                                          }
{          版    本：                                                          }
{          说    明：                                                          }
{          备    注：                                                          }
{                                                                              }
{******************************************************************************}

unit ParseExpressionTest;

interface

uses
  Windows, SysUtils, Classes, TestFramework, TestExtensions,ParseExpression;

type
  TTest = class(TTestCase)
  private
    aParse:TParseExpression;
  protected
    procedure SetUp; override;
    procedure TearDown; override;

  published
    procedure TestGetCode;
    procedure TestGetBeginEndCode;
    procedure TestGetFuncName;
    procedure TestGetYear;
    procedure TestGetPeriod;
  end;

implementation


procedure TTest.Setup;
begin
  aParse:=TParseExpression.Create ;
  aParse.Expression:='<101:103>(FUNCNAME){2005,10}';
end;

procedure TTest.TearDown;
begin
  aParse.Free;
end;

procedure TTest.TestGetBeginEndCode;
begin
  CheckEquals('101,102,103',aParse.GetBeginEndCode('101','103'),'测试拆分连续代码');
end;

procedure TTest.TestGetCode;
begin
  CheckEquals('101,102,103',aParse.GetCode,'测试返回代码');
end;

procedure TTest.TestGetFuncName;
begin
  CheckEquals('FUNCNAME',aParse.GetFuncName,'测试调用函数名称');
end;

procedure TTest.TestGetPeriod;
begin
  CheckEquals(10,aParse.GetPeriod,'测试返回会计区间');
end;

procedure TTest.TestGetYear;
begin
  CheckEquals(2005,aParse.GetYear,'测试返回会计年度');
end;

initialization
  TestFramework.RegisterTest('公式分析',TTest.Suite);

end.