VB.NETのテストケースからプライベートメンバーにアクセスするにはどうすればよいですか？

Question

私はVS 2010 Professionalの組み込みテストケースを使用しています。私は実際に押すことなく、私はクラスのメソッドのいくつかをテストできるように偽のサーバー実装を作りたい私のテストケースでは

Private _server As IServer = Nothing 
    Public ReadOnly Property Server() 
     Get 
      If _server Is Nothing Then 
       RemotingSetup.RegisterHttpBinaryChannel() 
       _server = RemotingFactory.CreateProxy(Of IServer)(Options.DevLocal) 
      End If 

      Return _server 
     End Get 
    End Property 

：私はこのようになります読み取り専用プロパティを持つクラスを持っていますサーバー。私は周りを見回してInternalsVisibleTo属性を見ましたが、それはFriendレベルのメンバーにしかアクセスできないようです。

Public/Friendの宣言以外に、これらのメンバーに簡単にアクセスできますか？

Answer 1

プライベートメンバーをモックする模擬ライブラリ（これは私が知っている唯一のものですTypeMockなど）以外にも、少なくともこの特定のクラスを直接テストする場合は不運です。

このクラスからサブクラス化して、このプロパティをオーバーライドすることもできます。これにより、他のすべての機能をテストできます。もちろん、これはクラスが密封されていないことを前提としています（NotInheritable）。