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
|
Imports System.Reflection
Imports NUnit.Framework
Module Tester
Function Main() As Integer
System.Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.GetCultureInfo("en-US")
System.Threading.Thread.CurrentThread.CurrentUICulture = Globalization.CultureInfo.GetCultureInfo("en-US")
Dim success As Boolean = True
Dim objects As New ArrayList
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.BooleanTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.ByteTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.ShortTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.IntegerTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.LongTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.SingleTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.DoubleTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.DateTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.DecimalTypeTest)
objects.Add(New MonoTests.Microsoft_VisualBasic.FileSystemTests2)
Dim ms As New Microsoft.VisualBasic.CompilerServices.OptionCompareAttribute
If True OrElse ms.GetType.Assembly.Location.Contains("assembly\GAC") = False Then
objects.Add(New MonoTests.Microsoft_VisualBasic.FileSystemTestGenerated)
End If
Dim counter As Integer = 0
For Each obj As Object In objects
For Each method As MethodInfo In obj.GetType.GetMethods()
counter += 1
Dim failed As Boolean = False
Dim ex2 As Exception = Nothing
Dim exp As ExpectedExceptionAttribute = Nothing
If method.IsDefined(GetType(TestAttribute), True) = False Then Continue For
Dim exps() As Object = method.GetCustomAttributes(GetType(ExpectedExceptionAttribute), True)
If exps IsNot Nothing AndAlso exps.Length = 1 Then
exp = DirectCast(exps(0), ExpectedExceptionAttribute)
End If
Try
method.Invoke(obj, New Object() {})
Catch ex As TargetInvocationException
ex2 = ex.InnerException
Catch ex As Exception
ex2 = ex
End Try
Dim msg As String = Nothing
If ex2 Is Nothing AndAlso exp IsNot Nothing Then
msg = String.Format("Expected: " & exp.ExceptionType.FullName & " (" & exp.ExpectedMessage & ")")
ElseIf ex2 IsNot Nothing AndAlso exp Is Nothing Then
msg = String.Format("Didn't expect: " & ex2.GetType.FullName & " (" & ex2.Message & ")")
ElseIf ex2 IsNot Nothing AndAlso exp IsNot Nothing AndAlso (ex2.GetType Is exp.ExceptionType = False OrElse (ex2.Message <> exp.ExpectedMessage AndAlso exp.ExpectedMessage <> "")) Then
msg = String.Format("Expected: " & exp.ExceptionType.FullName & " (" & exp.ExpectedMessage & "), got: " & ex2.GetType.FullName & " (" & ex2.Message & ")")
End If
If msg <> "" Then
failed = True
success = False
msg = ": " & msg
End If
Dim line As String = (Not failed).ToString()(0).ToString & " " & method.Name & msg
Console.WriteLine(line)
Debug.WriteLine(counter.ToString() & " " & line)
If failed AndAlso System.Diagnostics.Debugger.IsAttached Then
Stop
End If
success = success AndAlso failed = False
Next
Next
If Not success Then
Console.WriteLine("Find the 'ANY' key on the keyboard and press it to exit.")
Console.Read()
Else
Debug.WriteLine("Succeded!")
End If
End Function
End Module
|
