Rhino Mocks - 返すものをスタブアウトIQueryable（Of T）

Question

私はRhino Mock 3.5を使用していますが、以前は一度も試みたことのないものが最近出ました。私は、サービスとセットアップの戻り値スタブアウトしたい - シンプルなものを本当に

唯一の問題は、今、私のサービスは、IListのを返すのではなく、代わりのIQueryable

だから私はこのような何かをしようとすると、 - それは、私は以下のユニットテストを有効にするには、サービスをスタブアウトするにはどうすればよい

<TestMethod()> _ 
    Public Sub Should_Populate_Users_Property_On_View_During_OnInit() 
     Dim View As IUserView = MockRepository.GenerateStub(Of IUserView)() 
     Dim Service As IUserService = MockRepository.GenerateStub(Of IUserService)() 
     Dim Presenter As New UserPresenter(View, Service) 

     Dim StubUserObjectCollection As New List(Of User) 
     StubUserObjectCollection.Add(New User(1, "jdoe", "John", "Doe", 0, 0, 0, 1, 1)) 

     Service.Stub(Function(x) x.GetUserCollection()).[Return](StubUserObjectCollection) 

     Presenter.OnViewInit() 

     Assert.AreEqual(View.Users.Count, 1) 
    End Sub 

を吹く

Public Sub OnViewInit() 
    Dim UserList As List(Of User) = mUserService.GetUserCollection.Where(Function(x) x.Active = 1).OrderBy(Function(x) x.FirstName).ToList() 

    mView.Users = UserList 
End Sub 

Answer 1

を変更することはできません（簡潔にするために、単純なまま）よur StubUserObjectCollectionをIQueryableにするには？

Dim SubList As New List(Of User) 
StubList.Add(New User(1, "jdoe", "John", "Doe", 0, 0, 0, 1, 1)) 
Dim StubUserObjectCollection = StubList.AsQueryable();