问题
如何让T-SQL测试套件把测试用例结果直接写入文本文件
设计
使用ActiveX技术实例化一个FileSystemObject对象,然后通过OpenTextFile()和WriteLine()方法直接把测试结果写入文件。
方案
declare @fsoHandle int,@fileID int
exec sp_OACreate 'Scripting.FileSystemObject',@fsoHandle out
exec sp_OAMethod @fsohandle,'OpenTextFile',@fileID out,
'C:/pathToResults/Results.txt',8,1
——主测试循环
if(@result = @expected)
exec sp_OAMethod @fileID,'WriteLine',null,'Pass'
else
exec sp_OAMethod @fileID,'WriteLine',null,'FAIL'
——主测试循环结束
exec sp_OADestroy @fileID
exec sp_OADestroy @fsoHandle
我们需要有一个文件句柄和一个文件ID,它们的类型都是Int,SQL Server有一个作sp_OACreate()的存储过程可以实例化ActiveX对象。sp_OACreate()接受一个字符串作为传入的参数,这个字符串就是要创建的ActiveX对象的名字,并且以out参数的形式返回一个已创建对象的引用,这个引用的类型是int。对于Scripting.FileSystemObject的情况来说,返回值是关于文件句柄的一个引用。接下来,可以通过调用sp_OAMethod()方法打开文件。在本例中,第一个参数是sp_OACreate()把创建的句柄,第二个参数是我们想要使用的方法的名称,第三个参数是用于保存返回的文件句柄的变量,第四个参数指定文件的物理名称,第五个参数是可选的,它指定使用的IO模式。
- 1:以只读方式打开文件(默认)。
- 2:以写方式打开文件。
- 3:以追加方式打开文件
第六个参数是可选的,它是一个创建标识,用来指定当给定文件不存在的时候是否创建一个新的文件。
- 0:不创建新文件(默认)。
- 1:创建一个新文件。
第八个害数也是可选的,它是一个格式标识,用来指定字符的编码方式。
- 0:以ASCII方式打开文件(默认)。
- 1:以Unicode方式打开文件。
- 2:以系统默认的模式打开文件。
注解
运行T-SQL测试套件的时候,有好几种方法可以用来保存测试结果。如果把测试结果保存成文本文件,常用的技术是先把所有测试结果都保存到一个SQL表里,然后把结果转换成一个文件文件。另一种做法是,在T-SQL套件里直接把测试结果写入文本文件。
上述方案使用了FileSystemObject类的OpenTextFile()方法,这个方案正常工作的前提是要写入的文件已经存在。作为替代,也可以使用CreateTextFile()方法:
declare @fsoHandle int,@fileID int
exec sp_OACreate 'Scripting.FileSystemObject',@fsoHandle out
exec sp_OAMethod @fsohandle,'CreateTextFile',@fileID out,
'C:/pathToResults/Results.txt',0,0
——主测试循环
if(@result = @expected)
exec sp_OAMethod @fileID,'WriteLine',null,'Pass'
else
exec sp_OAMethod @fileID,'WriteLine',null,'FAIL'
——主测试循环结束
exec sp_OADestroy @fileID
exec sp_OADestroy @fsoHandle
CreateTextFile()方法接受一个必填的文件名参数以及两个可选的布尔值。
因为SQL本身并不支持布尔数据类型,因些要使用整数类型0表示False,1表示True。第一个可选的布尔值指定覆盖标识,如果该值为True/1则意味着覆盖已存在的同名文件。如果该值为False/0则意味着不覆盖已存在的同名文件。第二个可选的布尔参数是编码标识。其值为true/1意思是以Unicode编码方式创建创建这个文件。其值为false/0意思是ASCII编码方式创建这个文件。这两个参数的默认值都是false/0,或者换句话说,默认情况下都不覆盖已有文件以及使用ASCII编码方式。
除了从T-SQL把数据写入文本文件,还可以采用这种方法读入文本数据:
declare @fsoHandle int ,@fileID,int
declare @eof int
declare @line varchar(1000)
exec sp_OACreate 'Scripting.FileSystemObject',@fsoHandle out
exec sp_OAMethod @fsohandle,'OpenTextFile',@fileID out,
'C:/pathToResults/Results.txt',1,1
set @eof = 0
while @eof = 0
begin
exec sp_OAMethod @fileID,'ReadLine',@line out
print @line
exec sp_OAM3thod @fileID,'AtEndOfStream',@eof out
end
exec sp_OADestroy @fileID
exec sp_OADestroy @fsoHandle