Public Sub ListUnusedTests()

' Get the list of tests that are not in any test set
 
    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
    ' Exclude the default test set.
    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