test_string_to_integer_date_delimiters Subroutine

public subroutine test_string_to_integer_date_delimiters()

Arguments

None

Calls

proc~~test_string_to_integer_date_delimiters~~CallsGraph proc~test_string_to_integer_date_delimiters test_string_to_integer_date_delimiters assertequal assertequal proc~test_string_to_integer_date_delimiters->assertequal proc~string_to_integer_date string_to_integer_date proc~test_string_to_integer_date_delimiters->proc~string_to_integer_date proc~mapl_return MAPL_Return proc~string_to_integer_date->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_date_delimiters()
        character(len=*), parameter :: date_string = '2000-04-21'
        integer :: expected_date = -1
        integer :: actual_date = -2

        expected_date = 2000*YEAR_FACTOR + 4*MONTH_FACTOR + 21*DAY_FACTOR
        actual_date = string_to_integer_date(date_string) 
        @assertEqual(expected_date, actual_date)

    end subroutine test_string_to_integer_date_delimiters