Less Than Dot is a community of passionate IT professionals and enthusiasts dedicated to sharing technical knowledge, experience, and assistance. Inside you will find reference materials, interesting technical discussions, and expert tips and commentary. Once you register for an account you will have immediate access to the forums and all past articles and commentaries.

Your profile

Tools

Authors

Main Categories

Search

XML Feeds

RSS 2.0: Posts, Comments
Atom: Posts, Comments

What is RSS?

Google Ads

« VB.Net: Visual studio intellisense doesn't like lambda expressions

Review of MCTS Self-Paced Training Kit (Exam 70-502): Microsoft .NET Framework 3.5 Windows Presentation Foundation »

comments

VB.Net: Rhino Mocks and the AAA syntax

by Christiaan Baes (chrissie1) on Oct 06, 2008 in categories Microsoft Technologies

Instapaper

So, last week Ayende made a new version of Rhino Mocks available, namely version 3.5. He made a post on what is new and shiny, but I would like to look at what the new AAA syntax has in store for us VB.Net users.

And I want to tell you how it used to look and how it looks now.

This is the old version, works with Rhino mocks 3.4.

vbnet

Line number Off | Hide | Select all

Imports NUnit.Framework
Imports Rhino.Mocks
Namespace AnalysisManagement
<TestFixture()> _
<Category("ModelServices")> _
<Category("ModelServices.AnalysisManagement")> _
Public Class TestDAOFill
#Region " Private members "
Private _Mocker As MockRepository
Private _Factory As DataAccessLayer.AnalysisManagement.Crud.Factory.IDAOFactory
Private _Fill As ModelServices.AnalysisManagement.Interfaces.IFill
#End Region
#Region " Setup "
<SetUp()> _
Public Sub Setup()
_Mocker = New MockRepository()
_Factory = _Mocker.DynamicMock(Of DataAccessLayer.AnalysisManagement.Crud.Factory.IDAOFactory)()
_MspFactory = _Mocker.DynamicMock(Of DataAccessLayer.MSP.Crud.Factory.IDAOFactory)()
_Fill = New ModelServices.AnalysisManagement.DAOFill(_Factory, _MspFactory)
End Sub
<TearDown()> _
Public Sub TearDown()
_Mocker.ReplayAll()
_Mocker.VerifyAll()
End Sub
#End Region
#Region " Tests "
<Test()> _
Public Sub FindAllFiberFluorescenceColorN21s()
Dim _CrudIFiberFluorescenceColorN21 As DataAccessLayer.AnalysisManagement.Crud.Interfaces.IFiberFluorescenceColorN21 = _Mocker.DynamicMock(Of DataAccessLayer.AnalysisManagement.Crud.Interfaces.IFiberFluorescenceColorN21)()
Expect.Call(_Factory.CrudFiberFluorescenceColorN21).IgnoreArguments.Return(_CrudIFiberFluorescenceColorN21)
Expect.Call(_CrudIFiberFluorescenceColorN21.FindAll).IgnoreArguments.Return(New List(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21))
_Mocker.ReplayAll()
Dim _templist As IList(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21) = _Fill.FindAllFiberFluorescenceColorN21s
Assert.IsNotNull(_templist)
Assert.IsInstanceOfType(GetType(IList(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21)), _templist)
End Sub
#End Region
End Class
End Namespace

Ok, so we notice the use of _mocker and DynamicMock to create our Mock objects and then we set our expectations, then we do a replayall and execute the methods under test. When the test is done the verifyall is executed which looks if our expectations are met.

Now we switch to Rhino mocks 3.5 and see that we get an error on Expect saying that the signature is not correct. No worry this is because it is choosing the wrong Expect. It is namely trying to use the extension method there. Just add Rhino.Mocks. before the Expect and all is well again. Look how the imports doesn’t do the same thing.

And now on to the new.

vbnet

Line number Off | Hide | Select all

Imports NUnit.Framework
Imports Rhino.Mocks
Namespace AnalysisManagement
<TestFixture()> _
<Category("ModelServices")> _
<Category("ModelServices.AnalysisManagement")> _
Public Class TestDAOFill
#Region " Private members "
Private _Factory As DataAccessLayer.AnalysisManagement.Crud.Factory.IDAOFactory
Private _Fill As ModelServices.AnalysisManagement.Interfaces.IFill
#End Region
#Region " Setup "
<SetUp()> _
Public Sub Setup()
_Factory = MockRepository.GenerateMock(Of DataAccessLayer.AnalysisManagement.Crud.Factory.IDAOFactory)()
_MspFactory = MockRepository.GenerateMock(Of DataAccessLayer.MSP.Crud.Factory.IDAOFactory)()
_Fill = New ModelServices.AnalysisManagement.DAOFill(_Factory, _MspFactory)
End Sub
<TearDown()> _
Public Sub TearDown()
End Sub
#End Region
#Region " Tests "
<Test()> _
Public Sub FindAllFiberFluorescenceColorN21s()
Dim _CrudIFiberFluorescenceColorN21 As DataAccessLayer.AnalysisManagement.Crud.Interfaces.IFiberFluorescenceColorN21 = MockRepository.GenerateMock(Of DataAccessLayer.AnalysisManagement.Crud.Interfaces.IFiberFluorescenceColorN21)()
_CrudIFiberFluorescenceColorN21.Stub(Function(e) e.FindAll()).Return(New List(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21))
_Factory.Stub(Function(e) e.CrudFiberFluorescenceColorN21).Return(_CrudIFiberFluorescenceColorN21)
Dim _templist As IList(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21) = _Fill.FindAllFiberFluorescenceColorN21s
Assert.IsNotNull(_templist)
Assert.IsInstanceOfType(GetType(IList(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21)), _templist)
End Sub
#End Region
End Class
End Namespace

Look at how the _mocker.DynamicMock are replaced by MockRepository.GenerateMock and how the _mocker object has disappeared all together. The Expect.Call’s have been replaced with Object.Stub methods. And the ReplayAll and VerifyAll are now gone. Overall, a bit simpler and more meaningful.

Here is another good article about the use of AAA and Rhino mocks but then in C#.

And it only goes to show that even the smartest and best people don’t get it right the first time .