faccountitemtest.pas

天翔财务系统刚获得

{******************************************************************************}
{                                                                              }
{          测试名称：科目测试                                                          }
{          作    者：胥小华                                                          }
{          版    本：v1.0                                                          }
{          说    明：测试财务系统凭证                                                          }
{          备    注：                                                          }
{                                                                              }
{******************************************************************************}

unit FAccountItemTest;

interface

uses
  Windows, SysUtils, Classes, TestFramework, TestExtensions,Account,adodb,AccessDB,ComObj ;

type
  TAccountItemTest = class(TTestCase)
  private
    vACount:TAccount;
    aConn:TADOConnection;
    aDB:IAccessDB;
    aAccount:IAccount;
  protected
    procedure SetUp; override;
    procedure TearDown; override;

  published
    procedure SetValueTest;
    procedure GetItemCountTest;
    procedure AccountItemTest;
    procedure SaveTest;
  end;

const
  vConnectionString:string='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Finance;Data Source=.';


implementation

procedure TAccountItemTest.Setup;
begin
   CoInitializeEx(nil,0);

   aConn:=TADOConnection.Create(nil);
   aConn.ConnectionString :=vConnectionString;
   aConn.Connected :=True;
   //建立数据连接
   aDB:=TAccessSQL.Create(aConn);

   vACount:=TAccount.Create(9,'1','记','Biller','Checker',Date,0);
   aAccount:=TAccountProxy.Create(aDB);
end;

procedure TAccountItemTest.TearDown;
begin
  vACount.Free;
end;

procedure TAccountItemTest.SaveTest;
begin
  vACount.RemoveAll;
  vACount.AddAccountItem('摘要1','101',10,0);
  vACount.AddAccountItem('摘要2','101',0,10);

  CheckTrue(aAccount.Add(vACount),'保存凭证');
end;

procedure TAccountItemTest.SetValueTest;
begin
  vACount.SetAccount(9,'1','记','Biller','Checker',Date,0);
  Assert(vACount.AccountID='1','测试AccountID');
end;

procedure TAccountItemTest.GetItemCountTest;
begin
  vACount.RemoveAll;
  CheckEquals(vACount.GetItemCount,0,'项目计数等于0');
  vACount.AddAccountItem('摘要','101',10,0);
  CheckEquals(vACount.GetItemCount,1,'项目计数等于1');
  vACount.AddAccountItem('摘要','101',0,10);
  CheckEquals(vACount.GetItemCount,2,'项目计数等于2');
  CheckTrue(vACount.CheckBlance,'检查平衡');
end;

procedure TAccountItemTest.AccountItemTest;
begin
  vACount.RemoveAll;
  vACount.AddAccountItem('摘要','101',10,0);
  vACount.AddAccountItem('摘要','101',0,10);
  CheckEquals(vACount.Item[0].Debit,10,'项目金额测试');
  CheckEquals(vACount.Item[1].Lender,10,'项目金额测试');
end;

initialization
  TestFramework.RegisterTest('凭证测试',TAccountItemTest.Suite);

end.