gambas-source-code/.src/TestParameter.class
Christof Thalhofer e2da39e818 initialer Commit
2015-01-29 15:02:26 +01:00

59 lines
1.1 KiB
Text

' Gambas class file
' 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