1<?xml version="1.0"?>
 2<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
 3  <CodeSnippet Format="1.0.0">
 4    <Header>
 5      <Title>TestFixture</Title>
 6      <Author>MbUnit</Author>
 7      <Description>Expansion snippet for TestFixture</Description>
 8      <Shortcut>testfixture</Shortcut>
 9      <SnippetTypes>
10        <SnippetType>Expansion</SnippetType>
11      </SnippetTypes>
12    </Header>
13    <Snippet>
14      <Declarations>
15        <Literal>
16          <ID>namespace</ID>
17          <ToolTip>Test namespace</ToolTip>
18          <Default>MbUnitTests</Default>
19        </Literal>
20        <Literal>
21          <ID>type</ID>
22          <ToolTip>Tested type</ToolTip>
23        </Literal>
24      </Declarations>
25      <Code Language="VB"><![CDATA[Imports System
26Imports MbUnit.Framework
27
28Namespace $namespace$
29
30    ''' <summary>
31    ''' A TestFixture for the $type$ class.
32    ''' </summary>
33    <TestFixture(), _
34    TestsOn(GetType($type$))> _
35    Public Class $type$Test
36        #Region "Fields, SetUp and TearDown"
37        Private target As $type$ = Nothing
38        
39        ''' <summary>
40        ''' Sets up the fixture
41        ''' </summary>
42        <SetUp()> _
43        Public Sub SetUp()
44            Mew.target = New $type$()
45        End Sub
46        ''' <summary>
47        ''' Cleans up the fixture
48        '' </summary>
49        <TearDown()> _
50        public void TearDown()
51            Dim disposable As IDisposable  = TryCast(this.target, IDisposable)
52            If disposable IsNot Nothing Then
53                disposable.Dispose()
54			End If
55        End Sub
56        #End Region
57    
58        #Region "Test cases"
59        <Test()> _
60        Public Sub Test()
61
62		End Sub
63        #End Region    
64    End Class
65End Namespace]]></Code>
66    </Snippet>
67  </CodeSnippet>
68</CodeSnippets>