Skip to content

Commit 0eee703

Browse files
kzukzu
committed
Apply formatting
1 parent a6ee0f1 commit 0eee703

236 files changed

Lines changed: 50242 additions & 40736 deletions

File tree

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎src/Moq.Tests.VisualBasic/IssueReports.vb‎

Lines changed: 93 additions & 93 deletions
Original file line numberDiff line numberDiff line change
@@ -5,123 +5,123 @@ Imports Xunit
55

66
Public Class IssueReports
77

8-
Public Class Issue278
8+
Public Class Issue278
99

10-
<Fact()>
11-
Public Sub SetupsForPropertiesWithMultipleArgsDoNotOverwriteEachOther()
12-
Dim mock As New Mock(Of ISimpleInterface)()
10+
<Fact()>
11+
Public Sub SetupsForPropertiesWithMultipleArgsDoNotOverwriteEachOther()
12+
Dim mock As New Mock(Of ISimpleInterface)()
1313

14-
mock.Setup(Function(m) m.PropertyWithMultipleArgs(1, 1)).Returns(1)
15-
mock.Setup(Function(m) m.PropertyWithMultipleArgs(1, 2)).Returns(2)
14+
mock.Setup(Function(m) m.PropertyWithMultipleArgs(1, 1)).Returns(1)
15+
mock.Setup(Function(m) m.PropertyWithMultipleArgs(1, 2)).Returns(2)
1616

17-
Assert.Equal(1, mock.Object.PropertyWithMultipleArgs(1, 1))
18-
Assert.Equal(2, mock.Object.PropertyWithMultipleArgs(1, 2))
19-
20-
End Sub
17+
Assert.Equal(1, mock.Object.PropertyWithMultipleArgs(1, 1))
18+
Assert.Equal(2, mock.Object.PropertyWithMultipleArgs(1, 2))
19+
20+
End Sub
2121

22-
Public Interface ISimpleInterface
23-
24-
ReadOnly Property PropertyWithMultipleArgs(setting As Integer, setting2 As Integer) As Integer
22+
Public Interface ISimpleInterface
23+
24+
ReadOnly Property PropertyWithMultipleArgs(setting As Integer, setting2 As Integer) As Integer
2525

26-
End Interface
27-
End Class
26+
End Interface
27+
End Class
2828

29-
Public Class Issue1067
29+
Public Class Issue1067
3030

31-
<Fact>
32-
Public Sub Test_NonGeneric()
33-
Dim userManagerMock = New Mock(Of IUserManager)()
34-
Setup_NonGeneric(userManagerMock, 42)
31+
<Fact>
32+
Public Sub Test_NonGeneric()
33+
Dim userManagerMock = New Mock(Of IUserManager)()
34+
Setup_NonGeneric(userManagerMock, 42)
3535

36-
Dim user As New User()
37-
userManagerMock.Object.Create(user)
36+
Dim user As New User()
37+
userManagerMock.Object.Create(user)
3838

39-
Assert.Equal(42, user.Id)
40-
End Sub
39+
Assert.Equal(42, user.Id)
40+
End Sub
4141

42-
<Fact>
43-
Public Sub Test_Generic()
44-
Dim userManagerMock = New Mock(Of IUserManager)()
45-
Setup_Generic(Of User)(userManagerMock, 42)
42+
<Fact>
43+
Public Sub Test_Generic()
44+
Dim userManagerMock = New Mock(Of IUserManager)()
45+
Setup_Generic(Of User)(userManagerMock, 42)
4646

47-
Dim user As New User()
48-
userManagerMock.Object.Create(user)
47+
Dim user As New User()
48+
userManagerMock.Object.Create(user)
4949

50-
Assert.Equal(42, user.Id)
51-
End Sub
50+
Assert.Equal(42, user.Id)
51+
End Sub
5252

53-
Public Class User
54-
Property Id As Integer
55-
End Class
53+
Public Class User
54+
Property Id As Integer
55+
End Class
5656

57-
Public Interface IUserManager
58-
Sub Create(User As User)
59-
End Interface
57+
Public Interface IUserManager
58+
Sub Create(User As User)
59+
End Interface
6060

61-
Protected Sub Setup_NonGeneric(userManagerMock As Mock(Of IUserManager), expectedId As Integer)
62-
userManagerMock.Setup(Sub(manager) manager.Create(It.IsAny(Of User))).Callback(Sub(user) user.Id = expectedId)
63-
End Sub
61+
Protected Sub Setup_NonGeneric(userManagerMock As Mock(Of IUserManager), expectedId As Integer)
62+
userManagerMock.Setup(Sub(manager) manager.Create(It.IsAny(Of User))).Callback(Sub(user) user.Id = expectedId)
63+
End Sub
6464

