问题描述
我需要编写一个脚本,以输出给定文件夹中所有测试的列表,这些测试不在任何测试集中。我找到了一个脚本(在下面),除了在所有文件夹中运行外,它完全可以满足我的需要。
Public Sub ListUnusedTests()
Dim testSetF As TestSetFactory
Dim testF As TestFactory
Dim testSetFilter As TDFilter
Dim testFilter As TDFilter
Dim aTest As Test
Dim testL As List
Set testSetF = tdc.TestSetFactory
Set testSetFilter = testSetF.Filter
testSetFilter.Filter("CY_CYCLE") = ">= 0"
Set testF = tdc.TestFactory
Set testFilter = testF.Filter
testFilter.SetXFilter "TEST-TESTSET",False,testSetFilter.Text
Set testL = testF.NewList(testFilter.Text)
Dim Item
For Each Item In testL
Debug.Print Item.Name
Next Item
End Sub
我知道这是一个非常琐碎的问题,但是在文档或论坛中找不到我的答案。我想我需要使用get_Node函数,我只是不知道如何实现它,因为我对此很陌生,由于权限待定,我什至无法测试我的代码。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)