第四章 使用Setup和tear Down方法执行测试

示例：使用Setup和tear Down方法执行测试

以通常的方式执行新的单元测试。

1. 在一直在使用的命名空间中打开终端。
2. 将^UnitTestRoot的值设置为包含测试类的目录的父级：

USER> Set ^UnitTestRoot="c:\unittests"
复制代码

3. 使用%UnitTest.Manager执行测试：

USER> Do ##class(%UnitTest.Manager).RunTest("mytests")
复制代码

4. IRIS加载测试类、编译类、执行测试并向终端发送报告。

===============================================================================
Directory: C:\unittests\mytests\cls\MyPackage\
===============================================================================
mytests\cls\MyPackage begins ...
Load of directory started on 01/09/2018 14:36:57 '*.xml;*.XML;*.cls;*.mac;*.int;*.inc;*.CLS;*.MAC;*.INT;*.INC'

Loading file C:\unittests\mytests\cls\MyPackage\Tests.xml as xml
Imported class: MyPackage.Tests

Compilation started on 01/09/2018 15:44:01 with qualifiers ''
Compiling class MyPackage.Tests
Compiling routine MyPackage.Tests.1
Compilation finished successfully in 0.033s.

Load finished successfully.
 
  MyPackage.Tests begins ...
      TestAdd() begins ...
        AssertEquals:Test Add(2,2)=4 (passed)
        AssertNotEquals:Test Add(2,2)'=5 (passed)
        LogMessage:Duration of execution: .000073 sec.
      TestAdd passed
      TestEditContact() begins ...
        AssertStatusNotOK:ContactType = Friend (passed)
        AssertStatusOK:ContactType = Personal (passed)
        LogMessage:Duration of execution: .001227 sec.
      TestEditContact passed
    MyPackage.Tests passed
  mytests\cls\MyPackage passed
 
Use the following URL to view the result:
http://10.0.75.1:52773/csp/sys/%25UnitTest.Portal.Indices.cls?Index=10&$NAMESPACE=USER
All PASSED
 
复制代码

执行测试的选项：测试规格和限定符

通常，可以使用以下形式的命令执行RunTest：

Do ##class(%UnitTest.Manager).RunTest("testspec","qualifiers")
复制代码

Testspec参数确定要运行哪些测试以及在哪里可以找到它们。Testspec的一般形式是testSuite：testcase：testmethod，其中

• testsuite(必填)。包含导出的测试类的文件目录。该目录必须是名为^UnitTestRoot的目录的子目录。默认情况下，测试管理器执行此目录及其子目录中包含的所有文件中的所有测试。
• testcase测试用例(可选)。选择包含要执行的测试方法的单个类。格式为PackageName.ClassName。如果存在，则测试管理器仅执行命名类中的测试。
• testmethod(可选)。挑选由测试用例指示的测试类的一个方法来执行。

限定符参数指定用于运行测试的各种选项。正如我们已经看到的，当想要从.cls文件加载测试时，可以使用“/loadudl”限定符。还可以使用限定符来控制测试类在执行后是否从服务器中删除，是否应该从这些外部文件加载测试，或者系统是否应该在测试失败后进入调试模式，等等。限定符参数是一个可选的命令行参数字符串，用于打开或关闭某些测试管理器行为。例如，“/NoLoad/DEBUG”告诉管理器不要从目录加载任何测试，也就是说，使用当前在InterSystems IRIS中的测试，并在调试模式下运行测试。这些限定符就是所谓的可否定布尔值。例如，这意味着“/NoLoad”等同于“/Load=0”。

RunTest 示例

以下是使用RunTest执行单元测试的一些示例。

要使用RunTest，必须首先为^UnitTestRoot分配一个有效的目录名：

USER>Set ^UnitTestRoot = "C:\UnitTests"
复制代码

例1：

USER>Do ##class(%UnitTest.Manager).RunTest()
复制代码

在^UnitTestRoot目录的所有子目录中搜索包含测试类的XML文件。加载它找到的任何测试类并执行测试。

执行后从InterSystems IRIS中删除所有加载的测试类。

例2：

USER>Do ##class(%UnitTest.Manager).RunTest("mytests")
复制代码

• 加载并执行^UnitTestRoot的mytests子目录(及其子目录)中的测试。
• 在测试类执行后从InterSystems IRIS中删除它们。

例3：

USER>Do ##class(%UnitTest.Manager).RunTest("mytests:MyPackage.Tests")
复制代码

• 从^UnitTestRoot目录的mytest子目录(及其子目录)加载测试。仅执行MyPackage.Tests中的测试。
• 执行测试后从InterSystems IRIS中删除所有测试类。

例4：

USER>Do ##class(%UnitTest.Manager).RunTest("mytests:MyPackage.Tests", "/noload/nodelete")
复制代码

• 不将测试加载到IRIS。
• 在MyPackage.Tests中执行测试。请注意，mytest必须仍然包含带有MyPackage.Tests类的XML文件。
• 不从IRIS中删除MyPackage.Tests。

DebugRunTestCase

%UnitTest.Manager类还包含DebugRunTestCase方法。若要使用此方法，仍必须先将^UnitTestRoot分配给有效目录：

USER>Set ^UnitTestRoot="C:\UnitTests"
复制代码

例如：

USER>Do ##class(%UnitTest.Manager).DebugRunTestCase("mytests","MyPackage.Tests","","")
复制代码

• 该方法不从任何目录加载任何类，也不从InterSystems IRIS删除任何类。
• 该方法执行MyPackage.Tests中包含的测试。
• 可选的第三个参数用于限定符。
• 可选的第四个参数用于指定测试类中要执行的单个测试方法。
• 如果测试失败，该方法将继续执行其余的测试方法，但将在测试完成时中断。因此，如果从终端执行，则终端将进入调试模式。

注意：使用DebugRunTestCase时，mytest目录实际上不需要包含MyPackage.Tests。相比之下，RunTest总是要求要执行的测试包含在^UnitTestRoot的子目录中，即使在使用NoLoad”时也是如此。

练习

练习1：MyPackage.TestMe包含一个名为CreateContact的方法。此方法创建并返回Contact实例。它接受Name和ContactType值作为参数。创建一个测试以下内容的单元测试：

• 从CreateContact返回的Contact实例具有正确的Name值。
• 从CreateContact返回的Contact实例具有正确的ContactType值。
• CreateContact返回的Contact实例保存正确，即%Save返回OK状态。

练习2：MyPackage.Contact包含名为ByContactType的类查询。它返回具有ContactType指定值的所有Contact实例的ID值。将单元测试添加到MyPackages.Tests，用于测试以下各项：

• 该查询返回指定ContactType的正确ID值数量。为此，必须正确初始化数据库。
• 查询返回的每个ID值对应于一个具有指定ContactType值的联系人。

请注意，添加此测试不应破坏在完成教程正文中的示例时添加到MyPackage.Tests中的测试。因此，必须以正确的方式初始化和恢复数据库。

把答案发到评论上！！！ 或加群QQ 410039091 分享

源码