65-
Protected Sub Setup_Generic(Of TUser As User)(userManagerMock As Mock(Of IUserManager), expectedId As Integer)
66-
userManagerMock.Setup(Sub(manager) manager.Create(It.IsAny(Of TUser))).Callback(Sub(user) user.Id = expectedId)
67-
' ^
68-
' The use of generics will cause the VB.NET compiler to wrap the `It.IsAny<>` call with two `Convert` nodes.
69-
' The inner conversion will convert to `Object`, and the outer conversion will convert to `User` (i.e. the type that
70-
' `TUser` is constrained to). `MatcherFactory` needs to be able to recognize the `It.IsAny<>` matcher even if it
71-
' is doubly wrapped!
72-
End Sub
65+
Protected Sub Setup_Generic(Of TUser As User)(userManagerMock As Mock(Of IUserManager), expectedId As Integer)
66+
userManagerMock.Setup(Sub(manager) manager.Create(It.IsAny(Of TUser))).Callback(Sub(user) user.Id = expectedId)
67+
' ^
68+
' The use of generics will cause the VB.NET compiler to wrap the `It.IsAny<>` call with two `Convert` nodes.
69+
' The inner conversion will convert to `Object`, and the outer conversion will convert to `User` (i.e. the type that
70+
' `TUser` is constrained to). `MatcherFactory` needs to be able to recognize the `It.IsAny<>` matcher even if it
71+
' is doubly wrapped!
72+
End Sub
7373

74-
End Class
74+
End Class
7575

76-
Public Class Issue1129
76+
Public Class Issue1129
7777

78-
<Fact>
79-
Public Sub Test()
80-
Dim classMock = New Mock(Of IndexerInterface)()
78+
<Fact>
79+
Public Sub Test()
80+
Dim classMock = New Mock(Of IndexerInterface)()
8181

82-
classMock.SetupAllProperties()
82+
classMock.SetupAllProperties()
8383

84-
Assert.False(classMock.Object.Value)
85-
End Sub
86-
Public Interface IndexerInterface
87-
ReadOnly Property SystemDefault() As Boolean
88-
Property Value() As Boolean
89-
Property Value(ByVal OverrideLevel As Integer) As Boolean
90-
Property Value(ByVal OverrideLevel As Integer, ByVal OverrideID As String) As Boolean
91-
End Interface
92-
End Class
84+
Assert.False(classMock.Object.Value)
85+
End Sub
86+
Public Interface IndexerInterface
87+
ReadOnly Property SystemDefault() As Boolean
88+
Property Value() As Boolean
89+
Property Value(ByVal OverrideLevel As Integer) As Boolean
90+
Property Value(ByVal OverrideLevel As Integer, ByVal OverrideID As String) As Boolean
91+
End Interface
92+
End Class
9393

94-
Public Class Issue1153
94+
Public Class Issue1153
9595

96-
<Fact>
97-
Public Sub Indexer_overload_can_be_distinguished_from_property_when_mocking_declaring_class()
98-
Dim mock = New Mock(Of MyVBClassBase)()
99-
mock.Setup(Function(m) m.Prop).Returns(True)
100-
End Sub
96+
<Fact>
97+
Public Sub Indexer_overload_can_be_distinguished_from_property_when_mocking_declaring_class()
98+
Dim mock = New Mock(Of MyVBClassBase)()
99+
mock.Setup(Function(m) m.Prop).Returns(True)
100+
End Sub
101101

102-
<Fact>
103-
Public Sub Indexer_overload_can_be_distinguished_from_property_when_mocking_subclass_of_declaring_class()
104-
Dim mock = New Mock(Of MyVBClass)()
105-
mock.Setup(Function(m) m.Prop).Returns(True)
106-
End Sub
102+
<Fact>
103+
Public Sub Indexer_overload_can_be_distinguished_from_property_when_mocking_subclass_of_declaring_class()
104+
Dim mock = New Mock(Of MyVBClass)()
105+
mock.Setup(Function(m) m.Prop).Returns(True)
106+
End Sub
107107

108-
Public Class MyVBClassBase
109-
Public Overridable ReadOnly Property Prop() As Boolean
110-
Get
111-
Return True
112-
End Get
113-
End Property
114-
Public Overridable ReadOnly Property Prop(ByVal userID As Guid) As Boolean
115-
Get
116-
Return False
117-
End Get
118-
End Property
119-
End Class
120-
121-
Public Class MyVBClass
122-
Inherits MyVBClassBase
123-
End Class
124-
125-
End Class
108+
Public Class MyVBClassBase
109+
Public Overridable ReadOnly Property Prop() As Boolean
110+
Get
111+
Return True
112+
End Get
113+
End Property
114+
Public Overridable ReadOnly Property Prop(ByVal userID As Guid) As Boolean
115+
Get
116+
Return False
117+
End Get
118+
End Property
119+
End Class
120+
121+
Public Class MyVBClass
122+
Inherits MyVBClassBase
123+
End Class
124+
125+
End Class
126126

127127
End Class

0 commit comments

Comments
 (0)