1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
'
' Visual Basic.Net COmpiler
' Copyright (C) 2004 - 2006 Rolf Bjarne Kvinge, rbjarnek at users.sourceforge.net
'
' This library is free software; you can redistribute it and/or
' modify it under the terms of the GNU Lesser General Public
' License as published by the Free Software Foundation; either
' version 2.1 of the License, or (at your option) any later version.
'
' This library is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
' Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public
' License along with this library; if not, write to the Free Software
' Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
'
<System.ComponentModel.TypeConverter(GetType(System.ComponentModel.ExpandableObjectConverter))> _
Public MustInherit Class VerificationBase
Private m_Result As Boolean
Private m_Run As Boolean
Private m_Test As Test
Private m_NegativeError As Integer
Private m_Warning As Integer
Private m_DescriptiveMessage As String
Private m_Name As String = "Verification"
Property Warning() As Integer
Get
Return m_Warning
End Get
Set(ByVal value As Integer)
m_Warning = value
End Set
End Property
Property NegativeError() As Integer
Get
Return m_NegativeError
End Get
Set(ByVal value As Integer)
m_NegativeError = value
End Set
End Property
Property Name() As String
Get
Return m_Name
End Get
Set(ByVal value As String)
m_Name = value
End Set
End Property
''' <summary>
''' A descriptive message of the verification, normally just StdOut.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Property DescriptiveMessage() As String
Get
Return m_DescriptiveMessage
End Get
Protected Set(ByVal value As String)
m_DescriptiveMessage = value
End Set
End Property
''' <summary>
''' Has this verification been done?
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
ReadOnly Property Run() As Boolean
Get
Return m_Run
End Get
End Property
''' <summary>
''' The result of the verification.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
ReadOnly Property Result() As Boolean
Get
Return m_Result
End Get
End Property
''' <summary>
''' The test to verify.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
ReadOnly Property Test() As Test
Get
Return m_Test
End Get
End Property
''' <summary>
''' Creates a new verifier.
''' </summary>
''' <param name="Test">The test to verify.</param>
''' <remarks></remarks>
Public Sub New(ByVal Test As Test)
m_Test = Test
End Sub
Protected MustOverride Function RunVerification() As Boolean
Public Function Verify() As Boolean
m_Result = RunVerification()
m_Run = True
Return m_Result
End Function
End Class
|
