четверг, 27 августа 2009 г.

QTP script example for automate QTP (QuickTest) operations.

Автоматизация запуска QTP тестов


В QTP есть интерфейс для обращения к его объектной модели QuickTest
Данный интерфейс реализован .dll библиотекой. В документации написано, что обертку для запуска QTP тестов можно писать на различных языках. Но наиболее удобным будет писать в среде разработки при подключенной библиотеки. Как оно и предполагается, будут доступны возможности IntelliSense. Также в QuickTest Professional Automation Object Model Reference написано, что в качестве библиотеки в reference надо указывать QTObjectModel.dll.


В данном посте я опишу свои впечатления о знакомстве с данной библиотекой



  1. Запуск QTP Application используя javascript

    Для начала можно написать простенький javascript код

    function QTP() // объявляем функцию
    {
    debugger ; // это сделано для того, что бы при запуске в браузере выскочило окно с предложением о дебаге.
    var qtApp = new ActiveXObject("QuickTest.Application"); // Создаем объект application

    while (qtApp.Launched == false ) // Проверяем запущен или не запущен QTP и если false, то запускаем
    {
    qtApp.Launch();

    };

    qtApp.Visible = true // Делаем объект видимым
    setTimeout(function() { qtApp.Quit() }, 10000); // через 10 секунд после того как QTP станет видимым он закроется


    }


    Для запуска данного скрипта осталось только сделать html файлик в котором на какой-нить элемент повесить событие onclick или onload.
    В данном случае для отладки удобно использовать Visual studio. Не пробуйте запускать данный скрипт в firefox т.к. он официально не поддерживает ActiveX.
    Вот, что можно получить в случае отладки скриптов в студии.






  2. Запуск QTP используя C#


    И так студия Visual Studio 2008. Тип создаваемого проекта C# console Application (на выходе получаем .dll и .exe файл для запуска приложения).
    Сразу скажу, что то как описано ниже отличается от тех примеров создания объекта QTP Application из справки к QTP.

    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;
    using QTObjectModelLib; // здесь я использую библиотеку QTObjectModelLib.dll , вместо QTObjectModel.dll. Вроде как эту библиотеку лучше использовать , если обертка пишется на c#, но официального подтверждения этой информации я не видел.

    namespace TestRunner
    {
    class Program
    {
    static void Main(string[] args)
    {
    AppDomain.CurrentDomain.UnhandledException += (s1, e1) => { Console.WriteLine((e1.ExceptionObject as Exception).ToString()); Console.ReadLine(); }; // это нужно для того, что бы если вдруг на компе, где запускается вдруг не окажется нужной dll

    try
    {
    Testrunner(); // запуск метода в котором идет запуск QTP
    }
    catch (Exception e) // отлов возникающих ошибок и вывод их в консоль
    {
    Console.WriteLine(e.ToString());
    Console.ReadKey();
    }
    }


    public static void Testrunner()
    {
    ApplicationClass app = new ApplicationClass(); // собственно создается объект класса в котором реализованы все методы интерфейсов объекта Application

    app.Launch(); // запуск QTP
    app.Visible = true; // Делаем видимым
    Console.ReadKey(); // Ждем нажатия кнопки в Console
    app.Quit(); // После нажатия кнопки в консоли мы закрываем QTP


    // Вкратце суть строчек ниже это очистка памяти. Метод FinalReleaseComObject Освобождает все ссылки на вызываемую оболочку CLR, устанавливая счетчик ссылок соответствующей оболочки среды CLR равным 0. Далее вызываем garbage collector , т.е. сборщик мусора. Я думаю это все делать не обязательно , но т.к. по сути мы используем не управляемый код используя dll. У меня возникали различные ошибки связанные с тем, что где то, видимо не подчищалось.
    while( System.Runtime.InteropServices.Marshal.FinalReleaseComObject( app ) > 0 );

    app = null;

    GC.Collect();
    GC.WaitForPendingFinalizers();
    GC.Collect();
    }

    }

    }



    Кстати в случае использования QTObjectModelLib.dll , вместо QTObjectModel.dll, можно также создавать объект Application следующим образом:

    Application app = new Application();

    И это не смотря на то, что Application интерфейс.







Теперь совет, если вы при попытке запуска QTP через скрипт получаете ошибку "сервер rpc недоступен", то зайдите в Task Manager и прибейте процесс QTAutomation Agent.
И попробуйте снова.

среда, 19 августа 2009 г.

Example. QTP connection to Oracle by ADO DB provider.

Доступ к базе данных из QTP на примере Oracle


Как известно при записи скрипта QTP предоставляет возможность создания checkpoint с привязкой данных к значениям из бд.





И просто выводить значение из БД через Output Value.

Но в силу того, что в проекте, в котором я сейчас участвую, я создаю тестовые скрипты основываясь не на записи, а на создании их в ExpertView через так называемое programmatic description (программируемое описание).
Данные возможности я не использую. Кстати в данном случае запись я не использую т.к. почему то при записи в IE начинаются глюки, не раскрываются менюшки (Написанные с использованием htc и css). При этом если отключить запись и перезайти в приложение, то все ок.



Недавно мне понадобилась брать значения для запроса из таблицы БД Oracle.
Пошуршив документацию по VB я наткнулся на Microsoft ActiveX Data Objects (ADO). Вот сразу ссылочка на API .

Итак вот пример использования данного объекта для обращения к БД Oracle из QTP и получение значения из таблицы БД.






ConnectionString="Password=pass;User ID=user;Data Source=sid2; Provider=OraOLEDB.Oracle;" ' задается строка соединения к Oracle

' Строка запроса, который будет выполнен в БД
sSql = " select word from ole_search_index where field_name='Comment' "


Set oConn = CreateObject ("ADODB.Connection") ' Создаем объект

' открываем соединение к БД с заданными в строке соединения параметрами
oConn.Open ConnectionString

' Задаем объект ADODB.Recordset, который возвращает метод
set rs=oConn.Execute (sSql)

'rs.fields(0).value fields свойство объекта Recordset возвращающает коллекцию
' объектов field, которые являются по сути столбцами таблицы


Do Until checkfield( rs.fields(0).value )' Исполнения цикла до тех пор пока не true
' также можно сделать условие привязанное к свойству EOF объекта Recordset
' свойство EOF возвращает булево значение. В кратце суть EOF это, что пройденны все
' записи полученные объектом recordset

rs.MoveNext() ' переход к следующей строчке таблицы
' по умолчанию чтение из таблицы БД начинается с первой строчки

Loop



oConn.Close ' закрытие соединения к БД