This is a technical entry with my research-and-experiment notes. Feel free to add or argue. Try at your own risk.

I continue my study journal figuring out HP ALM configuration. This entry is about customization with VBScript.

General Idea

How many times we had to reopen failed fixes? How many times regression defects ruined testing schedule? Tracking such occurrences is useful both for learning testing lessons and for project management. There’s even a metric called Fault Feedback Ratio.

But how technically we can obtain such data? Obviously, we don’t want to know just the number of issues currently existing in ‘Reopen’ state.. One way is to utilize Workflow events system and track state transitioning in real-time, increasing counters of failures and reopens every time the issue transitions to this state.

Code Examples

Initialize Counters

Sub Template_Bug_New
'...
  'start reopen counter
  Bug_Fields.Field("BG_USER_TEMPLATE_01").Value = 0

  'start failed counter
  Bug_Fields.Field("BG_USER_TEMPLATE_17").Value = 0
'...
End Sub

Update Counters

Function Template_Bug_CanPost
'...
  'Count Reopen and Count Failed
  If Bug_Fields("BG_STATUS").IsModified AND (Bug_Fields("BG_STATUS").Value = "Reopen") Then
      'reopen
      If Bug_Fields("BG_USER_TEMPLATE_01").IsNull Then
           Bug_Fields("BG_USER_TEMPLATE_01").Value = 1
      Else
           Bug_Fields("BG_USER_TEMPLATE_01").Value = Bug_Fields("BG_USER_TEMPLATE_01").Value + 1
      End If

      'failed
      If Bug_Fields("BG_USER_TEMPLATE_14").IsModified AND (Bug_Fields("BG_USER_TEMPLATE_14").Value = "Failed") Then
            If Bug_Fields("BG_USER_TEMPLATE_17").IsNull Then
                 Bug_Fields("BG_USER_TEMPLATE_17").Value = 1
            Else
                 Bug_Fields("BG_USER_TEMPLATE_17").Value = Bug_Fields("BG_USER_TEMPLATE_17").Value + 1
            End If
      End If
  End If
'...
End Function