test_string_to_integer_time_delimiters Subroutine

public subroutine test_string_to_integer_time_delimiters()

Arguments

None

Calls

proc~~test_string_to_integer_time_delimiters~~CallsGraph proc~test_string_to_integer_time_delimiters test_string_to_integer_time_delimiters assertequal assertequal proc~test_string_to_integer_time_delimiters->assertequal proc~string_to_integer_time string_to_integer_time proc~test_string_to_integer_time_delimiters->proc~string_to_integer_time proc~mapl_return MAPL_Return proc~string_to_integer_time->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

    subroutine test_string_to_integer_time_delimiters()
        character(len=*), parameter :: time_string = '21:00:00'
        integer :: expected_time = -1
        integer :: actual_time = -2

        expected_time = 21*HOUR_FACTOR + 0*MINUTE_FACTOR + 0*SECOND_FACTOR
        actual_time = string_to_integer_time(time_string)
         
        @assertEqual(expected_time, actual_time)

    end subroutine test_string_to_integer_time_delimiters