Private Sub AddTestToCoverage(reqID As Integer, testID As Integer)

' Add test to requirement coverage
    
    Dim coverable As ICoverableReq
    Dim reqF As ReqFactory
    Dim aReq As Req
            
    Set reqF = tdc.ReqFactory
    Set aReq = reqF.Item(reqID)
    Set coverable = aReq
    coverable.AddTestToCoverage testID
           
    Set coverable = Nothing
    Set reqF = Nothing
    Set aReq = Nothing
End Sub