1 |
#Region "Microsoft.VisualBasic::65d2c92f666b628671e70d07e58b216f, Microsoft.VisualBasic.Core\Language\Value\DefaultValue\BooleanAssert.vb"
|
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 |
#End Region
|
43 |
|
44 |
Imports System.Runtime.CompilerServices
|
45 |
|
46 |
Namespace Language.Default
|
47 |
|
48 |
Public Structure BooleanAssert
|
49 |
|
50 |
Dim bool As Boolean
|
51 |
|
52 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
53 |
Public Overrides Function ToString() As String
|
54 |
Return bool.ToString
|
55 |
End Function
|
56 |
|
57 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
58 |
Public Shared Widening Operator CType(b As Boolean) As BooleanAssert
|
59 |
Return New BooleanAssert With {.bool = b}
|
60 |
End Operator
|
61 |
|
62 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
63 |
Public Shared Narrowing Operator CType(b As BooleanAssert) As Boolean
|
64 |
Return b.bool
|
65 |
End Operator
|
66 |
|
67 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
68 |
Public Shared Operator IsTrue(b As BooleanAssert) As Boolean
|
69 |
Return b.bool
|
70 |
End Operator
|
71 |
|
72 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
73 |
Public Shared Operator IsFalse(b As BooleanAssert) As Boolean
|
74 |
Return b.bool = False
|
75 |
End Operator
|
76 |
|
77 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
78 |
Public Shared Operator =(b As BooleanAssert, bool As Boolean) As Boolean
|
79 |
Return b.bool = bool
|
80 |
End Operator
|
81 |
|
82 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
83 |
Public Shared Operator <>(b As BooleanAssert, bool As Boolean) As Boolean
|
84 |
Return Not b = bool
|
85 |
End Operator
|
86 |
|
87 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
88 |
Public Shared Operator =(bool As Boolean, b As BooleanAssert) As Boolean
|
89 |
Return b = bool
|
90 |
End Operator
|
91 |
|
92 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
93 |
Public Shared Operator <>(bool As Boolean, b As BooleanAssert) As Boolean
|
94 |
Return Not b = bool
|
95 |
End Operator
|
96 |
|
97 |
<MethodImpl(MethodImplOptions.AggressiveInlining)>
|
98 |
Public Shared Operator Or(assert As BooleanAssert, ifFailure As Object()) As Object
|
99 |
Return If(assert, ifFailure(0), ifFailure(1))
|
100 |
End Operator
|
101 |
End Structure
|
102 |
End Namespace
|