VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Steps_report_progress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Sub Given_the_origin_for_some_steps_is_STR_DAF5E456232F(example_context As TContext, step_expressions As Collection)
    'Given the origin for some steps is {string}
    example_context.set_value step_expressions(1), "feature_origin"
End Sub

Public Sub When__INT_steps_are_reported_as_successful_34289162846E(example_context As TContext, step_expressions As Collection)
    'When  {integer} steps are reported as successful
    Dim index As Integer
    Dim session As TSession
    
    Set session = example_context.get_value("session")
    For index = 1 To step_expressions(1)
        session.log_event EVENT_RUN_STEP_FINISHED, vbNullString, "Given a valid step", SECTION_TYPE_STEP, STATUS_OK
    Next
End Sub
