《软件自动化测试成功之道》节选7 - “白+黑” - 检查数据库的数据

关注

原创最新推荐文章于 2026-08-29 10:10:12 发布 2.5k 阅读 AI 写同款· GEO 优化 ›

手把手教你用CAPL脚本精准测量UDS 0x11复位服务的执行时间（附完整代码）本文详细介绍了如何使用CAPL脚本精准测量UDS协议中的0x11复位服务执行时间，包括硬件配置、脚本实现及优化技巧。通过自动化测试方案，开发者可以量化ECU复位耗时，提升系统性能验证效率，适用于汽车电子控制单元的开发与测试。阅读详情

《软件自动化测试成功之道》节选7 - “白+黑” - 检查数据库的数据

http://www.china-pub.com/196509

按照手工测试的习惯，我们一般在测试数据库类型的软件系统时，除了在界面上执行操作，检查各种查询结果之外，还需要登录到后台数据库，查看里面的数据，看是否如预期般修改了数据。同样的，我们在用自动化测试的手段实现这些测试用例时，一样要对后台数据库的数据进行检查。

下面以QTP附带的Flight程序为例说明这种测试方法：

在Flight程序中，对于它的‘New Order’功能的测试可以采用下面的脚本：

//.............................................................................

// 目的：新建订票记录

// 输入参数：

// DataOfFlight: 飞行日期，例如 '121212'

// FlyFrom: 行起点，例如 'Denver'

// FlyTo: 飞行终点，例如 'Frankfurt'

// SelecteFlight: 航班号，例如 '14697'

// CustomerName: 订票人名，例如 'cnj'

// Tickets 订票数量，例如 :'1'

// 返回结果：订票号

// 注意事项：

// 作者：陈能技

// 日期：2008-4-25

//.............................................................................

Function NewOrder(DataOfFlight,FlyFrom,FlyTo,SelecteFlight,CustomerName,Tickets);

var p1 : OleVariant;

var w1 : OleVariant;

var w2 : OleVariant;

var FlightTable, I ,sFlight ,OrderNo: OleVariant;

begin

p1 := Aliases.Sys.FlightReservationSystem;

w1 := p1.Window('Afx:400000:b*', 'Flight Reservation').Window('#32770');

w1.Window('Button', '', 15).ClickButton;

// 选择飞行日期

w1.Window('MSMaskWndClass').Keys(DataOfFlight);

// 选择飞行起点

w1.Window('ComboBox', '', 1).ClickItem(FlyFrom);

// 选择飞行终点

w1.Window('ComboBox', '', 2).ClickItem(FlyTo);

// 选择航班

w1.Window('Button', 'FLIGHT').ClickButton;

FlightTable := NameMapping.Sys.FlightReservationSystem.Window('#32770', 'Flights Table', 1);

For I:= 0 to FlightTable.Window('ListBox').wItemCount -1 do

begin

sFlight := VarToStr(FlightTable.Window('ListBox').wItem[I]);

IF Pos(SelecteFlight,sFlight)<>0 then

begin

FlightTable.Window('ListBox').DblClickItem(I);

break;

end;

// 输入订票人

w1.Window('Edit', '', 1).Keys(CustomerName);

w2 := w1.Window('Edit', '', 2);

// 输入订票数

w2.wText := Tickets;

w1.Window('Button', '&Insert Order').ClickButton;

// 等待插入数据到数据库完成

Sleep(10000);

// 取得订票号，作为返回结果

OrderNo:= NameMapping.Sys.FlightReservationSystem.Window('Afx:400000:b:10011:6:120d17', 'Flight Reservation', 1).Window('#32770', '', 1).Window('Edit', '', 9).wText;

Result := VarToStr(OrderNo);

end;

// NewOrder函数的使用例子：

Procedure Test_NewOrder;

Var OrderNo : OleVariant;

begin

OrderNo := VarToStr(NewOrder('121212','Denver','Frankfurt','14697','CNJ','2'));

Log.Message(OrderNo);

end;

但是上面的脚本仅仅是功能操作，缺乏检查和验证，不知道究竟新增操作是否成功。

在界面上的黑盒测试，一般采用观察或执行查找功能（‘Open Order’）来验证。例如，可使用下面的脚本来实现这种方法：

//.............................................................................

// 目的：查询指定订票号对应的顾客名。

// 输入参数：

// OrderNumber ：订票号。

// 返回结果：

// CustomerName ：顾客名

// 注意事项：

// 作者：陈能技

// 日期：2008-4-25

//.............................................................................

Function QueryOrder(OrderNumber);

var OrderQueryForm : OleVariant;

var CustomerName : OleVariant;

begin

OrderQueryForm := NameMapping.Sys.FlightReservationSystem.Window('#32770', 'Open Order', 1);

OrderQueryForm.Window('Button', '&Order No.').ClickButton(cbChecked);

OrderQueryForm.Window('Edit', '', 2).Keys(VarToStr(OrderNumber));

