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.

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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()
            <em>_Mocker.VerifyAll()</em>
        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)()
            <em>Expect.Call</em>(_Factory.CrudFiberFluorescenceColorN21).IgnoreArguments.Return(_CrudIFiberFluorescenceColorN21)
            <em>Expect.Call</em>(_CrudIFiberFluorescenceColorN21.FindAll).IgnoreArguments.Return(New List(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21))
            <em>_Mocker.ReplayAll()</em>
            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
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()
            <em>_Mocker.VerifyAll()</em>
        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)()
            <em>Expect.Call</em>(_Factory.CrudFiberFluorescenceColorN21).IgnoreArguments.Return(_CrudIFiberFluorescenceColorN21)
            <em>Expect.Call</em>(_CrudIFiberFluorescenceColorN21.FindAll).IgnoreArguments.Return(New List(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21))
            <em>_Mocker.ReplayAll()</em>
            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.

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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 = <em>MockRepository.GenerateMock</em>(Of DataAccessLayer.AnalysisManagement.Crud.Factory.IDAOFactory)()
            _MspFactory = <em>MockRepository.GenerateMock</em>(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 = <em>MockRepository.GenerateMock</em>(Of DataAccessLayer.AnalysisManagement.Crud.Interfaces.IFiberFluorescenceColorN21)()
            _CrudIFiberFluorescenceColorN21.<em>Stub</em>(Function(e) e.FindAll()).Return(New List(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21))
            _Factory.<em>Stub</em>(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
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 = <em>MockRepository.GenerateMock</em>(Of DataAccessLayer.AnalysisManagement.Crud.Factory.IDAOFactory)()
            _MspFactory = <em>MockRepository.GenerateMock</em>(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 = <em>MockRepository.GenerateMock</em>(Of DataAccessLayer.AnalysisManagement.Crud.Interfaces.IFiberFluorescenceColorN21)()
            _CrudIFiberFluorescenceColorN21.<em>Stub</em>(Function(e) e.FindAll()).Return(New List(Of Model.AnalysisManagement.Interfaces.IFiberFluorescenceColorN21))
            _Factory.<em>Stub</em>(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 ;D.

Ayende asked to add this to his wiki and so I did http://ayende.com/wiki/Rhino+mocks+3.5+and+VB.Net+the+AAA+syntax.ashx