testorasql.pas

delphi通过OCI访问ORACLE

unit testOraSQL;

{$INCLUDE dOCI.inc}

interface
uses
 SysUtils, Dialogs, TestFrameWork, DB, OraDB, OraSQL;

type
 TTestOraSQL = class(TTestCase)
 private
  DB:TOraDB;
  SQL:TOraSQL;
 protected
    procedure SetUp; override;
    procedure TearDown; override;
 published
   procedure testOraSQLGetFieldNames;
   procedure testOraSQLGetFieldList;
end;


implementation

uses Classes;

procedure TTestOraSQL.SetUp;
begin
 DB  := TOraDB.Create(nil);
 DB.DBLogin := 'test';
 DB.DBPassword := 'a';
 DB.DBServer := 'RRR';
 DB.LoginPrompt := False;

 SQL := TOraSQL.Create(nil);
 SQL.Database := DB;
 SQL.Name := 'SQL';
end;

procedure TTestOraSQL.TearDown;
begin
 DB.Free;
 SQL.Free;
end;

procedure TTestOraSQL.testOraSQLGetFieldNames;
var list:TStrings;
begin
 list := TStringList.Create;
 SQL.FieldDefs.Add('a', ftInteger);
 SQL.FieldDefs.Add('bbbbbb', ftString);
 SQL.GetFieldNames(list);

 CheckEquals(2, list.Count);
 CheckEquals('a', list[0]);
 CheckEquals('bbbbbb', list[1]);
end;

procedure TTestOraSQL.testOraSQLGetFieldList;
var list:TList;
begin
 list := TList.Create;
 SQL.FieldDefs.Add('a', ftInteger);
 SQL.FieldDefs.Add('bbbbbb', ftString);
 SQL.GetFieldList(list, 'a');

// CheckEquals(2, list.Count);
 CheckEquals('a', TField(list[0]).FieldName);
// CheckEquals('bbbbbb', list[1]);
end;

initialization
 TestFramework.RegisterTest(TTestOraSQL.Suite);
end.