Downloading the Test to local PC

[duggisrinivasarao]

Hi

Is there a way to download all the tests that are in a test set in QC to a local drive???

This would be of great help.

Thanks in advance.

-cnu

[basanth27]

All the tests should be on the QC server. You can copy it over ffom there. Else i suggest you check the QC AOM to see if there is a method in the testset factory to download all the test or individually in a loop.

[tpragnya]

Hi

To download all the tests in a test set to local you can right click on aparticular test and export it to excel.Otherwise using a query u can get the list of tests in a test set.If u need the query let me know.

[duggisrinivasarao]

Sorry, I was not much explanatory in the last post.

the Test Set contains all the automated tests. I wanted to download on them as QTP tests. (So that I can open in QTP as a test)

Thanks
Srinivas

[basanth27]

Buddy the QC server will hold your test set on a server PC. Do you have access to your QC server? If yes, then QTP tests are only folders which you can copy over as a network share.

[duggisrinivasarao]

interesting... Say I have Admin rights on QC. and Admin rights on the Server where I hosted the QC Server.

Please let me know how the QTP Tests in QC folder structure maps to filesystem folder structure.

Your suggestion is of great help.

-Cnu

[basanth27]

Very well.. Honestly i have never had the privilege to logon to a QC server. But if i were you i would do windows search on the filesystem with the name of the QTP test which actually will lead you to the location of all the scripts.

Let us know the outcome.

[Jay]

hai Cnu,

You can download the scripts from QC to your local system without any admin rights.

call the first function with required details

Code:

If qtApp.TDConnection.IsConnected Then ' If connection is successful

    Set tdc = qtApp.TDConnection.TDOTA
    Set TreeMgr = tdc.TreeManager
    
    ' Use TreeManager.RootList to get the Subject root.
    Set Trees = TreeMgr.RootList(TDOLE_SUBJECT)
    Set MyTrees = TreeMgr.NodeByPath(strTestPlanProjectPath)
    
    If MyTrees.Count = 0 Then
        ModuleName = ""
        testPath = MyTrees.Path
        strFSPath = strSharedFolderPath
        Call CreateFolder(strFSPath)
        If iReplyA = "Yes" Then
            strFSAPath = strFSPath & "\" & Trim(ModuleName) & " Attachments\"
            Call CreateFolder(strFSAPath)
        End If
        Call DownloadScripts(qtApp, tdc, testPath, strFSPath, ModuleName)
        If iReplyA = "Yes" Then
            Call DownloadAttachements(qtApp, tdc, testPath, strFSAPath)
        End If
    End If

   Call CreateFolder(strSharedFolderPath)
  
   For iChild = 1 To MyTrees.Count
        ModuleName = Trim(MyTrees.Child(iChild).Name)
        strFSPath = strSharedFolderPath & "\" & ModuleName
        Call CreateFolder(strFSPath)
        If iReplyA = "Yes" Then
             strFSAPath = strFSPath & "\" & ModuleName & " Attachments\"
            Call CreateFolder(strFSAPath)
        End If
        Set Locate = MyTrees.FindChildNode(ModuleName)
        testPath = Locate.Path
        Call DownloadScripts(qtApp, tdc, testPath, strFSPath, ModuleName)
        If iReplyA = "Yes" Then
            Call DownloadAttachements(qtApp, tdc, testPath, strFSAPath)
        End If
    Next
    
qtApp.TDConnection.Disconnect ' Disconnect from Quality Center

Else
    Msgbox "Cannot connect to Quality Center" ' If connection is not successful, display an error message.
End If

' Exit QuickTest
qtApp.Quit

' Release the Application object
Set qtApp = Nothing
Set Locate = Nothing
Set MyTrees = Nothing
Set Trees = Nothing
Set TreeMgr = Nothing
Set tdc = Nothing

Msgbox "Download Process is completed"

End Sub
Function CreateFolder(strFolderPath)

   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")

   If Not (fso.FolderExists(strFolderPath)) Then
        Set f = fso.CreateFolder(strFolderPath)
        Set f = Nothing
   End If

   Set fso = Nothing
  
End Function

Function DownloadScripts(qtApp, tdc, testPath, strFSPath, ModuleName)

    For Each oTestSet In tdc.TreeManager.NodeByPath(testPath).TestFactory.NewList("")
            
            ScriptName = oTestSet.Name
            Script = "[QualityCenter] " & testPath & "\" & ScriptName
            ScriptFSScript = strFSPath & "\" & ScriptName
            
            resFlag = ""
            Flag = False
            On Error Resume Next
            qtApp.Open Script, False ' Open the test
            If Err.Number <> 0 Then
            Flag = True
            End If
            qtApp.Test.SaveAs ScriptFSScript
            If Err.Number <> 0 Then
            Flag = True
            Else
            qtApp.Test.Close
            End If
            
            If Flag = True Then
                resFlag = "Error: " & Err.Description
                Flag = False
                Err.Clear
            Else
                resFlag = "Pass"
            End If
            Call WriteScriptNames(strFSPath, ScriptName, ModuleName, resFlag)
            
            resFlag = ""
Next
End Function

~ Jay Patel