测试后行之CodeSmith模板
<%@ CodeTemplate Language="VB" TargetLanguage="Text" Description="Template description here." Debug="False" %>
<%@ Assembly Name="System.Design" %>
<%@ Import Namespace="System.Reflection" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Text" %>
<%@ Property Name="FullClassName" Type="System.String" Category="Template Options" Description="This is the fully qualified name of the class to test." %>
<%@ Property Name="IncludeInheritedMembers" Type="System.Boolean" Category="Template Options" Required="true" default="false" %>
<%@ Property Name="DeclaringTypeToExclude" Type="System.String" Category="Template Options" Required="false" %>
<%@ Property Name="GenerateConstructorClasses" Type="System.Boolean" Category="Constructor Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GeneratePropertyClasses" Type="System.Boolean" Category="Property Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GenerateMethodClasses" Type="System.Boolean" Category="Method Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<% InitTemplate() %>
Imports System
Imports NUnit.Framework
Imports <%= GetNamespaceOnly(FullClassName)%>
Namespace <%= GetTestNamespace(FullClassName) %>
<%'/*
'----------------------------------------------
'--------------- Constructors -----------------
'----------------------------------------------
'*/
If (GenerateConstructorClasses) Then
%>
#Region "Constructor Tests"
<TestFixture> _
public class ConstructorTesting
#Region "Test Preparation Methods"
#Region "TestFixture SetUp and TearDown"
<TestFixtureSetUp> _
Public Sub FixtureInit()
End Sub
<TestFixtureTearDown> _
public Sub FixtureDispose()
End Sub
#End Region
#Region "Test SetUp and TearDown"
<SetUp> _
public Sub TestInit()
End Sub
<TearDown> _
public Sub TestDispose()
End Sub
#End Region
#End Region
#Region "Test Methods"
<%Dim i As Integer%>
<%For i = 0 To constructors.Length - 1%>
<%If i = 0 Then%>
<%= CreateConstructorTest(GetClassName(FullClassName),constructors(i))%>
<%Else%>
<%= CreateConstructorTest(GetClassName(FullClassName) + "_Overload" + i.ToString(),constructors(i))%>
<%End iF%>
<%Next%>
#End Region
End Sub
#End Region
<%End If%>
<% If (GenerateMethodClasses) Then%>
<%'/*
'----------------------------------------------
'-------------- Static Methods ----------------
'----------------------------------------------
'*/%>
#Region Static Method Tests
<TestFixture> _
public class StaticMethodTesting
#Region "Test Preparation Methods"
#Region "TestFixture Setup and TearDown"
<TestFixtureSetUp> _
public Sub FixtureInit()
End Sub
<TestFixtureTearDown> _
public Sub FixtureDispose()
End Sub
#End Region
#Region "Test SetUp and TearDown"
<SetUp> _
public Sub TestInit()
End Sub
<TearDown> _
public Sub TestDispose()
End Sub
#End Region
#End Region
#Region Test Methods
<%Dim i As Integer%>
<% For i = 0 To methods.Length - 1
If (methods(i).IsStatic _
AndAlso (Not methods(i).Name.StartsWith("get_") _
AndAlso (Not methods(i).Name.StartsWith("set_") _
AndAlso ((methods(i).DeclaringType.ToString <> DeclaringTypeToExclude) _
AndAlso (methods(i).DeclaringType.ToString <> "System.Object"))))) Then%>
<%= CreateMethodTest(methods(i), staticMethodCount) %>
<%End iF%>
<%Next%>
#End Region
End Sub
#End Region
<%'/*
'----------------------------------------------
'------------------ Methods -------------------
'----------------------------------------------
'*/%>
#Region Method Tests
<TestFixture> _
public class MethodTesting
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#Region "Test Preparation Methods"
#Region "TestFixture SetUp and TearDown"
<TestFixtureSetUp> _
public Sub FixtureInit()
End Sub
<TestFixtureTearDown> _
public Sub FixtureDispose()
End Sub
#End Region
#Region "Test SetUp and TearDown"
<%= CreateMethodTestInit(FullClassName) %>
<%= CreateMethodTestDispose(GetClassName(FullClassName)) %>
#End Region
#End Region
#Region Test Methods
<% For i = 0 To properties.Length - 1
if (Not methods(i).IsStatic _
AndAlso (Not methods(i).Name.StartsWith("get_") _
AndAlso (Not methods(i).Name.StartsWith("set_") _
AndAlso ((methods(i).DeclaringType.ToString <> DeclaringTypeToExclude) _
AndAlso (methods(i).DeclaringType.ToString <> "System.Object"))))) Then%>
<%= CreateMethodTest(methods(i), instanceMethodCount) %>
<%End iF%>
<%Next%>
#End Region
End Class
#End Region
<%End If%>
<%If (GeneratePropertyClasses) Then%>
<%'/*
'----------------------------------------------
'----------------- Properties -----------------
'----------------------------------------------
'*/%>
#Region "Property Tests"
<TestFixture> _
public class PropertyTesting
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#Region Test Preparation Methods
#Region TestFixture SetUp and TearDown
<%= CreatePropertyTestFixtureInit(FullClassName) %>
<%= CreatePropertyTestFixtureDispose(GetClassName(FullClassName)) %>
#End Region
#Region Test SetUp and TearDown
<SetUp> _
public Sub TestInit()
End Sub
<TearDown> _
public Sub TestDispose()
End Sub
#End Region
#End Region
#Region Test Methods
<%Dim i As Integer%>
<% For i = 0 To properties.Length - 1
If (properties(i).DeclaringType.ToString() <> DeclaringTypeToExclude) Then%>
<%= CreatePropertyTest(properties(i))%>
<%End iF%>
<%Next%>
#End Region
End Sub
#End Region
<%End If%>
End Namespace
<script runat="template">
Dim constructors() As ConstructorInfo = Nothing
Dim methods() As MethodInfo = Nothing
Dim properties() As PropertyInfo = Nothing
Dim staticMethodCount As Hashtable = New Hashtable
Dim instanceMethodCount As Hashtable = New Hashtable
Dim instanceConstructorCount As Hashtable = New Hashtable
Private _assemblyPath As String
<Editor(GetType(System.Windows.Forms.Design.FileNameEditor), GetType(System.Drawing.Design.UITypeEditor)), _
CodeTemplateProperty(CodeTemplatePropertyOption.Required), _
Category("Template Options"), _
Description("This is the full path, including the assembly name, of the assembly which contains the class to test."& _
"")> _
Public Property AssemblyPath As String
Get
Return _assemblyPath
End Get
Set
_assemblyPath = value
End Set
End Property
Public Sub InitTemplate()
'Debugger.Break();
' Reflect object properties
constructors = ReflectClassConstructors(AssemblyPath, FullClassName)
methods = ReflectClassMethods(AssemblyPath, FullClassName)
properties = ReflectClassProperties(AssemblyPath, FullClassName)
End Sub
Public Function GetCamelCaseName(ByVal value As String) As String
Return (value.Substring(0, 1).ToLower + value.Substring(1))
End Function
Public Function GetCaseName(ByVal value As String) As String
Return (value.Substring(0, 1).ToUpper + value.Substring(1))
End Function
' Returns just the class name given a fully qualified class name; i.e. BHCS.Portal.McCoy.Engine.Entities.Module
Public Function GetClassName(ByVal fullClassName As String) As String
Return fullClassName.Substring((fullClassName.LastIndexOf(".") + 1))
End Function
Public Function GetNamespaceOnly(ByVal fullClassName As String) As String
Return fullClassName.Substring(0, fullClassName.LastIndexOf("."))
End Function
Public Function GetTestNamespace(ByVal fullClassName As String) As String
Return (GetNamespaceOnly(fullClassName) + (".Test." + GetClassName(fullClassName)))
End Function
Public Function CreateConstructorTestBody(ByVal constructor As ConstructorInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("// Declare variables to pass to constructor call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Set values for variables" & vbLf)
Dim parameters() As ParameterInfo = constructor.GetParameters
Dim c As Integer = 0
Do While (c < parameters.Length)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(parameters(c).ParameterType.ToString)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(" = ")
sb.Append(GetTypeDefaultValue(parameters(c).ParameterType.ToString))
sb.Append(";" & vbLf)
c = (c + 1)
Loop
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return type to hold constructor result" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(FullClassName)
sb.Append(" _returnValue;" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Instantiate object" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_returnValue = new ")
sb.Append(FullClassName)
sb.Append("(")
Do While (c < parameters.Length)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(", ")
c = (c + 1)
Loop
If (parameters.Length > 0) Then
sb.Remove((sb.Length - 2), 2)
End If
sb.Append(");" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for object instance" & vbLf)
Return sb.ToString
End Function
' Creates the constructor test method
Public Function CreateConstructorTest(ByVal constructorName As String, ByVal constructor As ConstructorInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<Test, Ignore(\""Setup ")
sb.Append(FullClassName)
sb.Append(" parameter value and Assert tests for the constructor\"")> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub ")
sb.Append(constructorName)
sb.Append("()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf & vbTab & vbTab & vbTab)
sb.Append(CreateConstructorTestBody(constructor))
sb.Append("" & vbLf & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function ReflectClassConstructors(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As ConstructorInfo()
' Retrieve the type of the class
Dim type As System.Type = GetClassType(assemblyPath, fullyQualifiedClassName)
' Return the list of properties
If IncludeInheritedMembers Then
Return type.GetConstructors((BindingFlags.Public Or BindingFlags.Instance))
Else
Return type.GetConstructors((BindingFlags.Public _
Or (BindingFlags.Instance Or BindingFlags.DeclaredOnly)))
End If
End Function
Public Function CreatePropertyTestFixtureInit(ByVal fullClassName As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<TestFixtureSetUp> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub FixtureInit()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Initialize the ")
sb.Append(fullClassName)
sb.Append(" for the test suite with the desired constructor and variables" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(fullClassName)))
sb.Append(" = new ")
sb.Append(fullClassName)
sb.Append("();" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function CreatePropertyTestFixtureDispose(ByVal className As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<TestFixtureTearDown> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub FixtureDispose()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(className))
sb.Append(" = null;" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
' Create the body of the _property test
Public Function Create_propertyTestBody(ByVal _property As propertyInfo) As String
Dim sb As StringBuilder = New StringBuilder
If _property.CanRead Then
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return variable to hold _property get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.propertyType.ToString)
sb.Append(" _getValue = ")
sb.Append(GetTypeDefaultValue(_property.propertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_getValue = ")
If _property.GetAccessors()(0).IsStatic Then
sb.Append(FullClassName)
Else
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(";" & vbLf)
End If
If _property.CanWrite Then
sb.Append("" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Declare variable to hold _property set method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.propertyType.ToString)
sb.Append(" _setValue = ")
sb.Append(GetTypeDefaultValue(_property.propertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test set method" & vbLf)
If _property.GetAccessors()(0).IsStatic Then
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(FullClassName)
Else
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(" = _setValue")
sb.Append(";" & vbLf)
End If
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for ")
sb.Append(_property.Name)
sb.Append("()" & vbLf)
Return sb.ToString
End Function
' Create the body of the _property test
Public Function CreatePropertyTestBody(ByVal _property As PropertyInfo) As String
Dim sb As StringBuilder = New StringBuilder
If _property.CanRead Then
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return variable to hold _property get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.PropertyType.ToString)
sb.Append(" _getValue = ")
sb.Append(GetTypeDefaultValue(_property.PropertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_getValue = ")
If _property.GetAccessors()(0).IsStatic Then
sb.Append(FullClassName)
Else
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(";" & vbLf)
End If
If _property.CanWrite Then
sb.Append("" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Declare variable to hold _property set method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.PropertyType.ToString)
sb.Append(" _setValue = ")
sb.Append(GetTypeDefaultValue(_property.PropertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test set method" & vbLf)
If _property.GetAccessors()(0).IsStatic Then
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(FullClassName)
Else
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(" = _setValue")
sb.Append(";" & vbLf)
End If
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for ")
sb.Append(_property.Name)
sb.Append("()" & vbLf)
Return sb.ToString
End Function
' Creates the property test method
Public Function CreatePropertyTest(ByVal _property As PropertyInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<Test, Ignore(\""Setup ")
sb.Append("Assert tests for the property ")
sb.Append(GetCaseName(_property.Name))
sb.Append("\"")> _" & vbLf & vbTab & vbTab & "public Sub ")
sb.Append(GetCaseName(_property.Name))
sb.Append("()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append(CreatePropertyTestBody(_property))
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function ReflectClassProperties(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As PropertyInfo()
' Retrieve the type of the class
Dim type As System.Type = GetClassType(assemblyPath, fullyQualifiedClassName)
' Return the list of properties
If IncludeInheritedMembers Then
Return type.GetProperties((BindingFlags.Public _
Or (BindingFlags.Static Or BindingFlags.Instance)))
Else
Return type.GetProperties((BindingFlags.Public _
Or (BindingFlags.Static _
Or (BindingFlags.Instance Or BindingFlags.DeclaredOnly))))
End If
End Function
Public Function CreateMethodTestInit(ByVal fullClassName As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<SetUp> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub TestInit()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Initialize the ")
sb.Append(fullClassName)
sb.Append(" for each test with the desired constructor and variables" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(fullClassName)))
sb.Append(" = new ")
sb.Append(fullClassName)
sb.Append("();" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function CreateMethodTestDispose(ByVal className As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<TearDown> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub TestDispose()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(className))
sb.Append(" = null;" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function CreateMethodTestBody(ByVal method As MethodInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("" & vbTab & vbTab & vbTab & "// Declare variables to pass to method call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Set values for variables" & vbLf)
Dim parameters() As ParameterInfo = method.GetParameters
Dim c As Integer = 0
Do While (c < parameters.Length)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(parameters(c).ParameterType.ToString)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(" = ")
sb.Append(GetTypeDefaultValue(parameters(c).ParameterType.ToString))
sb.Append(";" & vbLf)
c = (c + 1)
Loop
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
If (method.ReturnType.ToString <> "System.Sub") Then
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return type to hold method result" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(method.ReturnType.ToString)
sb.Append(" _returnValue;" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Make method call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_returnValue = ")
Else
sb.Append("" & vbTab & vbTab & vbTab & "// Make method call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
End If
If method.IsStatic Then
sb.Append(FullClassName)
Else
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(method.Name)
sb.Append("(")
Do While (c < parameters.Length)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(", ")
c = (c + 1)
Loop
If (parameters.Length > 0) Then
sb.Remove((sb.Length - 2), 2)
End If
sb.Append(");" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for ")
sb.Append(method.Name)
sb.Append("()" & vbLf)
Return sb.ToString
End Function
' Creates the method test method
Public Function CreateMethodTest(ByVal method As MethodInfo, ByVal methodCount As Hashtable) As String
Dim sb As StringBuilder = New StringBuilder
Dim currentOverloadCount As Integer = MethodOverloadCount(method.Name, methodCount)
sb.Append("<Test, Ignore(\""Setup ")
sb.Append(" parameter value(s) and Assert tests for the method ")
sb.Append(GetCaseName(method.Name))
sb.Append("\"")> _" & vbLf & vbTab & vbTab & "public Sub ")
sb.Append(GetCaseName(method.Name))
If (currentOverloadCount > 1) Then
sb.Append("_Overload")
sb.Append(currentOverloadCount.ToString)
End If
sb.Append("()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append(CreateMethodTestBody(method))
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
' Returns the current number of overloads for a given method name
Public Function MethodOverloadCount(ByVal methodName As String, ByVal methodCount As Hashtable) As Integer
Dim currentCount As Integer = 0
If methodCount.ContainsKey(methodName) Then
currentCount = CType(methodCount(methodName),Integer)
End If
Dim i As Integer = 0
For i = 0 To methods.Length - 1
If (methods(i).Name = methodName) Then
currentCount = (currentCount + 1)
If methodCount.ContainsKey(methodName) Then
If (currentCount > CType(methodCount(methodName),Integer)) Then
methodCount(methodName) = (CType(methodCount(methodName),Integer) + 1)
End If
Else
methodCount.Add(methodName, 1)
End If
If (currentCount = CType(methodCount(methodName),Integer)) Then
Exit For
End If
End If
Next
Return CType(methodCount(methodName),Integer)
End Function
Public Function ReflectClassMethods(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As MethodInfo()
' Retrieve the type of the class
Dim type As System.Type = GetClassType(assemblyPath, fullyQualifiedClassName)
' Return the list of properties
If IncludeInheritedMembers Then
Return type.GetMethods((BindingFlags.Public _
Or (BindingFlags.Static Or BindingFlags.Instance)))
Else
Return type.GetMethods((BindingFlags.Public _
Or (BindingFlags.Static _
Or (BindingFlags.Instance Or BindingFlags.DeclaredOnly))))
End If
End Function
Public Function GetClassType(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As System.Type
' Load the assembly which contains the class to reflect
Dim assembly As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(assemblyPath)
' Retrieve the type of the class
Dim type As System.Type = assembly.GetType(fullyQualifiedClassName)
' Release the assembly
assembly = Nothing
Return type
End Function
Public Function GetTypeDefaultValue(ByVal typeName As String) As String
' init the variable value
Dim variableValue As String = string.Empty
' determine the default variable value from the variable type
Select Case (typeName)
Case "System.Binary", "System.Byte", "System.Int16", "System.Int32", "System.Int64"
variableValue = "0"
Exit Select
Case "System.String"
variableValue = "String.Empty"
Exit Select
Case "System.Boolean"
variableValue = "false"
Exit Select
Case "System.Guid"
variableValue = "Guid.NewGuid()"
Exit Select
Case "System.DateTime"
variableValue = "DateTime.MinValue"
Exit Select
Case Else
variableValue = "null"
Exit Select
End Select
Return variableValue
End Function
</script>
<%@ Assembly Name="System.Design" %>
<%@ Import Namespace="System.Reflection" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Text" %>
<%@ Property Name="FullClassName" Type="System.String" Category="Template Options" Description="This is the fully qualified name of the class to test." %>
<%@ Property Name="IncludeInheritedMembers" Type="System.Boolean" Category="Template Options" Required="true" default="false" %>
<%@ Property Name="DeclaringTypeToExclude" Type="System.String" Category="Template Options" Required="false" %>
<%@ Property Name="GenerateConstructorClasses" Type="System.Boolean" Category="Constructor Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GeneratePropertyClasses" Type="System.Boolean" Category="Property Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GenerateMethodClasses" Type="System.Boolean" Category="Method Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<% InitTemplate() %>
Imports System
Imports NUnit.Framework
Imports <%= GetNamespaceOnly(FullClassName)%>
Namespace <%= GetTestNamespace(FullClassName) %>
<%'/*
'----------------------------------------------
'--------------- Constructors -----------------
'----------------------------------------------
'*/
If (GenerateConstructorClasses) Then
%>
#Region "Constructor Tests"
<TestFixture> _
public class ConstructorTesting
#Region "Test Preparation Methods"
#Region "TestFixture SetUp and TearDown"
<TestFixtureSetUp> _
Public Sub FixtureInit()
End Sub
<TestFixtureTearDown> _
public Sub FixtureDispose()
End Sub
#End Region
#Region "Test SetUp and TearDown"
<SetUp> _
public Sub TestInit()
End Sub
<TearDown> _
public Sub TestDispose()
End Sub
#End Region
#End Region
#Region "Test Methods"
<%Dim i As Integer%>
<%For i = 0 To constructors.Length - 1%>
<%If i = 0 Then%>
<%= CreateConstructorTest(GetClassName(FullClassName),constructors(i))%>
<%Else%>
<%= CreateConstructorTest(GetClassName(FullClassName) + "_Overload" + i.ToString(),constructors(i))%>
<%End iF%>
<%Next%>
#End Region
End Sub
#End Region
<%End If%>
<% If (GenerateMethodClasses) Then%>
<%'/*
'----------------------------------------------
'-------------- Static Methods ----------------
'----------------------------------------------
'*/%>
#Region Static Method Tests
<TestFixture> _
public class StaticMethodTesting
#Region "Test Preparation Methods"
#Region "TestFixture Setup and TearDown"
<TestFixtureSetUp> _
public Sub FixtureInit()
End Sub
<TestFixtureTearDown> _
public Sub FixtureDispose()
End Sub
#End Region
#Region "Test SetUp and TearDown"
<SetUp> _
public Sub TestInit()
End Sub
<TearDown> _
public Sub TestDispose()
End Sub
#End Region
#End Region
#Region Test Methods
<%Dim i As Integer%>
<% For i = 0 To methods.Length - 1
If (methods(i).IsStatic _
AndAlso (Not methods(i).Name.StartsWith("get_") _
AndAlso (Not methods(i).Name.StartsWith("set_") _
AndAlso ((methods(i).DeclaringType.ToString <> DeclaringTypeToExclude) _
AndAlso (methods(i).DeclaringType.ToString <> "System.Object"))))) Then%>
<%= CreateMethodTest(methods(i), staticMethodCount) %>
<%End iF%>
<%Next%>
#End Region
End Sub
#End Region
<%'/*
'----------------------------------------------
'------------------ Methods -------------------
'----------------------------------------------
'*/%>
#Region Method Tests
<TestFixture> _
public class MethodTesting
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#Region "Test Preparation Methods"
#Region "TestFixture SetUp and TearDown"
<TestFixtureSetUp> _
public Sub FixtureInit()
End Sub
<TestFixtureTearDown> _
public Sub FixtureDispose()
End Sub
#End Region
#Region "Test SetUp and TearDown"
<%= CreateMethodTestInit(FullClassName) %>
<%= CreateMethodTestDispose(GetClassName(FullClassName)) %>
#End Region
#End Region
#Region Test Methods
<% For i = 0 To properties.Length - 1
if (Not methods(i).IsStatic _
AndAlso (Not methods(i).Name.StartsWith("get_") _
AndAlso (Not methods(i).Name.StartsWith("set_") _
AndAlso ((methods(i).DeclaringType.ToString <> DeclaringTypeToExclude) _
AndAlso (methods(i).DeclaringType.ToString <> "System.Object"))))) Then%>
<%= CreateMethodTest(methods(i), instanceMethodCount) %>
<%End iF%>
<%Next%>
#End Region
End Class
#End Region
<%End If%>
<%If (GeneratePropertyClasses) Then%>
<%'/*
'----------------------------------------------
'----------------- Properties -----------------
'----------------------------------------------
'*/%>
#Region "Property Tests"
<TestFixture> _
public class PropertyTesting
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#Region Test Preparation Methods
#Region TestFixture SetUp and TearDown
<%= CreatePropertyTestFixtureInit(FullClassName) %>
<%= CreatePropertyTestFixtureDispose(GetClassName(FullClassName)) %>
#End Region
#Region Test SetUp and TearDown
<SetUp> _
public Sub TestInit()
End Sub
<TearDown> _
public Sub TestDispose()
End Sub
#End Region
#End Region
#Region Test Methods
<%Dim i As Integer%>
<% For i = 0 To properties.Length - 1
If (properties(i).DeclaringType.ToString() <> DeclaringTypeToExclude) Then%>
<%= CreatePropertyTest(properties(i))%>
<%End iF%>
<%Next%>
#End Region
End Sub
#End Region
<%End If%>
End Namespace
<script runat="template">
Dim constructors() As ConstructorInfo = Nothing
Dim methods() As MethodInfo = Nothing
Dim properties() As PropertyInfo = Nothing
Dim staticMethodCount As Hashtable = New Hashtable
Dim instanceMethodCount As Hashtable = New Hashtable
Dim instanceConstructorCount As Hashtable = New Hashtable
Private _assemblyPath As String
<Editor(GetType(System.Windows.Forms.Design.FileNameEditor), GetType(System.Drawing.Design.UITypeEditor)), _
CodeTemplateProperty(CodeTemplatePropertyOption.Required), _
Category("Template Options"), _
Description("This is the full path, including the assembly name, of the assembly which contains the class to test."& _
"")> _
Public Property AssemblyPath As String
Get
Return _assemblyPath
End Get
Set
_assemblyPath = value
End Set
End Property
Public Sub InitTemplate()
'Debugger.Break();
' Reflect object properties
constructors = ReflectClassConstructors(AssemblyPath, FullClassName)
methods = ReflectClassMethods(AssemblyPath, FullClassName)
properties = ReflectClassProperties(AssemblyPath, FullClassName)
End Sub
Public Function GetCamelCaseName(ByVal value As String) As String
Return (value.Substring(0, 1).ToLower + value.Substring(1))
End Function
Public Function GetCaseName(ByVal value As String) As String
Return (value.Substring(0, 1).ToUpper + value.Substring(1))
End Function
' Returns just the class name given a fully qualified class name; i.e. BHCS.Portal.McCoy.Engine.Entities.Module
Public Function GetClassName(ByVal fullClassName As String) As String
Return fullClassName.Substring((fullClassName.LastIndexOf(".") + 1))
End Function
Public Function GetNamespaceOnly(ByVal fullClassName As String) As String
Return fullClassName.Substring(0, fullClassName.LastIndexOf("."))
End Function
Public Function GetTestNamespace(ByVal fullClassName As String) As String
Return (GetNamespaceOnly(fullClassName) + (".Test." + GetClassName(fullClassName)))
End Function
Public Function CreateConstructorTestBody(ByVal constructor As ConstructorInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("// Declare variables to pass to constructor call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Set values for variables" & vbLf)
Dim parameters() As ParameterInfo = constructor.GetParameters
Dim c As Integer = 0
Do While (c < parameters.Length)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(parameters(c).ParameterType.ToString)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(" = ")
sb.Append(GetTypeDefaultValue(parameters(c).ParameterType.ToString))
sb.Append(";" & vbLf)
c = (c + 1)
Loop
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return type to hold constructor result" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(FullClassName)
sb.Append(" _returnValue;" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Instantiate object" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_returnValue = new ")
sb.Append(FullClassName)
sb.Append("(")
Do While (c < parameters.Length)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(", ")
c = (c + 1)
Loop
If (parameters.Length > 0) Then
sb.Remove((sb.Length - 2), 2)
End If
sb.Append(");" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for object instance" & vbLf)
Return sb.ToString
End Function
' Creates the constructor test method
Public Function CreateConstructorTest(ByVal constructorName As String, ByVal constructor As ConstructorInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<Test, Ignore(\""Setup ")
sb.Append(FullClassName)
sb.Append(" parameter value and Assert tests for the constructor\"")> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub ")
sb.Append(constructorName)
sb.Append("()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf & vbTab & vbTab & vbTab)
sb.Append(CreateConstructorTestBody(constructor))
sb.Append("" & vbLf & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function ReflectClassConstructors(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As ConstructorInfo()
' Retrieve the type of the class
Dim type As System.Type = GetClassType(assemblyPath, fullyQualifiedClassName)
' Return the list of properties
If IncludeInheritedMembers Then
Return type.GetConstructors((BindingFlags.Public Or BindingFlags.Instance))
Else
Return type.GetConstructors((BindingFlags.Public _
Or (BindingFlags.Instance Or BindingFlags.DeclaredOnly)))
End If
End Function
Public Function CreatePropertyTestFixtureInit(ByVal fullClassName As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<TestFixtureSetUp> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub FixtureInit()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Initialize the ")
sb.Append(fullClassName)
sb.Append(" for the test suite with the desired constructor and variables" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(fullClassName)))
sb.Append(" = new ")
sb.Append(fullClassName)
sb.Append("();" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function CreatePropertyTestFixtureDispose(ByVal className As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<TestFixtureTearDown> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub FixtureDispose()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(className))
sb.Append(" = null;" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
' Create the body of the _property test
Public Function Create_propertyTestBody(ByVal _property As propertyInfo) As String
Dim sb As StringBuilder = New StringBuilder
If _property.CanRead Then
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return variable to hold _property get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.propertyType.ToString)
sb.Append(" _getValue = ")
sb.Append(GetTypeDefaultValue(_property.propertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_getValue = ")
If _property.GetAccessors()(0).IsStatic Then
sb.Append(FullClassName)
Else
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(";" & vbLf)
End If
If _property.CanWrite Then
sb.Append("" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Declare variable to hold _property set method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.propertyType.ToString)
sb.Append(" _setValue = ")
sb.Append(GetTypeDefaultValue(_property.propertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test set method" & vbLf)
If _property.GetAccessors()(0).IsStatic Then
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(FullClassName)
Else
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(" = _setValue")
sb.Append(";" & vbLf)
End If
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for ")
sb.Append(_property.Name)
sb.Append("()" & vbLf)
Return sb.ToString
End Function
' Create the body of the _property test
Public Function CreatePropertyTestBody(ByVal _property As PropertyInfo) As String
Dim sb As StringBuilder = New StringBuilder
If _property.CanRead Then
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return variable to hold _property get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.PropertyType.ToString)
sb.Append(" _getValue = ")
sb.Append(GetTypeDefaultValue(_property.PropertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test get method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_getValue = ")
If _property.GetAccessors()(0).IsStatic Then
sb.Append(FullClassName)
Else
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(";" & vbLf)
End If
If _property.CanWrite Then
sb.Append("" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Declare variable to hold _property set method" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(_property.PropertyType.ToString)
sb.Append(" _setValue = ")
sb.Append(GetTypeDefaultValue(_property.PropertyType.ToString))
sb.Append(";" & vbLf)
sb.Append("" & vbLf & vbTab & vbTab & vbTab & "// Test set method" & vbLf)
If _property.GetAccessors()(0).IsStatic Then
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(FullClassName)
Else
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(_property.Name)
sb.Append(" = _setValue")
sb.Append(";" & vbLf)
End If
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for ")
sb.Append(_property.Name)
sb.Append("()" & vbLf)
Return sb.ToString
End Function
' Creates the property test method
Public Function CreatePropertyTest(ByVal _property As PropertyInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<Test, Ignore(\""Setup ")
sb.Append("Assert tests for the property ")
sb.Append(GetCaseName(_property.Name))
sb.Append("\"")> _" & vbLf & vbTab & vbTab & "public Sub ")
sb.Append(GetCaseName(_property.Name))
sb.Append("()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append(CreatePropertyTestBody(_property))
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function ReflectClassProperties(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As PropertyInfo()
' Retrieve the type of the class
Dim type As System.Type = GetClassType(assemblyPath, fullyQualifiedClassName)
' Return the list of properties
If IncludeInheritedMembers Then
Return type.GetProperties((BindingFlags.Public _
Or (BindingFlags.Static Or BindingFlags.Instance)))
Else
Return type.GetProperties((BindingFlags.Public _
Or (BindingFlags.Static _
Or (BindingFlags.Instance Or BindingFlags.DeclaredOnly))))
End If
End Function
Public Function CreateMethodTestInit(ByVal fullClassName As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<SetUp> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub TestInit()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Initialize the ")
sb.Append(fullClassName)
sb.Append(" for each test with the desired constructor and variables" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(fullClassName)))
sb.Append(" = new ")
sb.Append(fullClassName)
sb.Append("();" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function CreateMethodTestDispose(ByVal className As String) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("<TearDown> _" & vbLf)
sb.Append("" & vbTab & vbTab & "public Sub TestDispose()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "m_")
sb.Append(GetCamelCaseName(className))
sb.Append(" = null;" & vbLf)
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
Public Function CreateMethodTestBody(ByVal method As MethodInfo) As String
Dim sb As StringBuilder = New StringBuilder
sb.Append("" & vbTab & vbTab & vbTab & "// Declare variables to pass to method call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Set values for variables" & vbLf)
Dim parameters() As ParameterInfo = method.GetParameters
Dim c As Integer = 0
Do While (c < parameters.Length)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(parameters(c).ParameterType.ToString)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(" = ")
sb.Append(GetTypeDefaultValue(parameters(c).ParameterType.ToString))
sb.Append(";" & vbLf)
c = (c + 1)
Loop
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
If (method.ReturnType.ToString <> "System.Sub") Then
sb.Append("" & vbTab & vbTab & vbTab & "// Declare return type to hold method result" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
sb.Append(method.ReturnType.ToString)
sb.Append(" _returnValue;" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Make method call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "_returnValue = ")
Else
sb.Append("" & vbTab & vbTab & vbTab & "// Make method call" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab)
End If
If method.IsStatic Then
sb.Append(FullClassName)
Else
sb.Append("m_")
sb.Append(GetCamelCaseName(GetClassName(FullClassName)))
End If
sb.Append(".")
sb.Append(method.Name)
sb.Append("(")
Do While (c < parameters.Length)
sb.Append(" _")
sb.Append(parameters(c).Name)
sb.Append(", ")
c = (c + 1)
Loop
If (parameters.Length > 0) Then
sb.Remove((sb.Length - 2), 2)
End If
sb.Append(");" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "// Perform Assert Tests" & vbLf)
sb.Append("" & vbTab & vbTab & vbTab & "//TODO: Write Assert Tests for ")
sb.Append(method.Name)
sb.Append("()" & vbLf)
Return sb.ToString
End Function
' Creates the method test method
Public Function CreateMethodTest(ByVal method As MethodInfo, ByVal methodCount As Hashtable) As String
Dim sb As StringBuilder = New StringBuilder
Dim currentOverloadCount As Integer = MethodOverloadCount(method.Name, methodCount)
sb.Append("<Test, Ignore(\""Setup ")
sb.Append(" parameter value(s) and Assert tests for the method ")
sb.Append(GetCaseName(method.Name))
sb.Append("\"")> _" & vbLf & vbTab & vbTab & "public Sub ")
sb.Append(GetCaseName(method.Name))
If (currentOverloadCount > 1) Then
sb.Append("_Overload")
sb.Append(currentOverloadCount.ToString)
End If
sb.Append("()" & vbLf)
sb.Append("" & vbTab & vbTab & "" & vbLf)
sb.Append(CreateMethodTestBody(method))
sb.Append("" & vbTab & vbTab & "End Sub")
Return sb.ToString
End Function
' Returns the current number of overloads for a given method name
Public Function MethodOverloadCount(ByVal methodName As String, ByVal methodCount As Hashtable) As Integer
Dim currentCount As Integer = 0
If methodCount.ContainsKey(methodName) Then
currentCount = CType(methodCount(methodName),Integer)
End If
Dim i As Integer = 0
For i = 0 To methods.Length - 1
If (methods(i).Name = methodName) Then
currentCount = (currentCount + 1)
If methodCount.ContainsKey(methodName) Then
If (currentCount > CType(methodCount(methodName),Integer)) Then
methodCount(methodName) = (CType(methodCount(methodName),Integer) + 1)
End If
Else
methodCount.Add(methodName, 1)
End If
If (currentCount = CType(methodCount(methodName),Integer)) Then
Exit For
End If
End If
Next
Return CType(methodCount(methodName),Integer)
End Function
Public Function ReflectClassMethods(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As MethodInfo()
' Retrieve the type of the class
Dim type As System.Type = GetClassType(assemblyPath, fullyQualifiedClassName)
' Return the list of properties
If IncludeInheritedMembers Then
Return type.GetMethods((BindingFlags.Public _
Or (BindingFlags.Static Or BindingFlags.Instance)))
Else
Return type.GetMethods((BindingFlags.Public _
Or (BindingFlags.Static _
Or (BindingFlags.Instance Or BindingFlags.DeclaredOnly))))
End If
End Function
Public Function GetClassType(ByVal assemblyPath As String, ByVal fullyQualifiedClassName As String) As System.Type
' Load the assembly which contains the class to reflect
Dim assembly As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(assemblyPath)
' Retrieve the type of the class
Dim type As System.Type = assembly.GetType(fullyQualifiedClassName)
' Release the assembly
assembly = Nothing
Return type
End Function
Public Function GetTypeDefaultValue(ByVal typeName As String) As String
' init the variable value
Dim variableValue As String = string.Empty
' determine the default variable value from the variable type
Select Case (typeName)
Case "System.Binary", "System.Byte", "System.Int16", "System.Int32", "System.Int64"
variableValue = "0"
Exit Select
Case "System.String"
variableValue = "String.Empty"
Exit Select
Case "System.Boolean"
variableValue = "false"
Exit Select
Case "System.Guid"
variableValue = "Guid.NewGuid()"
Exit Select
Case "System.DateTime"
variableValue = "DateTime.MinValue"
Exit Select
Case Else
variableValue = "null"
Exit Select
End Select
Return variableValue
End Function
</script>
C#版
<%@ CodeTemplate Language="C#" TargetLanguage="Text" Description="Template description here." Debug="False" %>
<%@ Assembly Name="System.Design" %>
<%@ Import Namespace="System.Reflection" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Text" %>
<%@ Property Name="FullClassName" Type="System.String" Category="Template Options" Description="This is the fully qualified name of the class to test." %>
<%@ Property Name="IncludeInheritedMembers" Type="System.Boolean" Category="Template Options" Required="true" default="false" %>
<%@ Property Name="DeclaringTypeToExclude" Type="System.String" Category="Template Options" Required="false" %>
<%@ Property Name="GenerateConstructorClasses" Type="System.Boolean" Category="Constructor Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GeneratePropertyClasses" Type="System.Boolean" Category="Property Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GenerateMethodClasses" Type="System.Boolean" Category="Method Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<% InitTemplate(); %>
using System;
using NUnit.Framework;
using <%= GetNamespaceOnly(FullClassName)%>;
namespace <%= GetTestNamespace(FullClassName) %>
{
<%/*
----------------------------------------------
--------------- Constructors -----------------
----------------------------------------------
*/
if(GenerateConstructorClasses){
%>
#region Constructor Tests
[TestFixture]
public class ConstructorTesting
{
#region Test Preparation Methods
#region TestFixture SetUp and TearDown
[TestFixtureSetUp]
public void FixtureInit()
{
}
[TestFixtureTearDown]
public void FixtureDispose()
{
}
#endregion
#region Test SetUp and TearDown
[SetUp]
public void TestInit()
{
}
[TearDown]
public void TestDispose()
{
}
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < constructors.Length; i++){ %>
<% if( i == 0) {%>
<%= CreateConstructorTest(GetClassName(FullClassName),constructors[i])%>
<%}else{%>
<%= CreateConstructorTest(GetClassName(FullClassName) + "_Overload" + i.ToString(),constructors[i])%>
<%}}%>
#endregion
}
#endregion
<%}%>
<% if(GenerateMethodClasses) {%>
<%/*
----------------------------------------------
-------------- Static Methods ----------------
----------------------------------------------
*/%>
#region Static Method Tests
[TestFixture]
public class StaticMethodTesting
{
#region Test Preparation Methods
#region TestFixture Setup and TearDown
[TestFixtureSetUp]
public void FixtureInit()
{
}
[TestFixtureTearDown]
public void FixtureDispose()
{
}
#endregion
#region Test SetUp and TearDown
[SetUp]
public void TestInit()
{
}
[TearDown]
public void TestDispose()
{
}
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < methods.Length; i++){
if(methods[i].IsStatic && !methods[i].Name.StartsWith("get_") && !methods[i].Name.StartsWith("set_") && methods[i].DeclaringType.ToString() != DeclaringTypeToExclude && methods[i].DeclaringType.ToString() != "System.Object"){%>
<%= CreateMethodTest(methods[i], staticMethodCount) %>
<%}}%>
#endregion
}
#endregion
<%/*
----------------------------------------------
------------------ Methods -------------------
----------------------------------------------
*/%>
#region Method Tests
[TestFixture]
public class MethodTesting
{
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#region Test Preparation Methods
#region TestFixture SetUp and TearDown
[TestFixtureSetUp]
public void FixtureInit()
{
}
[TestFixtureTearDown]
public void FixtureDispose()
{
}
#endregion
#region Test SetUp and TearDown
<%= CreateMethodTestInit(FullClassName) %>
<%= CreateMethodTestDispose(GetClassName(FullClassName)) %>
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < methods.Length; i++){
if(!methods[i].IsStatic && !methods[i].Name.StartsWith("get_") && !methods[i].Name.StartsWith("set_") && methods[i].DeclaringType.ToString() != DeclaringTypeToExclude && methods[i].DeclaringType.ToString() != "System.Object"){%>
<%= CreateMethodTest(methods[i], instanceMethodCount) %>
<%}}%>
#endregion
}
#endregion
<%}%>
<% if(GeneratePropertyClasses) {%>
<%/*
----------------------------------------------
----------------- Properties -----------------
----------------------------------------------
*/%>
#region Property Tests
[TestFixture]
public class PropertyTesting
{
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#region Test Preparation Methods
#region TestFixture SetUp and TearDown
<%= CreatePropertyTestFixtureInit(FullClassName) %>
<%= CreatePropertyTestFixtureDispose(GetClassName(FullClassName)) %>
#endregion
#region Test SetUp and TearDown
[SetUp]
public void TestInit()
{
}
[TearDown]
public void TestDispose()
{
}
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < properties.Length; i++){
if(properties[i].DeclaringType.ToString() != DeclaringTypeToExclude){%>
<%= CreatePropertyTest(properties[i])%>
<%}}%>
#endregion
}
#endregion
<%}%>
}
<script runat="template">
ConstructorInfo[] constructors = null;
MethodInfo[] methods = null;
PropertyInfo[] properties = null;
// Hashtables used to identify overloads for methods and constructors
Hashtable staticMethodCount = new Hashtable();
Hashtable instanceMethodCount = new Hashtable();
Hashtable instanceConstructorCount = new Hashtable();
[Editor(typeof(System.Windows.Forms.Design.FileNameEditor), typeof(System.Drawing.Design.UITypeEditor))]
[CodeTemplateProperty(CodeTemplatePropertyOption.Required)]
[Category("Template Options")]
[Description("This is the full path, including the assembly name, of the assembly which contains the class to test.")]
public string AssemblyPath
{
get { return assemblyPath; }
set { assemblyPath = value; }
}
private string assemblyPath;
public void InitTemplate()
{
//Debugger.Break();
// Reflect object properties
constructors = ReflectClassConstructors(AssemblyPath, FullClassName);
methods = ReflectClassMethods(AssemblyPath, FullClassName);
properties = ReflectClassProperties(AssemblyPath, FullClassName);
}
public string GetCamelCaseName(string value)
{
return value.Substring(0, 1).ToLower() + value.Substring(1);
}
public string GetCaseName(string value)
{
return value.Substring(0, 1).ToUpper() + value.Substring(1);
}
// Returns just the class name given a fully qualified class name; i.e. BHCS.Portal.McCoy.Engine.Entities.Module
public string GetClassName(string fullClassName)
{
return fullClassName.Substring(fullClassName.LastIndexOf(".") + 1);
}
public string GetNamespaceOnly(string fullClassName)
{
return fullClassName.Substring(0,fullClassName.LastIndexOf("."));
}
public string GetTestNamespace(string fullClassName)
{
return GetNamespaceOnly(fullClassName) + ".Test." + GetClassName(fullClassName);
}
public string CreateConstructorTestBody(ConstructorInfo constructor)
{
StringBuilder sb = new StringBuilder();
sb.Append("// Declare variables to pass to constructor call\n");
sb.Append("\t\t\t//TODO: Set values for variables\n");
ParameterInfo[] parameters = constructor.GetParameters();
for(int c = 0; c < parameters.Length; c++)
{
sb.Append("\t\t\t");
sb.Append(parameters[c].ParameterType.ToString());
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(" = ");
sb.Append(GetTypeDefaultValue(parameters[c].ParameterType.ToString()));
sb.Append(";\n");
}
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Declare return type to hold constructor result\n");
sb.Append("\t\t\t");
sb.Append(FullClassName);
sb.Append(" _returnValue;\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Instantiate object\n");
sb.Append("\t\t\t_returnValue = new ");
sb.Append(FullClassName);
sb.Append("(");
for(int c = 0; c < parameters.Length; c++)
{
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(", ");
}
if(parameters.Length > 0)
sb.Remove(sb.Length -2 ,2);
sb.Append(");\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Perform Assert Tests\n");
sb.Append("\t\t\t//TODO: Write Assert Tests for object instance\n");
return sb.ToString();
}
// Creates the constructor test method
public string CreateConstructorTest(string constructorName, ConstructorInfo constructor)
{
StringBuilder sb = new StringBuilder();
sb.Append("[Test, Ignore(\"Setup ");
sb.Append(FullClassName);
sb.Append(" parameter value and Assert tests for the constructor\")]\n");
sb.Append("\t\tpublic void ");
sb.Append(constructorName);
sb.Append("()\n");
sb.Append("\t\t{\n\t\t\t");
sb.Append(CreateConstructorTestBody(constructor));
sb.Append("\n\t\t}");
return sb.ToString();
}
public ConstructorInfo[] ReflectClassConstructors(string assemblyPath, string fullyQualifiedClassName)
{
// Retrieve the type of the class
System.Type type = GetClassType(assemblyPath, fullyQualifiedClassName);
// Return the list of properties
if(IncludeInheritedMembers)
return type.GetConstructors(BindingFlags.Public|BindingFlags.Instance);
else
return type.GetConstructors(BindingFlags.Public|BindingFlags.Instance|BindingFlags.DeclaredOnly);
}
public string CreatePropertyTestFixtureInit(string fullClassName)
{
StringBuilder sb = new StringBuilder();
sb.Append("[TestFixtureSetUp]\n");
sb.Append("\t\tpublic void FixtureInit()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\t//TODO: Initialize the ");
sb.Append(fullClassName);
sb.Append(" for the test suite with the desired constructor and variables\n");
sb.Append("\t\t\t");
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(fullClassName)));
sb.Append(" = new ");
sb.Append(fullClassName);
sb.Append("();\n");
sb.Append("\t\t}");
return sb.ToString();
}
public string CreatePropertyTestFixtureDispose(string className)
{
StringBuilder sb = new StringBuilder();
sb.Append("[TestFixtureTearDown]\n");
sb.Append("\t\tpublic void FixtureDispose()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\tm_");
sb.Append(GetCamelCaseName(className));
sb.Append(" = null;\n");
sb.Append("\t\t}");
return sb.ToString();
}
// Create the body of the property test
public string CreatePropertyTestBody(PropertyInfo property)
{
StringBuilder sb = new StringBuilder();
if(property.CanRead)
{
sb.Append("\t\t\t// Declare return variable to hold property get method\n");
sb.Append("\t\t\t");
sb.Append(property.PropertyType.ToString());
sb.Append(" _getValue = ");
sb.Append(GetTypeDefaultValue(property.PropertyType.ToString()));
sb.Append(";\n");
sb.Append("\n\t\t\t// Test get method\n");
sb.Append("\t\t\t_getValue = ");
if(property.GetAccessors()[0].IsStatic)
{
sb.Append(FullClassName);
}
else
{
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(FullClassName)));
}
sb.Append(".");
sb.Append(property.Name);
sb.Append(";\n");
}
if(property.CanWrite)
{
sb.Append("\n");
sb.Append("\t\t\t// Declare variable to hold property set method\n");
sb.Append("\t\t\t");
sb.Append(property.PropertyType.ToString());
sb.Append(" _setValue = ");
sb.Append(GetTypeDefaultValue(property.PropertyType.ToString()));
sb.Append(";\n");
sb.Append("\n\t\t\t// Test set method\n");
if(property.GetAccessors()[0].IsStatic)
{
sb.Append("\t\t\t");
sb.Append(FullClassName);
}
else
{
sb.Append("\t\t\tm_");
sb.Append(GetCamelCaseName(GetClassName(FullClassName)));
}
sb.Append(".");
sb.Append(property.Name);
sb.Append(" = _setValue");
sb.Append(";\n");
}
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Perform Assert Tests\n");
sb.Append("\t\t\t//TODO: Write Assert Tests for ");
sb.Append(property.Name);
sb.Append("()\n");
return sb.ToString();
}
// Creates the property test method
public string CreatePropertyTest(PropertyInfo property)
{
StringBuilder sb = new StringBuilder();
sb.Append("[Test, Ignore(\"Setup ");
sb.Append("Assert tests for the property ");
sb.Append(GetCaseName(property.Name));
sb.Append("\")]\n\t\tpublic void ");
sb.Append(GetCaseName(property.Name));
sb.Append("()\n");
sb.Append("\t\t{\n");
sb.Append(CreatePropertyTestBody(property));
sb.Append("\t\t}");
return sb.ToString();
}
public PropertyInfo[] ReflectClassProperties(string assemblyPath, string fullyQualifiedClassName)
{
// Retrieve the type of the class
System.Type type = GetClassType(assemblyPath, fullyQualifiedClassName);
// Return the list of properties
if(IncludeInheritedMembers)
return type.GetProperties(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance);
else
return type.GetProperties(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance|BindingFlags.DeclaredOnly);
}
public string CreateMethodTestInit(string fullClassName)
{
StringBuilder sb = new StringBuilder();
sb.Append("[SetUp]\n");
sb.Append("\t\tpublic void TestInit()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\t//TODO: Initialize the ");
sb.Append(fullClassName);
sb.Append(" for each test with the desired constructor and variables\n");
sb.Append("\t\t\t");
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(fullClassName)));
sb.Append(" = new ");
sb.Append(fullClassName);
sb.Append("();\n");
sb.Append("\t\t}");
return sb.ToString();
}
public string CreateMethodTestDispose(string className)
{
StringBuilder sb = new StringBuilder();
sb.Append("[TearDown]\n");
sb.Append("\t\tpublic void TestDispose()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\tm_");
sb.Append(GetCamelCaseName(className));
sb.Append(" = null;\n");
sb.Append("\t\t}");
return sb.ToString();
}
public string CreateMethodTestBody(MethodInfo method)
{
StringBuilder sb = new StringBuilder();
sb.Append("\t\t\t// Declare variables to pass to method call\n");
sb.Append("\t\t\t//TODO: Set values for variables\n");
ParameterInfo[] parameters = method.GetParameters();
for(int c = 0; c < parameters.Length; c++)
{
sb.Append("\t\t\t");
sb.Append(parameters[c].ParameterType.ToString());
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(" = ");
sb.Append(GetTypeDefaultValue(parameters[c].ParameterType.ToString()));
sb.Append(";\n");
}
sb.Append("\t\t\t\n");
if(method.ReturnType.ToString() != "System.Void")
{
sb.Append("\t\t\t// Declare return type to hold method result\n");
sb.Append("\t\t\t");
sb.Append(method.ReturnType.ToString());
sb.Append(" _returnValue;\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Make method call\n");
sb.Append("\t\t\t_returnValue = ");
}
else
{
sb.Append("\t\t\t// Make method call\n");
sb.Append("\t\t\t");
}
if(method.IsStatic)
{
sb.Append(FullClassName);
}
else
{
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(FullClassName)));
}
sb.Append(".");
sb.Append(method.Name);
sb.Append("(");
for(int c = 0; c < parameters.Length; c++)
{
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(", ");
}
if(parameters.Length > 0)
sb.Remove(sb.Length -2 ,2);
sb.Append(");\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Perform Assert Tests\n");
sb.Append("\t\t\t//TODO: Write Assert Tests for ");
sb.Append(method.Name);
sb.Append("()\n");
return sb.ToString();
}
// Creates the method test method
public string CreateMethodTest(MethodInfo method, Hashtable methodCount)
{
StringBuilder sb = new StringBuilder();
int currentOverloadCount = MethodOverloadCount(method.Name, methodCount);
sb.Append("[Test, Ignore(\"Setup ");
sb.Append(" parameter value(s) and Assert tests for the method ");
sb.Append(GetCaseName(method.Name));
sb.Append("\")]\n\t\tpublic void ");
sb.Append(GetCaseName(method.Name));
if(currentOverloadCount > 1)
{
sb.Append("_Overload");
sb.Append(currentOverloadCount.ToString());
}
sb.Append("()\n");
sb.Append("\t\t{\n");
sb.Append(CreateMethodTestBody(method));
sb.Append("\t\t}");
return sb.ToString();
}
// Returns the current number of overloads for a given method name
public int MethodOverloadCount(string methodName, Hashtable methodCount)
{
int currentCount = 0;
if(methodCount.ContainsKey(methodName))
{
currentCount = (int)methodCount[methodName];
}
for(int i = 0; i < methods.Length; i++)
{
if(methods[i].Name == methodName)
{
currentCount++;
if(methodCount.ContainsKey(methodName))
{
if(currentCount > (int)methodCount[methodName])
methodCount[methodName] = (int)methodCount[methodName] + 1;
}
else
methodCount.Add(methodName,1);
if(currentCount == (int)methodCount[methodName])
break;
}
}
return ((int)methodCount[methodName]);
}
public MethodInfo[] ReflectClassMethods(string assemblyPath, string fullyQualifiedClassName)
{
// Retrieve the type of the class
System.Type type = GetClassType(assemblyPath, fullyQualifiedClassName);
// Return the list of properties
if(IncludeInheritedMembers)
return type.GetMethods(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance);
else
return type.GetMethods(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance|BindingFlags.DeclaredOnly);
}
public System.Type GetClassType(string assemblyPath, string fullyQualifiedClassName)
{
// Load the assembly which contains the class to reflect
System.Reflection.Assembly assembly = System.Reflection.Assembly.LoadFile(assemblyPath);
// Retrieve the type of the class
System.Type type = assembly.GetType(fullyQualifiedClassName);
// Release the assembly
assembly = null;
return type;
}
public string GetTypeDefaultValue(string typeName)
{
// init the variable value
string variableValue = string.Empty;
// determine the default variable value from the variable type
switch(typeName)
{
case "System.Binary":
case "System.Byte":
case "System.Int16":
case "System.Int32":
case "System.Int64":
{
variableValue = "0";
break;
}
case "System.String":
{
variableValue = "String.Empty";
break;
}
case "System.Boolean":
{
variableValue = "false";
break;
}
case "System.Guid":
{
variableValue = "Guid.NewGuid()";
break;
}
case "System.DateTime":
{
variableValue = "DateTime.MinValue";
break;
}
default:
{
variableValue = "null";
break;
}
}
return variableValue;
}
</script>
<%@ Assembly Name="System.Design" %>
<%@ Import Namespace="System.Reflection" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.Text" %>
<%@ Property Name="FullClassName" Type="System.String" Category="Template Options" Description="This is the fully qualified name of the class to test." %>
<%@ Property Name="IncludeInheritedMembers" Type="System.Boolean" Category="Template Options" Required="true" default="false" %>
<%@ Property Name="DeclaringTypeToExclude" Type="System.String" Category="Template Options" Required="false" %>
<%@ Property Name="GenerateConstructorClasses" Type="System.Boolean" Category="Constructor Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GeneratePropertyClasses" Type="System.Boolean" Category="Property Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<%@ Property Name="GenerateMethodClasses" Type="System.Boolean" Category="Method Tests" Required="true" Default="true" Description="Should the appropriate test classes be generated." %>
<% InitTemplate(); %>
using System;
using NUnit.Framework;
using <%= GetNamespaceOnly(FullClassName)%>;
namespace <%= GetTestNamespace(FullClassName) %>
{
<%/*
----------------------------------------------
--------------- Constructors -----------------
----------------------------------------------
*/
if(GenerateConstructorClasses){
%>
#region Constructor Tests
[TestFixture]
public class ConstructorTesting
{
#region Test Preparation Methods
#region TestFixture SetUp and TearDown
[TestFixtureSetUp]
public void FixtureInit()
{
}
[TestFixtureTearDown]
public void FixtureDispose()
{
}
#endregion
#region Test SetUp and TearDown
[SetUp]
public void TestInit()
{
}
[TearDown]
public void TestDispose()
{
}
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < constructors.Length; i++){ %>
<% if( i == 0) {%>
<%= CreateConstructorTest(GetClassName(FullClassName),constructors[i])%>
<%}else{%>
<%= CreateConstructorTest(GetClassName(FullClassName) + "_Overload" + i.ToString(),constructors[i])%>
<%}}%>
#endregion
}
#endregion
<%}%>
<% if(GenerateMethodClasses) {%>
<%/*
----------------------------------------------
-------------- Static Methods ----------------
----------------------------------------------
*/%>
#region Static Method Tests
[TestFixture]
public class StaticMethodTesting
{
#region Test Preparation Methods
#region TestFixture Setup and TearDown
[TestFixtureSetUp]
public void FixtureInit()
{
}
[TestFixtureTearDown]
public void FixtureDispose()
{
}
#endregion
#region Test SetUp and TearDown
[SetUp]
public void TestInit()
{
}
[TearDown]
public void TestDispose()
{
}
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < methods.Length; i++){
if(methods[i].IsStatic && !methods[i].Name.StartsWith("get_") && !methods[i].Name.StartsWith("set_") && methods[i].DeclaringType.ToString() != DeclaringTypeToExclude && methods[i].DeclaringType.ToString() != "System.Object"){%>
<%= CreateMethodTest(methods[i], staticMethodCount) %>
<%}}%>
#endregion
}
#endregion
<%/*
----------------------------------------------
------------------ Methods -------------------
----------------------------------------------
*/%>
#region Method Tests
[TestFixture]
public class MethodTesting
{
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#region Test Preparation Methods
#region TestFixture SetUp and TearDown
[TestFixtureSetUp]
public void FixtureInit()
{
}
[TestFixtureTearDown]
public void FixtureDispose()
{
}
#endregion
#region Test SetUp and TearDown
<%= CreateMethodTestInit(FullClassName) %>
<%= CreateMethodTestDispose(GetClassName(FullClassName)) %>
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < methods.Length; i++){
if(!methods[i].IsStatic && !methods[i].Name.StartsWith("get_") && !methods[i].Name.StartsWith("set_") && methods[i].DeclaringType.ToString() != DeclaringTypeToExclude && methods[i].DeclaringType.ToString() != "System.Object"){%>
<%= CreateMethodTest(methods[i], instanceMethodCount) %>
<%}}%>
#endregion
}
#endregion
<%}%>
<% if(GeneratePropertyClasses) {%>
<%/*
----------------------------------------------
----------------- Properties -----------------
----------------------------------------------
*/%>
#region Property Tests
[TestFixture]
public class PropertyTesting
{
// Variable to hold object to be tested for reuse by init functions
<%= FullClassName %> m_<%= GetCamelCaseName(GetClassName(FullClassName)) %>;
#region Test Preparation Methods
#region TestFixture SetUp and TearDown
<%= CreatePropertyTestFixtureInit(FullClassName) %>
<%= CreatePropertyTestFixtureDispose(GetClassName(FullClassName)) %>
#endregion
#region Test SetUp and TearDown
[SetUp]
public void TestInit()
{
}
[TearDown]
public void TestDispose()
{
}
#endregion
#endregion
#region Test Methods
<% for(int i = 0; i < properties.Length; i++){
if(properties[i].DeclaringType.ToString() != DeclaringTypeToExclude){%>
<%= CreatePropertyTest(properties[i])%>
<%}}%>
#endregion
}
#endregion
<%}%>
}
<script runat="template">
ConstructorInfo[] constructors = null;
MethodInfo[] methods = null;
PropertyInfo[] properties = null;
// Hashtables used to identify overloads for methods and constructors
Hashtable staticMethodCount = new Hashtable();
Hashtable instanceMethodCount = new Hashtable();
Hashtable instanceConstructorCount = new Hashtable();
[Editor(typeof(System.Windows.Forms.Design.FileNameEditor), typeof(System.Drawing.Design.UITypeEditor))]
[CodeTemplateProperty(CodeTemplatePropertyOption.Required)]
[Category("Template Options")]
[Description("This is the full path, including the assembly name, of the assembly which contains the class to test.")]
public string AssemblyPath
{
get { return assemblyPath; }
set { assemblyPath = value; }
}
private string assemblyPath;
public void InitTemplate()
{
//Debugger.Break();
// Reflect object properties
constructors = ReflectClassConstructors(AssemblyPath, FullClassName);
methods = ReflectClassMethods(AssemblyPath, FullClassName);
properties = ReflectClassProperties(AssemblyPath, FullClassName);
}
public string GetCamelCaseName(string value)
{
return value.Substring(0, 1).ToLower() + value.Substring(1);
}
public string GetCaseName(string value)
{
return value.Substring(0, 1).ToUpper() + value.Substring(1);
}
// Returns just the class name given a fully qualified class name; i.e. BHCS.Portal.McCoy.Engine.Entities.Module
public string GetClassName(string fullClassName)
{
return fullClassName.Substring(fullClassName.LastIndexOf(".") + 1);
}
public string GetNamespaceOnly(string fullClassName)
{
return fullClassName.Substring(0,fullClassName.LastIndexOf("."));
}
public string GetTestNamespace(string fullClassName)
{
return GetNamespaceOnly(fullClassName) + ".Test." + GetClassName(fullClassName);
}
public string CreateConstructorTestBody(ConstructorInfo constructor)
{
StringBuilder sb = new StringBuilder();
sb.Append("// Declare variables to pass to constructor call\n");
sb.Append("\t\t\t//TODO: Set values for variables\n");
ParameterInfo[] parameters = constructor.GetParameters();
for(int c = 0; c < parameters.Length; c++)
{
sb.Append("\t\t\t");
sb.Append(parameters[c].ParameterType.ToString());
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(" = ");
sb.Append(GetTypeDefaultValue(parameters[c].ParameterType.ToString()));
sb.Append(";\n");
}
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Declare return type to hold constructor result\n");
sb.Append("\t\t\t");
sb.Append(FullClassName);
sb.Append(" _returnValue;\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Instantiate object\n");
sb.Append("\t\t\t_returnValue = new ");
sb.Append(FullClassName);
sb.Append("(");
for(int c = 0; c < parameters.Length; c++)
{
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(", ");
}
if(parameters.Length > 0)
sb.Remove(sb.Length -2 ,2);
sb.Append(");\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Perform Assert Tests\n");
sb.Append("\t\t\t//TODO: Write Assert Tests for object instance\n");
return sb.ToString();
}
// Creates the constructor test method
public string CreateConstructorTest(string constructorName, ConstructorInfo constructor)
{
StringBuilder sb = new StringBuilder();
sb.Append("[Test, Ignore(\"Setup ");
sb.Append(FullClassName);
sb.Append(" parameter value and Assert tests for the constructor\")]\n");
sb.Append("\t\tpublic void ");
sb.Append(constructorName);
sb.Append("()\n");
sb.Append("\t\t{\n\t\t\t");
sb.Append(CreateConstructorTestBody(constructor));
sb.Append("\n\t\t}");
return sb.ToString();
}
public ConstructorInfo[] ReflectClassConstructors(string assemblyPath, string fullyQualifiedClassName)
{
// Retrieve the type of the class
System.Type type = GetClassType(assemblyPath, fullyQualifiedClassName);
// Return the list of properties
if(IncludeInheritedMembers)
return type.GetConstructors(BindingFlags.Public|BindingFlags.Instance);
else
return type.GetConstructors(BindingFlags.Public|BindingFlags.Instance|BindingFlags.DeclaredOnly);
}
public string CreatePropertyTestFixtureInit(string fullClassName)
{
StringBuilder sb = new StringBuilder();
sb.Append("[TestFixtureSetUp]\n");
sb.Append("\t\tpublic void FixtureInit()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\t//TODO: Initialize the ");
sb.Append(fullClassName);
sb.Append(" for the test suite with the desired constructor and variables\n");
sb.Append("\t\t\t");
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(fullClassName)));
sb.Append(" = new ");
sb.Append(fullClassName);
sb.Append("();\n");
sb.Append("\t\t}");
return sb.ToString();
}
public string CreatePropertyTestFixtureDispose(string className)
{
StringBuilder sb = new StringBuilder();
sb.Append("[TestFixtureTearDown]\n");
sb.Append("\t\tpublic void FixtureDispose()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\tm_");
sb.Append(GetCamelCaseName(className));
sb.Append(" = null;\n");
sb.Append("\t\t}");
return sb.ToString();
}
// Create the body of the property test
public string CreatePropertyTestBody(PropertyInfo property)
{
StringBuilder sb = new StringBuilder();
if(property.CanRead)
{
sb.Append("\t\t\t// Declare return variable to hold property get method\n");
sb.Append("\t\t\t");
sb.Append(property.PropertyType.ToString());
sb.Append(" _getValue = ");
sb.Append(GetTypeDefaultValue(property.PropertyType.ToString()));
sb.Append(";\n");
sb.Append("\n\t\t\t// Test get method\n");
sb.Append("\t\t\t_getValue = ");
if(property.GetAccessors()[0].IsStatic)
{
sb.Append(FullClassName);
}
else
{
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(FullClassName)));
}
sb.Append(".");
sb.Append(property.Name);
sb.Append(";\n");
}
if(property.CanWrite)
{
sb.Append("\n");
sb.Append("\t\t\t// Declare variable to hold property set method\n");
sb.Append("\t\t\t");
sb.Append(property.PropertyType.ToString());
sb.Append(" _setValue = ");
sb.Append(GetTypeDefaultValue(property.PropertyType.ToString()));
sb.Append(";\n");
sb.Append("\n\t\t\t// Test set method\n");
if(property.GetAccessors()[0].IsStatic)
{
sb.Append("\t\t\t");
sb.Append(FullClassName);
}
else
{
sb.Append("\t\t\tm_");
sb.Append(GetCamelCaseName(GetClassName(FullClassName)));
}
sb.Append(".");
sb.Append(property.Name);
sb.Append(" = _setValue");
sb.Append(";\n");
}
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Perform Assert Tests\n");
sb.Append("\t\t\t//TODO: Write Assert Tests for ");
sb.Append(property.Name);
sb.Append("()\n");
return sb.ToString();
}
// Creates the property test method
public string CreatePropertyTest(PropertyInfo property)
{
StringBuilder sb = new StringBuilder();
sb.Append("[Test, Ignore(\"Setup ");
sb.Append("Assert tests for the property ");
sb.Append(GetCaseName(property.Name));
sb.Append("\")]\n\t\tpublic void ");
sb.Append(GetCaseName(property.Name));
sb.Append("()\n");
sb.Append("\t\t{\n");
sb.Append(CreatePropertyTestBody(property));
sb.Append("\t\t}");
return sb.ToString();
}
public PropertyInfo[] ReflectClassProperties(string assemblyPath, string fullyQualifiedClassName)
{
// Retrieve the type of the class
System.Type type = GetClassType(assemblyPath, fullyQualifiedClassName);
// Return the list of properties
if(IncludeInheritedMembers)
return type.GetProperties(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance);
else
return type.GetProperties(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance|BindingFlags.DeclaredOnly);
}
public string CreateMethodTestInit(string fullClassName)
{
StringBuilder sb = new StringBuilder();
sb.Append("[SetUp]\n");
sb.Append("\t\tpublic void TestInit()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\t//TODO: Initialize the ");
sb.Append(fullClassName);
sb.Append(" for each test with the desired constructor and variables\n");
sb.Append("\t\t\t");
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(fullClassName)));
sb.Append(" = new ");
sb.Append(fullClassName);
sb.Append("();\n");
sb.Append("\t\t}");
return sb.ToString();
}
public string CreateMethodTestDispose(string className)
{
StringBuilder sb = new StringBuilder();
sb.Append("[TearDown]\n");
sb.Append("\t\tpublic void TestDispose()\n");
sb.Append("\t\t{\n");
sb.Append("\t\t\tm_");
sb.Append(GetCamelCaseName(className));
sb.Append(" = null;\n");
sb.Append("\t\t}");
return sb.ToString();
}
public string CreateMethodTestBody(MethodInfo method)
{
StringBuilder sb = new StringBuilder();
sb.Append("\t\t\t// Declare variables to pass to method call\n");
sb.Append("\t\t\t//TODO: Set values for variables\n");
ParameterInfo[] parameters = method.GetParameters();
for(int c = 0; c < parameters.Length; c++)
{
sb.Append("\t\t\t");
sb.Append(parameters[c].ParameterType.ToString());
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(" = ");
sb.Append(GetTypeDefaultValue(parameters[c].ParameterType.ToString()));
sb.Append(";\n");
}
sb.Append("\t\t\t\n");
if(method.ReturnType.ToString() != "System.Void")
{
sb.Append("\t\t\t// Declare return type to hold method result\n");
sb.Append("\t\t\t");
sb.Append(method.ReturnType.ToString());
sb.Append(" _returnValue;\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Make method call\n");
sb.Append("\t\t\t_returnValue = ");
}
else
{
sb.Append("\t\t\t// Make method call\n");
sb.Append("\t\t\t");
}
if(method.IsStatic)
{
sb.Append(FullClassName);
}
else
{
sb.Append("m_");
sb.Append(GetCamelCaseName(GetClassName(FullClassName)));
}
sb.Append(".");
sb.Append(method.Name);
sb.Append("(");
for(int c = 0; c < parameters.Length; c++)
{
sb.Append(" _");
sb.Append(parameters[c].Name);
sb.Append(", ");
}
if(parameters.Length > 0)
sb.Remove(sb.Length -2 ,2);
sb.Append(");\n");
sb.Append("\t\t\t\n");
sb.Append("\t\t\t// Perform Assert Tests\n");
sb.Append("\t\t\t//TODO: Write Assert Tests for ");
sb.Append(method.Name);
sb.Append("()\n");
return sb.ToString();
}
// Creates the method test method
public string CreateMethodTest(MethodInfo method, Hashtable methodCount)
{
StringBuilder sb = new StringBuilder();
int currentOverloadCount = MethodOverloadCount(method.Name, methodCount);
sb.Append("[Test, Ignore(\"Setup ");
sb.Append(" parameter value(s) and Assert tests for the method ");
sb.Append(GetCaseName(method.Name));
sb.Append("\")]\n\t\tpublic void ");
sb.Append(GetCaseName(method.Name));
if(currentOverloadCount > 1)
{
sb.Append("_Overload");
sb.Append(currentOverloadCount.ToString());
}
sb.Append("()\n");
sb.Append("\t\t{\n");
sb.Append(CreateMethodTestBody(method));
sb.Append("\t\t}");
return sb.ToString();
}
// Returns the current number of overloads for a given method name
public int MethodOverloadCount(string methodName, Hashtable methodCount)
{
int currentCount = 0;
if(methodCount.ContainsKey(methodName))
{
currentCount = (int)methodCount[methodName];
}
for(int i = 0; i < methods.Length; i++)
{
if(methods[i].Name == methodName)
{
currentCount++;
if(methodCount.ContainsKey(methodName))
{
if(currentCount > (int)methodCount[methodName])
methodCount[methodName] = (int)methodCount[methodName] + 1;
}
else
methodCount.Add(methodName,1);
if(currentCount == (int)methodCount[methodName])
break;
}
}
return ((int)methodCount[methodName]);
}
public MethodInfo[] ReflectClassMethods(string assemblyPath, string fullyQualifiedClassName)
{
// Retrieve the type of the class
System.Type type = GetClassType(assemblyPath, fullyQualifiedClassName);
// Return the list of properties
if(IncludeInheritedMembers)
return type.GetMethods(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance);
else
return type.GetMethods(BindingFlags.Public|BindingFlags.Static|BindingFlags.Instance|BindingFlags.DeclaredOnly);
}
public System.Type GetClassType(string assemblyPath, string fullyQualifiedClassName)
{
// Load the assembly which contains the class to reflect
System.Reflection.Assembly assembly = System.Reflection.Assembly.LoadFile(assemblyPath);
// Retrieve the type of the class
System.Type type = assembly.GetType(fullyQualifiedClassName);
// Release the assembly
assembly = null;
return type;
}
public string GetTypeDefaultValue(string typeName)
{
// init the variable value
string variableValue = string.Empty;
// determine the default variable value from the variable type
switch(typeName)
{
case "System.Binary":
case "System.Byte":
case "System.Int16":
case "System.Int32":
case "System.Int64":
{
variableValue = "0";
break;
}
case "System.String":
{
variableValue = "String.Empty";
break;
}
case "System.Boolean":
{
variableValue = "false";
break;
}
case "System.Guid":
{
variableValue = "Guid.NewGuid()";
break;
}
case "System.DateTime":
{
variableValue = "DateTime.MinValue";
break;
}
default:
{
variableValue = "null";
break;
}
}
return variableValue;
}
</script>
 | 本作品采用 知识共享署名-非商业性使用 2.5 中国大陆许可协议进行许可。 |
