WebHeaderCollectionのインスタンス化
リスト9-9
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports Moq
Imports MvcTestVB.Controllers
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.Mvc
Imports System.Web.Routing
<TestClass()> Public Class AjaxControllerTest
<TestMethod()> Public Sub GroumetResultTest()
Dim request As New Mock(Of HttpRequestBase)
request.Setup(Function(x) x.Headers).Returns(
New System.Net.WebHeaderCollection From {
{"X-Requested-With", "XMLHttpRequest"}})
Dim context As New Mock(Of HttpContextBase)
context.Setup(Function(x) x.Request).Returns(request.Object)
Dim ctrl As New AjaxController()
ctrl.ControllerContext = New ControllerContext(context.Object, New RouteData(), ctrl)
ctrl.Url = New UrlHelper()
Dim result = ctrl.GourmetResult("焼き肉", "PREF13")
Assert.IsInstanceOfType(result, GetType(PartialViewResult))
Dim rests = DirectCast(CType(result, PartialViewResult).Model, IEnumerable(Of Restaurant))
Assert.AreEqual(rests.Count(), 10)
End Sub
End Class