OrderQueryForm.Window('Button', 'OK').ClickButton;

// 如果找不到...

CustomerName := NameMapping.Sys.FlightReservationSystem.Window('Afx:400000:b:10011:6:120d17', 'Flight Reservation', 1).Window('#32770', '', 1).Window('Edit', '', 1).wText;

Result := VarToStr(CustomerName);

end;

// QueryOrder函数的使用例子：

Procedure Test_QueryOrder;

begin

Log.Message(VarToStr(QueryOrder('13')));

end;

利用上面的两个脚本函数，可组织成一个完整的测试用例：

uses

GoToModule,

Order,

DBChecker;

Procedure ST_NewOrder;

Var OrderNo ,CustomerName: OleVariant;

begin

OpenVarMenu('File|New Order');

OrderNo := VarToStr(NewOrder('121212','Denver','Frankfurt','14697','CNJ','2'));

OpenVarMenu('File|Open Order...');

CustomerName := QueryOrder(OrderNo);

If VarToStr(CustomerName)= 'CNJ' then

begin

Log.Message('新建订票记录成功!');

end

else

begin

Log.Message('订票号对应的顾客名不对!');

end;

但是，如果项目目前处于开发阶段，New Order功能做好了，但是Open Order功能还没有做好，怎么测试呢？这种时候，前面的方法就不适用了，但是我们可以采用“白+黑”的测试方法，直接检查数据库的数据，看NewOrder功能产生的数据是否正确地插入到后台数据库中了。改成如下脚本：

Procedure ST_NewOrder_AssertDB;

Var OrderNo ,CustomerName,TestResult: OleVariant;

begin

OpenVarMenu('File|New Order');

OrderNo := VarToStr(NewOrder('121212','Denver','Frankfurt','14697','CNJ','2'));

//OpenVarMenu('File|Open Order...');

//CustomerName := QueryOrder(OrderNo);

TestResult := AssertDataValue(

'Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=C:/Program Files/Mercury Interactive/QuickTest Professional/samples/flight/app/New_flight32.mdb',

'Orders',

'Order_Number',

OrderNo,

'Customer_Name',

'CNJ'

);

If TestResult = True then

begin

Log.Message('订票记录插入成功!');

end

else

begin

Log.Message('找不到订票号对应的订票记录');

end;

其中，AssertDataValue函数如下所示，AssertDataValue函数用于检查数据表的某条记录中的某字段值是否等于预期值：

//.............................................................................

// 目的：检查数据表的某条记录中的某字段值是否等于预期值

// 输入参数：

// ConnectionString : 数据库连接串，例如：'Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=C:/Program Files/Mercury Interactive/QuickTest Professional/samples/flight/app/New_flight32.mdb'

// TableName :数据表名，例如： 'Orders'

// SearchField : 查找字段（一般是唯一标识记录行的字段），例如：'Order_Number'

// SearchValue : 查找的字段值，例如：7

// AssertField : 检查的字段，例如： 'Customer_Name'

// AssertValue : 期待值，例如：'Jane Doe'

// 返回结果：

// True: 找到指定记录。

// False：未找到指定记录。

// 注意事项：

// 作者：陈能技

// 日期：2008-4-25

//.............................................................................

Function AssertDataValue(ConnectionString , TableName , SearchField ,SearchValue , AssertField ,AssertValue);

var

Conn, Rs, Fldr , Data , Found : OleVariant;

begin

Found := False;

// 创建并打开连接

Conn := Sys.OleObject['ADODB.Connection'];

Conn.ConnectionString := ConnectionString;

Conn.Open();

// 创建并打开记录集

Rs := Sys.OleObject['ADODB.Recordset'];

Rs.Open(TableName, Conn, 3 {adOpenStatic},

1 {adLockReadOnly}, 2 {adCmdTable});

// 读取数据

Rs.MoveFirst();

while not Rs.EOF do

begin

Data := Rs.Fields.Item(SearchField).Value ;

//Log.Message(Data);

If VarToStr(Data) = SearchValue then

begin

Found := True;

If VarToStr(Rs.Fields.Item(AssertField).Value) = AssertValue then

begin

Log.Message('记录结果与预期值相等。');

end

else

begin

Log.Error('记录结果与预期值不相等!');

end;

break;

end;

Rs.MoveNext();

end;

// 关闭记录集和连接

Rs.Close();

Conn.Close();

Result := Found;

end;

// AssertDataValue函数的使用例子：

procedure Test_AssertDataValue;

Var TestResult :OleVariant;

begin

TestResult := AssertDataValue(

'Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=C:/Program Files/Mercury Interactive/QuickTest Professional/samples/flight/app/New_flight32.mdb',

'Orders',

'Order_Number',

'8',

'Customer_Name',

'Jane Doe'

);

Log.Message(TestResult);

end;

另外，我们还可以封装一个函数，用于检查数据库表的数据行数是否正确：

//.............................................................................

// 目的：检查数据库表的数据行数是否正确。

// 输入参数：