An engineering approach to Software Testing and Test Automation

In the code examples I present I often refer to routine functions. In my framework I have specialized libraries to call from.  In my blog I maintain the similar structure. Creating Custom Dialog DotNetFactory interface functions – create custom dialog  Creating DotNetFactory GUI Objects DotNetFactory interface functions (1) – Create Button DotNetFactory interface functions (2) – Create Label DotNetFactory [...] ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Used resources Service Functions – String (QTP, VBScript) Implementing optional and default parameters Create TextBox along with the Prompt Label and place on the GUI Form  Public Function PlaceTextBox(ByRef objForm, ByVal objParameter)     Dim sPrompt     Dim intLeft, intTop     Dim objTextBox, objLabel   'Verify parameters   If TypeName (objParameter) <>  ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Creating .NET objects from VBScript/QTP You can create a basic Form and assign required properties within one line by calling the function below. The function has one mandatory parameter (which though is initialized by default if empty) and a set of optional parameters provided in the Dictionary object. [...] ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Creating .NET objects from VBScript/QTP You can create a ComboBox (Dropdown Listbox/InputBox Object) and assign required properties within one line by calling the function below. The function has one mandatory parameter (list of available selection items – packed in the Dictionary object) and a set of optional parameters [...] ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Creating .NET objects from VBScript/QTP You can create a CheckBox and assign required properties within one line by calling the function below. The function has one mandatory parameter (which though is initialized by default if empty) and a set of optional parameters provided in the Dictionary object. Currently [...] ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Creating .NET objects from VBScript/QTP You can create a TextBox (single-line Text Input object) and assign required properties within one line by calling the function below. The function has only optional parameters provided in the Dictionary object. Currently supported optional parameters: TextBox Width and Height. TextBox Coordinates – [...] ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Creating .NET objects from VBScript/QTP You can create a label and assign required properties within one line by calling the function below. The function has one mandatory parameter (which though is initialized by default if empty) and a set of optional parameters provided in the Dictionary object. Currently [...] ...

Parent page: Service Functions – DotNetFactory (QTP, VBScript) Creating .NET objects from VBScript/QTP You can create a button and assign required properties within one line by calling the function below. The function has one mandatory parameter (which though is initialized by default if empty) and a set of optional parameters provided in the Dictionary object. Currently [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Check whether an item is in set Public Function isItemInSet(ByVal stSet, ByVal sItem, ByVal sSetSeparator)   Dim dvArray   If sItem = "" Then     isItemInSet = False     Exit Function   End If       dvArray = Set2Array(stSet, sSetSeparator)   isItemInSet = isItemInArray(dvArray)   End Function ...

Parent page: Service Functions – Math (QTP, VBScript) Check whether a set consists of numeric values Public Function isSetNumeric(ByVal stSet, ByVal sSetSeparator)   Dim dvArray     dvArray = Set2Array(stSet, sSetSeparator)   isSetNumeric = isArrayNumeric(dvArray)     End Function Check whether a set consists of date/time values Public Function isSetDate(ByVal stSet, ByVal sSetSeparator)   Dim dvArray     [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Convert set to typed array Public Function Set2TypedArray(ByVal stSet, ByVal sSetSeparator, ByVal sFormat)   Dim Iter, dvArray     If sSetSeparator = "" Then     sSetSeparator = chrSetSeparator   End If  stSet = Replace(stSet, "\,", Chr(176))  stSet = Replace(stSet, "\ ", Chr(187))   dvArray = Split(stSet, sSetSeparator)   [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Convert array to set Public Function Array2Set(ByVal dvArray, ByVal sSetSeparator)   Dim Iter   Dim stResult     If Not isArray(dvArray) Then     Array2Set = ""     Exit Function   End If   If UBound(dvArray) = -1Then     Array2Set = ""     Exit Function   End If [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Check whether an item is in array Public Function isItemInArray(ByVal dvArray, ByVal sItem)   Dim Iter     If sItem = "" Then     isItemInArray = False     Exit Function   End If     If Not isArray(dvArray) Then     isItemInArray = False     Exit Function   [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Check whether an array consists of numeric values Public Function isArrayNumeric(ByVal dvArray)   Dim Iter     If Not isArray(dvArray) Then     isArrayNumeric = False     Exit Function   End If   If UBound(dvArray) = -1 Then     isArrayNumeric = False     Exit Function   End If [...] ...

In the code examples I present I often refer to routine functions. In my framework I have specialized libraries to call from.  In my blog I maintain the similar structure.  Array Functions  Sort Data Array Sort Typed Data Array Check Array Type Check Item in Array Convert Array to Set Set Functions Convert Set to Array [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Description Sorts one-dimentional array in ascending / descending order with typecasting.  Implementation Public Function TypedArraySort(ByRef dvArray, ByVal sFormat, ByVal boolAscending)   Dim Iter, Jter, aValue, boolRC     If Not isArray(dvArray) Then     dvArray = Array(dvArray)     ArraySort = dvArray   End If   sFormat = UCase(sFormat) [...] ...

Parent page: Service Functions – Math (QTP, VBScript) Description Sorts one-dimentional array in ascending / descending order.  Implementation Public Function ArraySort(ByRef dvArray, ByVal boolAscending)   Dim Iter, Jter, aValue     If Not isArray(dvArray) Then     dvArray = Array(dvArray)     ArraySort = dvArray   End If  For Jter = 0 To UBound(dvArray)   For Iter = [...] ...

Math primitives In the code examples I present I often refer to routine functions. In my framework I have specialized libraries to call from. In my blog I maintain the similar structure.  Math primitives 1 (WinRunner, TSL) Absolute value (Modulus) Check if a value has a multiple Check if a value belongs to range Check if [...] ...

Service Functions – Math / WinRunner Find and retrieve subrange, defined by RegEx public function mx_subrange_regex(inout mxTable[], inout mxRange[], in regex_from_str, in regex_to_str, in regex_col, in flExtend, in start_row, in end_row) {  auto rc, i, j, row_index;  auto col_count, row_count;  auto flFound;  col_count = mxTable[0, "sys", "colCount"];     row_count = mxTable[0, "sys", ...

Service Functions – Math / WinRunner Add new column to a matrix public function mx_add_col_value(inout mxTable[], in col_value) {  auto rc, i;  auto col_count, row_count;    col_count = mxTable[0, "sys", "colCount"];     row_count = mxTable[0, "sys", "rowCount"];    # create new col index  col_count++;    for (i=1;i<=row_count;i++)   mxTable[i,col_count] = col_value;     mxTable[0, ...