51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

测试开发精英班,通向高级软件测试工程师【周活动】 找茬--心里圈的故事 !【长期招募】博为峰网校招聘兼职讲师!横扫BAT,Python全栈测试开发技能大全
【108期】:我有自动化问题找joykao?双11剁手不吃土,来投稿赚回血红包! 【专题】用尽一切办法只为让你学好用例 自学软件测试那点事
查看: 1195|回复: 0

[转贴] Test Complete的性能记录方法

[复制链接]
  • TA的每日心情
    慵懒
    2019-8-9 10:30
  • 签到天数: 496 天

    连续签到: 1 天

    [LV.9]测试副司令

    发表于 2016-6-3 14:36:37 | 显示全部楼层 |阅读模式

    Test Complete主要是一个功能测试工具,利用其对GUI控件的识别、动作记录、回放等脚本技术实现替代部分的人工测试的执行。但是它同时还提供很多机制让我们在功能测试的同时记录性能。

     MemUsage,CPUUsage
     可利用TC(Test Complete)的sys对象的属性获得关于进程和操作系统的内存、CPU使用情况。

     下面脚本记录当前所有进程和操作系统使用的内存:
     log.Message(VarToStr(Sys.MemUsage)+'%');

     下面脚本记录notepad进程的当前内存使用情况:
     Log.Message(VarToStr(Sys.Process('notepad').MemUsage)+'K');

     通过访问Sys对象,可以获取关于CPU的各种信息,例如,CPU处理器、处理器个数、CPU使用率(包括系统的和某个具体进程的)

    //Information on the processor(s) installed on the current computer.
    log.Message( Sys.CPU);
    //Returns the number of processors installed on the current computer.
    log.Message( Sys.CPUCount);
    //Current percentage of CPU time used by the operating system and all running processes.
    log.Message( VarToStr(Sys.CPUUsage)+'%');
    //the current approximate percentage of the CPU time spent running the process.
    log.Message( VarToStr(Sys.Process('notepad').CPUUsage)+'%');

    注意:使用TC提供的VarToStr函数把Sys对象的各种属性变量值转换成String类型,否则log信息无法显示值。

     与AQTime集成
     上面说的方法是TC本身提供的,只能记录基本的性能参数,例如内存、CPU,TC还提供另外的途径记录性能,例如通过与AQTime集成的方式,AQTime是AutomatedQA公司出品的代码性能测试工具,它能在程序执行过程中记录每行代码的执行效率,内存使用情况、代码覆盖率等。

     与AQTime集成有两种方式。一种是调用AQTime软件的方式,另外一种是直接使用AQTime提供的接口对象。

     如果采用第一种方式,则首先应该把TC的TestedApps的执行模式改成 Profile 模式,可在TestedApps editor中设置,也可在脚本中设置,例如:

    var
    MyApp : OleVariant;
    begin
    // Obtains the tested application
    MyApp := TestedApps.MyTestedApp;

    // Specifies the run mode parameters
    MyApp.Params.ProfileParams.AQtimeVersion := 5;
    MyApp.Params.ProfileParams.ProfilerName := 'Coverage Profiler';
    MyApp.Params.ProfileParams.RunMode := 'Normal';
    MyApp.Params.ProfileParams.UseProject := False;

    // Activates the Profile run mode
    MyApp.Params.ProfileParams.Activate;
    ...
    end;

    第二种方式是采用访问提供的编程对象的方式,提供AQtimeIntegration 、AQtime、slAQtime对象来访问AQTime的各种功能。

     例如,下面脚本使用AQtimeIntegration 和AQtime对象,首先通过AqtimeIntegration对象的IsSupportedVersionAvailable属性判断某版本的AQTime是否存在,如果存在,则指定CurrentVersion为某版本的AQTime,然后通过AQTime对象的CreateProjectFromModule方法创建一个新的AQTime项目,通过SelectProfiler方法指定Profile的类型,通过StartProfiling方法开始Profile,通过WaitAndExportResults输出结果。

    procedure TestAQtime;
    begin
    // Checks AQtime version
    if not AQtimeIntegration.IsSupportedVersionAvailable('4') then
    begin
    Log.Error('The required version of AQtime is not installed.');
    Exit;
    end;

    // Specifies the desired AQtime version
    AQtimeIntegration.CurrentVersion := 4;

    // Creates a new project
    if not AQtime.CreateProjectFromModule('C:\MyTestedApp\MyTestedApp.exe') then
    begin
    Log.Error('Cannot open the project.');
    Exit;
    end;

    // Selects the desired profiler
    if not AQtime.SelectProfiler('Performance Profiler') then
    begin
    Log.Error('Cannot select the specified profiler.');
    Exit;
    end;

    // Starts profiling
    if not AQtime.StartProfiling() then
    begin
    Log.Error('Cannot start profiling.');
    Exit;
    end;

    // Waits until the profiling is over and
    // exports profiling results
    AQtime.WaitAndExportResults('C:\MyTestedApp\MySummaryResults.xml',
    'C:\MyTestedApp\MyResults.xml');

    // Closes AQtime
    AQtime.Close();
    end;

    下面脚本则使用的是slAQtime对象来访问AQTime:

    procedure TestAQtime;
    var
    p : array[0..2] of OleVariant;
    i, FileName : OleVariant;
    begin
    p[0] := slAQtime.P4_AllocationProfiler; // Allocation Profiler
    p[1] := slAQtime.P4_CoverageProfiler; // Coverage Profiler
    p[2] := slAQtime.P4_PerformanceProfiler; // Performance Profiler

    // Opens your application in AQtime
    FileName := 'C:\MyProjects\MyApplication\MyApp_exe.aqt';
    slAQtime.SetAQtimeProject(FileName);

    for i := 0 to 2 do
    begin
    try
    // Starts profiling in AQtime 4
    slAQtime.RunAQtime4(p);
    { To start profiling in other versions of AQtime,
    use the following methods --
    AQtime 3.x:
    slAQtime.RunAQtime3(slAQtime.P3_VCLClassProfiler);
    AQtime 2.x:
    slAQtime.RunAQtime2(slAQtime.P2_VCLClassProfiler);
    AQtime .NET Edition 1.2x:
    slAQtime.RunAQtimeNET(slAQtime.PNET_StatisAnalysis); }
    except
    // Posts an exception message to the test log
    Log.Error(ExceptionMessage);
    end;

    // Your code goes here...

    // Wait until the profiling is over
    // (we call RunAQtime4 method in a loop)
    slAQtime.DoWaitFinish;
    end;
    end;

    通过调用操作系统的Perfmon对各种性能参数进行监控Perfmon是操作系统自带的性能监控工具,它能通过添加各种计数器,对各种性能参数进行记录。在TC中通过调用命令行的方式启动和停止Perfmon。具体方法如下:

     首先在Perfmon中加名为perf_log的计数器日志,这里需要记录的是记事本的相关资源使用情况:
     Process(NotePad): % Processor Time、Elapsed Time、Working Set
     然后在TestComplete中调用命令行方式操作Perfmon(注意Perfmon的命令行工具叫logman),通过设定logman的命令行运行参数来启动(start perf_log)和停止(stop perf_log)Perfmon的计数器日志。

    //开始记录
    TestedApps.logman.Params.SimpleParams.CommandLineParameters:='start perf_log';
    TestedApps.logman.Run();

    //添加你的操作

    //结束记录
    TestedApps.logman.Params.SimpleParams.CommandLineParameters:='stop perf_log';
    TestedApps.logman.Run();

    通过TC提供的秒表对象记录时间
     
     TC的log里面会对每个GUI动作的时间进行记录,但是记录的是时刻,要后期计算才能得到每个GUI操作的消耗时间,而且有些非GUI的操作时间无法记录,因此有必要寻找更精确、更方便的操作时间记录方式,而TC本身就提供一个叫StopWatch的秒表对象,可以方便地记录脚本的执行时间。

    //Start开始计时
    StopWatchObj := HISUtils.StopWatch;
    StopWatchObj.Start();

    //执行你的操作

    // Stop结束计时,通过StopWatch的ToString方法直接获取到经过的时间
    StopWatchObj.Stop();
    Log.Message('TimerRoutine finished.');
    Log.Message('Execution time: ' + StopWatchObj.ToString());
    文章转自:http://www.uml.org.cn/Test/2007083122.asp
    回复

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /2 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2019-11-15 19:14 , Processed in 0.064833 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2019 Comsenz Inc.

    快速回复 返回顶部 返回列表