昨天晚上刚把自己项目的一个类库写完，松了口气，在做一下Nunit的测试就OK了。
接着就打开CodeSmith,准备用CodeSmith把Nunit单元测试的代码框架用它生成一下。以前草草的写了一个模板，就是把测试工程的类、命名空间和几个方法生成一下。

        刚生成出来，忽然想到我的类里那么多方法，一个一个再写写，太累了（CodeSmith的模板里，我原来的方法名称是填写的），能用反射吗？这样就方便了（没办法，就是懒啊）。马上着手查了查CodeSmith的示例，发现.net的代码可以直接写在里面，试了试，居然也有智能提示，哈哈，太好了

        于是，先写了个函数：

<script runat="template">
 '获取Methed成员的集合
    Public Function GetMetheds()Function GetMetheds(ByVal strAssembly As String, ByVal strType As String) As System.Reflection.MethodInfo() 
        Dim SampleAssembly As System.Reflection.Assembly
        SampleAssembly = System.Reflection.Assembly.loadfrom(strAssembly & ".dll")
    
        Dim myType() As Type = SampleAssembly.GetTypes
        Dim dllType As Type
        
        For Each dllType In myType
            If dllType.Name = strType.Trim Then
            return  dllType.GetMethods
            End If
        Next
    End Function

    public Function GetDate()Function GetDate()as String
        return datetime.Now.ToString("yyyy-MM-dd")
    End Function
</script>

这样，代码区域就可以用循环生成测试方法了：
注：方法的命名规则是－－类的方法名+Test

<% Dim mi As System.Reflection.MemberInfo %>
<% for each mi in GetMetheds(MyAssembly,MyType) %>
        <Test()> Public Sub <%= mi.Name %>Test()
        
        End Sub
<% Next %>

运行了一下，咦，多了好多方法：Dispose,GetHashCode..........
看来是继承自基类的方法，看来得过滤掉，修改了一下：

<% Dim mi As System.Reflection.MemberInfo %>
<% dim aMark as string()={"Dispose","GetHashCode","Equals","ToString","GetType"} %>
<% for each mi in GetMetheds(MyAssembly,MyType) %>
<% If Array.IndexOf(aMark, mi.Name) = -1 Then %>
        <Test()> Public Sub ()Sub <%= mi.Name %>Test()
        
        End Sub
            
    <% End If %>
<% Next %>

哈哈，这下生成的就舒服多了。
以下是以Jmail的dll文件中POP3CLASS为例：

Imports NUnit.Framework

Namespace ExingNamespace Exing.TestCase
    ''' -----------------------------------------------------------------------------
    ''' Project     : TestCase
    ''' Class     : TestCase.POP3Class
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Jmail测试
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    '''     [铱星]    2005-09-26    Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    <TestFixture()> Public Class POP3ClassTestClass POP3ClassTest
        <SetUp()> Public Sub init()Sub init()

        End Sub

        <Test()> Public Sub DownloadUnreadMessagesTest()Sub DownloadUnreadMessagesTest()
        
        End Sub
            
        <Test()> Public Sub DeleteMessagesTest()Sub DeleteMessagesTest()
        
        End Sub
            
        <Test()> Public Sub GetMessageUIDTest()Sub GetMessageUIDTest()
        
        End Sub
            
        <Test()> Public Sub DownloadMessagesTest()Sub DownloadMessagesTest()
        
        End Sub
            
        <Test()> Public Sub DownloadHeadersTest()Sub DownloadHeadersTest()
        
        End Sub
            
        <Test()> Public Sub DeleteSingleMessageTest()Sub DeleteSingleMessageTest()
        
        End Sub
            
        <Test()> Public Sub DownloadSingleHeaderTest()Sub DownloadSingleHeaderTest()
        
        End Sub
            
        <Test()> Public Sub GetLastUnreadMessageTest()Sub GetLastUnreadMessageTest()
        
        End Sub
            
        <Test()> Public Sub get_MessagesTest()Sub get_MessagesTest()
        
        End Sub
            
        <Test()> Public Sub get_SizeTest()Sub get_SizeTest()
        
        End Sub
            
        <Test()> Public Sub get_CountTest()Sub get_CountTest()
        
        End Sub
            
        <Test()> Public Sub set_LoggingTest()Sub set_LoggingTest()
        
        End Sub
            
        <Test()> Public Sub get_LoggingTest()Sub get_LoggingTest()
        
        End Sub
            
        <Test()> Public Sub get_LogTest()Sub get_LogTest()
        
        End Sub
            
        <Test()> Public Sub DisconnectTest()Sub DisconnectTest()
        
        End Sub
            
        <Test()> Public Sub ConnectTest()Sub ConnectTest()
        
        End Sub
            
        <Test()> Public Sub CreateObjRefTest()Sub CreateObjRefTest()
        
        End Sub
            
        <Test()> Public Sub InitializeLifetimeServiceTest()Sub InitializeLifetimeServiceTest()
        
        End Sub
            
        <Test()> Public Sub GetLifetimeServiceTest()Sub GetLifetimeServiceTest()
        
        End Sub
            
        <TearDown()> Public Sub TearDown()Sub TearDown()
            
        End Sub
        
        End Class
End Namespace

唉，以前怎么没早想到啊，白死了那么多脑细胞..........