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

Public Sub When_the_function_name_for_the_last_step_is_c_3D1B9F9C0F3D(example_context As TContext)
    'When the function name for the last step is calculated
    Dim feature As TFeature
    Dim example As TExample
    Dim last_step As TStep
    
    example_context.set_value "Feature: sample" & vbLf & example_context.get_value("gherkin_text"), "gherkin_text"
    Set feature = TFeatureParser.parse_feature(example_context.get_value("gherkin_text"))
    Set example = feature.sections(1)
    Set last_step = example.steps(example.steps.Count)
    example_context.set_value last_step.get_step_function_name, "step_function_name"
End Sub

Public Sub When_the_function_for_the_step_is_calculated_41249A4C9E7F(example_context As TContext)
    'When the function for the step is calculated
    example_context.set_value example_context.get_value("example_step").get_step_function_name, "step_function_name"
End Sub

Public Sub Then_the_function_name_starts_with_STR_4C16558C4B9D(example_context As TContext, step_parameters As Collection)
    'Then the function name starts with "Given_the_name_of_the_first_day_of_the_week_is_STR"
    TSpec.expect(Left(example_context.get_value("step_function_name"), Len(step_parameters(1)))).to_be step_parameters(1)
End Sub

