test_convert_ISO8601_to_integer_time Subroutine

public subroutine test_convert_ISO8601_to_integer_time()

Arguments

None

Calls

proc~~test_convert_iso8601_to_integer_time~~CallsGraph proc~test_convert_iso8601_to_integer_time test_convert_ISO8601_to_integer_time assertequal assertequal proc~test_convert_iso8601_to_integer_time->assertequal proc~convert_iso8601_to_integer_time convert_ISO8601_to_integer_time proc~test_convert_iso8601_to_integer_time->proc~convert_iso8601_to_integer_time proc~get_hour ISO8601Time%get_hour proc~convert_iso8601_to_integer_time->proc~get_hour proc~get_minute ISO8601Time%get_minute proc~convert_iso8601_to_integer_time->proc~get_minute proc~get_second ISO8601Time%get_second proc~convert_iso8601_to_integer_time->proc~get_second proc~mapl_return MAPL_Return proc~convert_iso8601_to_integer_time->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_iso8601_to_integer_time->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_time()
      character(len=8) :: time_string
      integer :: actual
      integer :: expected
      integer :: status

      time_string = 'T174107Z'
      expected = 174107
      actual = convert_ISO8601_to_integer_time(time_string, rc=status)
      @assertEqual(SUCCESS, status)
      @assertEqual(expected, actual)

   end subroutine test_convert_ISO8601_to_integer_time