faccountcodetest.pas

天翔财务系统刚获得

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

unit FAccountCodeTest;

interface

uses
  Windows, SysUtils, Classes, TestFramework, TestExtensions,AccountCode,Accessdb ,ComObj,ADODB,db;

type
  TAccountCodeTest = class(TTestCase)
  private
    aConn:TADOConnection ;
    aTestAC:IAccountCode;
    aACode:TAccountCode;
    aDB:IAccessDB;
  protected
    procedure SetUp; override;
    procedure TearDown; override;

  published
    procedure TestDelete;
    procedure TestAdd;
    procedure Get;
  end;

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


implementation

procedure TAccountCodeTest.Get;
begin
  CheckEquals(aACode.Code,aTestAC.Get('101').Code);
  //CheckEquals(aACode.Code,aTestAC.Get('101').Code);
end;

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

   aConn:=TADOConnection.Create(nil);
   aConn.ConnectionString :=vConnectionString;
   aConn.Connected :=True;
   //建立数据连接
   aDB:=TAccessSQL.Create(aConn);
   aTestAC:=TAccountCodeProxy.Create(adb);
   //增加一个科目
   aACode:=TAccountCode.Create('','101','现金',True,'资产','xj');
end;

procedure TAccountCodeTest.TearDown;
begin
 // aTestAC.Free;
 aACode.Free;
 
end;

procedure TAccountCodeTest.TestDelete;
begin
  CheckTrue(aTestAC.Delete(aACode),'科目删除成功');
end;


procedure TAccountCodeTest.TestAdd;
begin
  CheckTrue(aTestAC.Add(aACode),'科目增加成功');
end;
initialization
  TestFramework.RegisterTest('科目代码',TAccountCodeTest.Suite);

end.