Skip to content

Commit c63f2fd

Browse files
GrahamTheCoderGrahamTheCoder
committed
Add self verifying tests
1 parent 67c9246 commit c63f2fd

2 files changed

Lines changed: 360 additions & 2 deletions

File tree

‎Tests/TestData/SelfVerifyingTests/VBToCS/StringEqualityTests.vb‎

Lines changed: 179 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -115,4 +115,183 @@ Public Class StringEqualityTests
115115
If nullCharArray = nullCharArray Then record &= "1" Else record &= "0"
116116
Assert.Equal("1111011", record)
117117
End Sub
118+
119+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
120+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNullObject()
121+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(nullObject))
122+
End Sub
123+
124+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
125+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNullString()
126+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(nullString))
127+
End Sub
128+
129+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
130+
Public Sub VisualBasicEqualityInSelectStatementPreservedForEmptyStringObject()
131+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(emptyStringObject))
132+
End Sub
133+
134+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
135+
Public Sub VisualBasicEqualityInSelectStatementPreservedForEmptyString()
136+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(emptyString))
137+
End Sub
138+
139+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
140+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNonEmptyString()
141+
Assert.Equal("0000100", GetVisualBasicEqualitySelectStatementMap(nonEmptyString))
142+
End Sub
143+
144+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
145+
Public Sub VisualBasicEqualityInSelectStatementPreservedForEmptyCharArray()
146+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(emptyCharArray))
147+
End Sub
148+
149+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
150+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNullCharArary()
151+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(nullCharArray))
152+
End Sub
153+
154+
Public Overloads Function GetVisualBasicEqualitySelectStatementMap(toTest As String)
155+
Dim record = ""
156+
Select Case toTest
157+
Case nullObject
158+
record &= "1"
159+
Case Else
160+
record &= "0"
161+
End Select
162+
Select Case toTest
163+
Case nullString
164+
record &= "1"
165+
Case Else
166+
record &= "0"
167+
End Select
168+
Select Case toTest
169+
Case emptyStringObject
170+
record &= "1"
171+
Case Else
172+
record &= "0"
173+
End Select
174+
Select Case toTest
175+
Case emptyString
176+
record &= "1"
177+
Case Else
178+
record &= "0"
179+
End Select
180+
Select Case toTest
181+
Case nonEmptyString
182+
record &= "1"
183+
Case Else
184+
record &= "0"
185+
End Select
186+
Select Case toTest
187+
Case emptyCharArray
188+
record &= "1"
189+
Case Else
190+
record &= "0"
191+
End Select
192+
Select Case toTest
193+
Case nullCharArray
194+
record &= "1"
195+
Case Else
196+
record &= "0"
197+
End Select
198+
199+
Return record
200+
End Function
201+
202+
Public Overloads Function GetVisualBasicEqualitySelectStatementMap(toTest As Char())
203+
Dim record = ""
204+
Select Case toTest
205+
Case nullObject
206+
record &= "1"
207+
Case Else
208+
record &= "0"
209+
End Select
210+
Select Case toTest
211+
Case nullString
212+
record &= "1"
213+
Case Else
214+
record &= "0"
215+
End Select
216+
Select Case toTest
217+
Case emptyStringObject
218+
record &= "1"
219+
Case Else
220+
record &= "0"
221+
End Select
222+
Select Case toTest
223+
Case emptyString
224+
record &= "1"
225+
Case Else
226+
record &= "0"
227+
End Select
228+
Select Case toTest
229+
Case nonEmptyString
230+
record &= "1"
231+
Case Else
232+
record &= "0"
233+
End Select
234+
Select Case toTest
235+
Case emptyCharArray
236+
record &= "1"
237+
Case Else
238+
record &= "0"
239+
End Select
240+
Select Case toTest
241+
Case nullCharArray
242+
record &= "1"
243+
Case Else
244+
record &= "0"
245+
End Select
246+
247+
Return record
248+
End Function
249+
250+
Public Overloads Function GetVisualBasicEqualitySelectStatementMap(toTest As Object)
251+
Dim record = ""
252+
Select Case toTest
253+
Case nullObject
254+
record &= "1"
255+
Case Else
256+
record &= "0"
257+
End Select
258+
Select Case toTest
259+
Case nullString
260+
record &= "1"
261+
Case Else
262+
record &= "0"
263+
End Select
264+
Select Case toTest
265+
Case emptyStringObject
266+
record &= "1"
267+
Case Else
268+
record &= "0"
269+
End Select
270+
Select Case toTest
271+
Case emptyString
272+
record &= "1"
273+
Case Else
274+
record &= "0"
275+
End Select
276+
Select Case toTest
277+
Case nonEmptyString
278+
record &= "1"
279+
Case Else
280+
record &= "0"
281+
End Select
282+
Select Case toTest
283+
Case emptyCharArray
284+
record &= "1"
285+
Case Else
286+
record &= "0"
287+
End Select
288+
Select Case toTest
289+
Case nullCharArray
290+
record &= "1"
291+
Case Else
292+
record &= "0"
293+
End Select
294+
295+
Return record
296+
End Function
118297
End Class

‎Tests/TestData/SelfVerifyingTests/VBToCS/StringEqualityTestsOptionCompareCaseInsensitiveText.vb‎

Lines changed: 181 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
Option Compare Text
1+
Option Compare Text 'Copy paste of StringEqualityTests.vb with just this line added at the top
22

