vijaypuli
02-21-2010, 12:23 AM
Filters are not being applied in the following QC OTA - VBA code. Everytime, total no. of testcases present in the test set are returned.
Can someone please help me?
Set theTestSet = TestSetsList.Item(index)
Set Exec_Filter = theTestSet.TSTestFactory.Filter
Exec_Filter.Filter("TC_STATUS") = "Passed"
Set Test_list = Exec_Filter.NewList()
temp2 = Test_list.Count
Exec_Filter.Filter("TC_STATUS") = "Failed"
Set Test_list = Exec_Filter.NewList()
temp3 = Test_list.Count
Exec_Filter.Filter("TC_STATUS") = "Blocked"
Set Test_list = Exec_Filter.NewList()
temp4 = Test_list.Count
The same code works perfectly with vbscript
Thanks,
Vijay
Can someone please help me?
Set theTestSet = TestSetsList.Item(index)
Set Exec_Filter = theTestSet.TSTestFactory.Filter
Exec_Filter.Filter("TC_STATUS") = "Passed"
Set Test_list = Exec_Filter.NewList()
temp2 = Test_list.Count
Exec_Filter.Filter("TC_STATUS") = "Failed"
Set Test_list = Exec_Filter.NewList()
temp3 = Test_list.Count
Exec_Filter.Filter("TC_STATUS") = "Blocked"
Set Test_list = Exec_Filter.NewList()
temp4 = Test_list.Count
The same code works perfectly with vbscript
Thanks,
Vijay