blob: 9febc88f280f599f00edbe8f6aeb04b50c6ac7ac (
plain)
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
<?xml version="1.0"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
<CodeSnippet Format="1.0.0">
<Header>
<Title>TestFixture</Title>
<Author>MbUnit</Author>
<Description>Expansion snippet for TestFixture</Description>
<Shortcut>testfixture</Shortcut>
<SnippetTypes>
<SnippetType>Expansion</SnippetType>
</SnippetTypes>
</Header>
<Snippet>
<Declarations>
<Literal>
<ID>namespace</ID>
<ToolTip>Test namespace</ToolTip>
<Default>MbUnitTests</Default>
</Literal>
<Literal>
<ID>type</ID>
<ToolTip>Tested type</ToolTip>
</Literal>
</Declarations>
<Code Language="VB"><![CDATA[Imports System
Imports MbUnit.Framework
Namespace $namespace$
''' <summary>
''' A TestFixture for the $type$ class.
''' </summary>
<TestFixture(), _
TestsOn(GetType($type$))> _
Public Class $type$Test
#Region "Fields, SetUp and TearDown"
Private target As $type$ = Nothing
''' <summary>
''' Sets up the fixture
''' </summary>
<SetUp()> _
Public Sub SetUp()
Mew.target = New $type$()
End Sub
''' <summary>
''' Cleans up the fixture
'' </summary>
<TearDown()> _
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"
<Test()> _
Public Sub Test()
End Sub
#End Region
End Class
End Namespace]]></Code>
</Snippet>
</CodeSnippet>
</CodeSnippets>
|
