UFT значения по умолчанию изменения входного параметра всех тестов

Question

у меня есть 100 случаев, и все имеют один и тот же параметр, называемый testEnvirement = «Envirement1»

Как я могу изменить этот параметр на «Envirement2» для всех тестовых случаев?

От ALM или UFT принимается

Заранее спасибо

Answer 1

@ridvanzoro: Просьба найти рабочий код ниже для требований, упомянутых выше.

Успенская \ Будущие модификации

1) В приведенной ниже скрипт будет работать только один тест, чтобы заменить строку 2) Если нужно работать для нескольких сценарий, нам нужно просто добавить один цикл вокруг имя тега Future в коде 3) Имя сценария должно вводиться либо из массива, либо каким-либо другим способом в соответствии с вашей логикой для всего скрипта, который нуждается в модификации переменной в одиночном кадре 4) Этот код предназначен для работы скрипты в локальном режиме, и это можно легко адаптировать к сценариям, сохраненным в ALM \ QC. Только нам нужно установить соединение с ALM через VBScript

Пожалуйста, дайте мне знать, если что-то потребуется в дополнение к этому.

Рабочий код

string_to_replace="Envirement1" 
replacing_value="Envirement2" 
Dim qtApp 
'Create the QTP Application object 
Set qtApp = CreateObject("QuickTest.Application") 

'If QTP is notopen then open it 
If qtApp.launched <> True then 
qtApp.Launch 
End If 

'Make the QuickTest application visible 
qtApp.Visible = True 
test_name="C:\Users\u461322\Desktop\Timesheet\GUITest1" 
REM Future 
qtApp.Open test_name, False, False 

'Get count of Action in a test 
oActCount=qtApp.Test.Actions.Count 
context = qtApp.Test.Actions(1).GetScript 
Set objRegEx = CreateObject("VBScript.RegExp") 

objRegEx.Global = True 
objRegEx.Pattern = string_to_replace 
strNewString = objRegEx.Replace(context,replacing_value) 
qtApp.Test.Actions(1).SetScript(strNewString) 
qtApp.Test.Save 
REM Future 
qtApp.quit 
Set qtApp = Nothing 
Set objRegEx = Nothing