QTP - Automatisierungsobjektmodell

QTP selbst kann über die von HP-QTP bereitgestellte COM-Schnittstelle automatisiert werden. Das Automatisierungsobjektmodell besteht aus einer Reihe von Objekten, Methoden und Eigenschaften, mit denen die Tester die Konfigurationseinstellungen steuern und die Skripts über die QTP-Schnittstelle ausführen können. Die wichtigsten Konfigurationen / Aktionen, die gesteuert werden können (aber nicht darauf beschränkt sind), sind nachstehend aufgeführt:

  • Lädt alle erforderlichen Add-Ins für einen Test
  • Macht QTP während der Ausführung sichtbar
  • Öffnet den Test an der angegebenen Stelle
  • Assoziiert Funktionsbibliotheken
  • Gibt das Zeitlimit für die Synchronisierung gemeinsamer Objekte an
  • Iteration starten und beenden
  • Aktivieren / Deaktivieren der intelligenten Identifizierung
  • Bei Fehlereinstellungen
  • Datentabellenpfad
  • Einstellungen für das Wiederherstellungsszenario
  • Protokollverfolgungseinstellungen

QTP 11.5x bietet eine exklusive Dokumentation zum Automatisierungsobjektmodell, auf die durch Navigieren zu "Start" >> "Alle Programme" >> "HP Software" >> "HP Unified Functional Testing" >> "Dokumentation" >> "Unified" verwiesen werden kann Referenz zur Automatisierung von Funktionstests ".

AOM-Skript generieren

Ein Tester kann mit der Option "Skript generieren" ein AOM-Skript aus QTP selbst generieren. Navigieren Sie zu "Ausführen" >> "Einstellungen" >> Registerkarte "Eigenschaften" >> "Skript generieren" wie unten gezeigt -

Beispiel

' A Sample Script to Demostrate AOM
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True

App.Test.Settings.Launchers("Web").Active = False
App.Test.Settings.Launchers("Web").Browser = "IE"
App.Test.Settings.Launchers("Web").Address = "http://easycalculation.com/"
App.Test.Settings.Launchers("Web").CloseOnExit = True

App.Test.Settings.Launchers("Windows Applications").Active = False
App.Test.Settings.Launchers("Windows Applications").Applications.RemoveAll
App.Test.Settings.Launchers("Windows Applications").RecordOnQTDescendants = True
App.Test.Settings.Launchers("Windows Applications").RecordOnExplorerDescendants = False
App.Test.Settings.Launchers("Windows Applications").RecordOnSpecifiedApplications = True

App.Test.Settings.Run.IterationMode = "rngAll"
App.Test.Settings.Run.StartIteration = 1
App.Test.Settings.Run.EndIteration = 1
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.DisableSmartIdentification = False
App.Test.Settings.Run.OnError = "Dialog"

App.Test.Settings.Resources.DataTablePath = "<Default>"
App.Test.Settings.Resources.Libraries.RemoveAll

App.Test.Settings.Web.BrowserNavigationTimeout = 60000
App.Test.Settings.Web.ActiveScreenAccess.UserName = ""
App.Test.Settings.Web.ActiveScreenAccess.Password = ""

App.Test.Settings.Recovery.Enabled = True
App.Test.Settings.Recovery.SetActivationMode "OnError"
App.Test.Settings.Recovery.Add "D:\GUITest2\recover_app_crash.qrs", 
   "Recover_Application_Crash", 1
App.Test.Settings.Recovery.Item(1).Enabled = True 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' System Local Monitoring settings
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
App.Test.Settings.LocalSystemMonitor.Enable = false
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Log Tracking settings
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With App.Test.Settings.LogTracking
   .IncludeInResults = False
   .Port = 18081 
   .IP = "127.0.0.1"
   .MinTriggerLevel = "ERROR"
   .EnableAutoConfig = False
   .RecoverConfigAfterRun = False
   .ConfigFile = ""
   .MinConfigLevel = "WARN" 
End With