<Fact>
Public Sub EventImplementation_27()
Dim csSource =
"
public interface I1
{
internal static event System.Action P1;
}
"
Dim csCompiation = GetCSharpCompiation(csSource).EmitToImageReference()
Dim source1 =
<compilation>
<file name="c.vb"><![CDATA[
Public Class C
Shared Sub Main()
AddHandler I1.P1, Nothing
RemoveHandler I1.P1, Nothing
End Sub
End Class
]]></file>
</compilation>
Dim comp1 = CreateCompilation(source1, targetFramework:=TargetFramework.NetStandardLatest, references:={csCompiation})
comp1.AssertTheseDiagnostics(
<error>
BC30456: 'P1' is not a member of 'I1'.
AddHandler I1.P1, Nothing
~~~~~
BC30456: 'P1' is not a member of 'I1'.
RemoveHandler I1.P1, Nothing
~~~~~
</error>)
Dim comp2 = CreateCompilation(source1, targetFramework:=TargetFramework.NetStandardLatest, references:={csCompiation}, options:=TestOptions.DebugDll.WithMetadataImportOptions(MetadataImportOptions.All))
comp2.AssertTheseDiagnostics(
<error>
BC30389: 'I1.P1' is not accessible in this context because it is 'Private'.
AddHandler I1.P1, Nothing
~~~~~
BC30389: 'I1.P1' is not accessible in this context because it is 'Private'.
RemoveHandler I1.P1, Nothing
~~~~~
</error>)
End Sub
BC30389: 'I1.P1' is not accessible in this context because it is 'Private'.
BC30389: 'I1.P1' is not accessible in this context because it is 'Friend'.
Observed:
Expected: