TestFixture

TestFixture MbUnit Expansion snippet for TestFixture testfixture Expansion

namespace Test namespace MbUnitTests type Tested type


    ''' A TestFixture for the $type$ class.
    ''' 
     _
    Public Class $type$Test
        #Region "Fields, SetUp and TearDown"
        Private target As $type$ = Nothing
        
        ''' 
        ''' Sets up the fixture
        ''' 
         _
        Public Sub SetUp()
            Mew.target = New $type$()
        End Sub
        ''' 
        ''' Cleans up the fixture
        '' 
         _
        public void TearDown()
            Dim disposable As IDisposable  = TryCast(this.target, IDisposable)
            If disposable IsNot Nothing Then
                disposable.Dispose()
			End If
        End Sub
        #End Region
    
        #Region "Test cases"
         _
        Public Sub Test()

		End Sub
        #End Region    
    End Class
End Namespace]]>