33
Imports System
44
Imports System.Linq
@@ -24,7 +24,7 @@ Public Class StringEqualityTests
2424
Private emptyStringObject As Object = ""
2525
Private emptyString As String = ""
2626
Private nonEmptyString As String = "a"
27-
Private emptyCharArray As Char() = New Char(){}
27+
Private emptyCharArray As Char() = New Char() {}
2828
Private nullCharArray As Char() = Nothing
2929

3030
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/105
@@ -117,4 +117,183 @@ Public Class StringEqualityTests
117117
If nullCharArray = nullCharArray Then record &= "1" Else record &= "0"
118118
Assert.Equal("1111011", record)
119119
End Sub
120+
121+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
122+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNullObject()
123+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(nullObject))
124+
End Sub
125+
126+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
127+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNullString()
128+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(nullString))
129+
End Sub
130+
131+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
132+
Public Sub VisualBasicEqualityInSelectStatementPreservedForEmptyStringObject()
133+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(emptyStringObject))
134+
End Sub
135+
136+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
137+
Public Sub VisualBasicEqualityInSelectStatementPreservedForEmptyString()
138+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(emptyString))
139+
End Sub
140+
141+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
142+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNonEmptyString()
143+
Assert.Equal("0000100", GetVisualBasicEqualitySelectStatementMap(nonEmptyString))
144+
End Sub
145+
146+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
147+
Public Sub VisualBasicEqualityInSelectStatementPreservedForEmptyCharArray()
148+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(emptyCharArray))
149+
End Sub
150+
151+
<Fact> 'https://github.com/icsharpcode/CodeConverter/issues/579
152+
Public Sub VisualBasicEqualityInSelectStatementPreservedForNullCharArary()
153+
Assert.Equal("1111011", GetVisualBasicEqualitySelectStatementMap(nullCharArray))
154+
End Sub
155+
156+
Public Overloads Function GetVisualBasicEqualitySelectStatementMap(toTest As String)
157+
Dim record = ""
158+
Select Case toTest
159+
Case nullObject
160+
record &= "1"
161+
Case Else
162+
record &= "0"
163+
End Select
164+
Select Case toTest
165+
Case nullString
166+
record &= "1"
167+
Case Else
168+
record &= "0"
169+
End Select
170+
Select Case toTest
171+
Case emptyStringObject
172+
record &= "1"
173+
Case Else
174+
record &= "0"
175+
End Select
176+
Select Case toTest
177+
Case emptyString
178+
record &= "1"
179+
Case Else
180+
record &= "0"
181+
End Select
182+
Select Case toTest
183+
Case nonEmptyString
184+
record &= "1"
185+
Case Else
186+
record &= "0"
187+
End Select
188+
Select Case toTest
189+
Case emptyCharArray
190+
record &= "1"
191+
Case Else
192+
record &= "0"
193+
End Select
194+
Select Case toTest
195+
Case nullCharArray
196+
record &= "1"
197+
Case Else
198+
record &= "0"
199+
End Select
200+
201+
Return record
202+
End Function
203+
204+
Public Overloads Function GetVisualBasicEqualitySelectStatementMap(toTest As Char())
205+
Dim record = ""
206+
Select Case toTest
207+
Case nullObject
208+
record &= "1"
209+
Case Else
210+
record &= "0"
211+
End Select
212+
Select Case toTest
213+
Case nullString
214+
record &= "1"
215+
Case Else
216+
record &= "0"
217+
End Select
218+
Select Case toTest
219+
Case emptyStringObject
220+
record &= "1"
221+
Case Else
222+
record &= "0"
223+
End Select
224+
Select Case toTest
225+
Case emptyString
226+
record &= "1"
227+
Case Else
228+
record &= "0"
229+
End Select
230+
Select Case toTest
231+
Case nonEmptyString
232+
record &= "1"
233+
Case Else
234+
record &= "0"
235+
End Select
236+
Select Case toTest
237+
Case emptyCharArray
238+
record &= "1"
239+
Case Else
240+
record &= "0"
241+
End Select
242+
Select Case toTest
243+
Case nullCharArray
244+
record &= "1"
245+
Case Else
246+
record &= "0"
247+
End Select
248+
249+
Return record
250+
End Function
251+
252+
Public Overloads Function GetVisualBasicEqualitySelectStatementMap(toTest As Object)
253+
Dim record = ""
254+
Select Case toTest
255+
Case nullObject
256+
record &= "1"
257+
Case Else
258+
record &= "0"
259+
End Select
260+
Select Case toTest
261+
Case nullString
262+
record &= "1"
263+
Case Else
264+
record &= "0"
265+
End Select
266+
Select Case toTest
267+
Case emptyStringObject
268+
record &= "1"
269+
Case Else
270+
record &= "0"
271+
End Select
272+
Select Case toTest
273+
Case emptyString
274+
record &= "1"
275+
Case Else
276+
record &= "0"
277+
End Select
278+
Select Case toTest
279+
Case nonEmptyString
280+
record &= "1"
281+
Case Else
282+
record &= "0"
283+
End Select
284+
Select Case toTest
285+
Case emptyCharArray
286+
record &= "1"
287+
Case Else
288+
record &= "0"
289+
End Select
290+
Select Case toTest
291+
Case nullCharArray
292+
record &= "1"
293+
Case Else
294+
record &= "0"
295+
End Select
296+
297+
Return record
298+
End Function
120299
End Class

0 commit comments

Comments
 (0)