Сообщений в теме: 9

[Tanya]

Вопрос такой...

Если на другой машине установить QTP 9.0, скопировать на эту машину скрипты, и пытаться их запустить... - будет ли оно работать? Не будет ли проблем с Object Repository??/

Кто сталкивался - подскажите - как надо сохранять скрипты, чтоб не было проблем с их запуском, и что нужно делать с Object Repository?

[Mike]

А в чём, собственно, проблема? С путями к ресурсам? (в том числе - к репозиториям). Так это решается просто - надо использовать относительные пути (Relative Path), то есть, что-то типа "..\MyRepository.tsr" если репозиторий лежит в той же папке, что и папка теста. То же касается и библиотек.

Или проблема с распознованием объектов?

[Tanya]

А проблема в том, что я переписала test и библиотеки на другую машину...

Библиотеки открылись - все ок, а test-файл -НЕ открывается :(

первая проблема именно в этом.

[Mike]

Что значит "НЕ открывается"? Как именно (дословно, пожалуйста) ругается QTP? И что именно Вы переписали?

[Tanya]

А пишет - Unexpected File Format.

Это же сообщение появляется, когда я пытаюсь открыть скрипт из вашей библиотеки.
(кстати, двуфруймовый лог мне ОЧЕНЬ понравился.... Хочу и себе такой... ) - посмотрела файлик ЛОГ.html

Так - вернемся к ошибке при открытии файла.

У меня есть дву папки - одна - LIB (там библиотеки функций), вторая "1" (это название папки)- где хранится скрипт. Во второй есть файлы:

1.usr
default.cfg
default.usp
Default.xls
lock.lck
Parameters.mtr
Test.tsp


Я просто сохранила две папки на диск, и потом попыталась их открыть. QTP 9.0 видит папку "1", при двойном клике выдается ошибка - Unexpected File Format.


Все то же самое посторяется если я пытаюсь открыть вашу библиотеку.

[Mike]

А поддиректории папки теста Вы перенесли? Вообще-то, в папке теста должны быть поодиректории Action0, Action1, и т.д. Их обязательно надо перенести (с содержимым) , как и все файлы непосредственно в папке теста.

[Tanya]

- нет... я почему-то подумала, что там результаты - и они мне не нужны....

Теперь понятно.....

Хорошо - а как заставить работать ваши библиотеки?

[Mike]

А в чём проблема?

[Tanya]

А проблема все та-же - Unexpected File Format.

Я скачала оба архива - распаковала. При попытке открыть - получаю вот такое сообщение. :(

[Mike]

Как-то Вы неправильно распаковывали. Я только что скачал с сайта, распаковал и открыл тест PublicDebug - он прекрасно открылся (правда, так как я его сохранял в версии 8, попросил конвертировать). Вы уверены, что Вы все скопировали? Все папки и поддиректории?

Ну и потом, по большому счёту, сам тест Вам не нужен. Нет там ничего интересного. Вот, собственно, текст единственного Action:

-------------------------------------------------------------------------------------------------------------
' Debug script for cpframework_public,smartcheck_public,DictLib_public and TOCollection_public libraries
' Kind'a unit test + example of usage :)
'
' After running test, open HTML log file from <Report Folder>\log.htm
'-------------------------------------------------------------------------------------------------------------


shouldfail = true
'This will not affect context-sensitive checkpoints and dictionaries.


if shouldfail then
	txt1 = "Text Line 1"&vbCrLf&"Text Line 2"&vbCrLf&"Text Line 3"
	arr1d = Split("1 2 3 4"," ")
else	
	txt1 = "Text Line 1"&vbCrLf&"Text Line 2_modified"&vbCrLf&"Text Line 3"&vbCrLf&"Text Line 4"
	arr1d = Split("1 2 5"," ")
end if


'Test cpframework_public and smartcheck_public

ReportEventEx micDone,"First event in log","Just to test ReportEventEx :)"

ReportTestStepStart "CpFramework unit test","Test Reporting and checkpoint functions ","Step is failed" 

textCheck txt1,"txt1",empty
textSmartCheck txt1,"txt1smart",empty
array1DCheck arr1d,"arr1d",empty
array1DSmartCheck arr1d,"arr1dsmart",empty

while Browser("Welcome: Mercury").Exist(0)
	Browser("Welcome: Mercury").Close
wend

systemutil.Run "iexplore","http://newtours.mercuryinteractive.com"
if Browser("Welcome: Mercury").Exist(30) then
	Browser("Welcome: Mercury").Sync()

	WebFormControlsCheck Browser("Welcome: Mercury").Page("Welcome: Mercury"),"webformControls"
	WebFormValuesCheck Browser("Welcome: Mercury").Page("Welcome: Mercury"),"webformValues"
	tableCheck Browser("Welcome: Mercury").WebTable("index:=3"),"table1"
	resTableCheck Browser("Welcome: Mercury").WebTable("index:=3"),empty,"table1Smart"
else
	ReportEventEx micFail,"Mercury tours","Failed to open page in IE"
end if
	
ReportTestStep "CpFramework unit test","Test Reporting and checkpoint functions ","Step is failed"

'Test DictLib. Note - result of all dictionary functions calls below should be reported as failed 

ReportTestStepStart "DictLib unit test","Test dict... functions ","Yap"

set aDict1 = dictFromParamString("key1=value1;key2=value2;key3=value3")
set aDict2 = dictFromParamString("key1=value1;key2=value2_modified;key3_modified=value3")

dictCompare aDict1,aDict2
dictCompare1Way aDict1,aDict2
dictCompare1Way aDict2,aDict1

aDict2.Add "key3",""

dictUpdate aDict1,aDict2
reportEventEx micDone,"dict2 copy now is:",dictToParamString(dictCopy(aDict2))

ReportTestStep "DictLib unit test","Test dict... functions ","Step failed"

'Test TOCollection_public library

ReportTestStepStart "TOCollection unit test","Test TOCollection class and fillForm function","Step passed"

set aTO = getTOCollection()

aTo.addFromString("~login:micclass=WebEdit;name=userName~pwd:micclass=WebEdit;name=password")

fillForm Browser("Welcome: Mercury").Page("Welcome: Mercury"),aTO,"login=alex;pwd=mercury"
ReportTestStep "TOCollection unit test","Test TOCollection class and fillForm function","Step passed"

ReportTestStep "Test Step without step start","Test ReportTestStep function",""