60 lines
1.2 KiB
Text
60 lines
1.2 KiB
Text
' Gambas class file
|
|
|
|
Export
|
|
' The TestParameter class is used to hold parameter information that is to be used by the
|
|
' test cases. The TestParameter class enables the construction of a hierarchy of parameter
|
|
' data where each object holds a name/value data and an optional collection of child parameters.
|
|
|
|
' Member variables
|
|
Private $sName As String
|
|
Private $vValue As Variant
|
|
Private $colParameters As TestParameters
|
|
|
|
' Get the name of the parameter
|
|
Property Name As String
|
|
|
|
Function Name_Read() As String
|
|
|
|
Return $sName
|
|
|
|
End
|
|
|
|
' Set the name for the parameter
|
|
Sub Name_Write(sName As String)
|
|
|
|
$sName = sName
|
|
|
|
End
|
|
|
|
' Get the value of the parameter
|
|
Property Value As Variant
|
|
|
|
' Get the child parameters associated with this parameter object
|
|
Property Parameters As TestParameters
|
|
|
|
Private Function Value_Read() As Variant
|
|
|
|
Return $vValue
|
|
|
|
End
|
|
|
|
Private Sub Value_Write(Value As Variant)
|
|
|
|
$vValue = Value
|
|
|
|
End
|
|
|
|
Private Function Parameters_Read() As TestParameters
|
|
|
|
If Not $colParameters Then
|
|
$colParameters = New TestParameters
|
|
End If
|
|
Return $colParameters
|
|
|
|
End
|
|
|
|
Private Sub Parameters_Write(Value As TestParameters)
|
|
|
|
$colParameters = Value
|
|
|
|
End
|