test_convert_ISO8601_to_integer_date Subroutine

public subroutine test_convert_ISO8601_to_integer_date()

Arguments

None

Calls

proc~~test_convert_iso8601_to_integer_date~~CallsGraph proc~test_convert_iso8601_to_integer_date test_convert_ISO8601_to_integer_date assertequal assertequal proc~test_convert_iso8601_to_integer_date->assertequal proc~convert_iso8601_to_integer_date convert_ISO8601_to_integer_date proc~test_convert_iso8601_to_integer_date->proc~convert_iso8601_to_integer_date proc~get_day ISO8601Date%get_day proc~convert_iso8601_to_integer_date->proc~get_day proc~get_month ISO8601Date%get_month proc~convert_iso8601_to_integer_date->proc~get_month proc~get_year ISO8601Date%get_year proc~convert_iso8601_to_integer_date->proc~get_year proc~mapl_return MAPL_Return proc~convert_iso8601_to_integer_date->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_iso8601_to_integer_date->proc~mapl_verify 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 proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_convert_ISO8601_to_integer_date()
      character(len=8) :: date_string
      integer :: actual
      integer :: expected
      integer :: status

      date_string = '20220813'
      expected = 20220813
      actual = convert_ISO8601_to_integer_date(date_string, rc=status)
      @assertEqual(SUCCESS, status)
      @assertEqual(expected, actual)

   end subroutine test_convert_ISO8601_to_integer_date