test_compare_negative_string_to_negative_heartbeat Subroutine

public subroutine test_compare_negative_string_to_negative_heartbeat()

Arguments

None

Calls

proc~~test_compare_negative_string_to_negative_heartbeat~~CallsGraph proc~test_compare_negative_string_to_negative_heartbeat test_compare_negative_string_to_negative_heartbeat ESMF_TimeIntervalGet ESMF_TimeIntervalGet proc~test_compare_negative_string_to_negative_heartbeat->ESMF_TimeIntervalGet assertequal assertequal proc~test_compare_negative_string_to_negative_heartbeat->assertequal none~create_from_parameters ExtDataPointerUpdate%create_from_parameters proc~test_compare_negative_string_to_negative_heartbeat->none~create_from_parameters none~get_offset ExtDataPointerUpdate%get_offset proc~test_compare_negative_string_to_negative_heartbeat->none~get_offset proc~make_offset_string make_offset_string proc~test_compare_negative_string_to_negative_heartbeat->proc~make_offset_string proc~mapl_verify MAPL_Verify proc~test_compare_negative_string_to_negative_heartbeat->proc~mapl_verify none~create_from_parameters->proc~mapl_verify ESMF_ClockGet ESMF_ClockGet none~create_from_parameters->ESMF_ClockGet ESMF_TimeGet ESMF_TimeGet none~create_from_parameters->ESMF_TimeGet ESMF_TimeSet ESMF_TimeSet none~create_from_parameters->ESMF_TimeSet ESMF_UtilStringUpperCase ESMF_UtilStringUpperCase none~create_from_parameters->ESMF_UtilStringUpperCase interface~mapl_assert MAPL_Assert none~create_from_parameters->interface~mapl_assert proc~mapl_return MAPL_Return none~create_from_parameters->proc~mapl_return proc~string_to_esmf_timeinterval string_to_esmf_timeinterval none~create_from_parameters->proc~string_to_esmf_timeinterval proc~string_to_integer_time string_to_integer_time none~create_from_parameters->proc~string_to_integer_time proc~make_offset_string->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~mapl_return->proc~mapl_throw_exception at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~string_to_esmf_timeinterval->proc~mapl_verify proc~string_to_esmf_timeinterval->interface~mapl_assert proc~string_to_esmf_timeinterval->proc~mapl_return ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~string_to_esmf_timeinterval->ESMF_TimeIntervalSet proc~string_to_integer_time->proc~mapl_return

Source Code

   subroutine test_compare_negative_string_to_negative_heartbeat()
      type(ExtDataPointerUpdate) :: ex_str, ex_hb
      integer :: status, rc
      type(ESMF_TimeInterval) :: intv_str, intv_hb
      integer :: expected, actual
      character(len=STRLEN) :: offset_string

      call make_offset_string(TIME_STEP_IN_SECONDS, offset_string, _RC)
      offset_string = '-' // offset_string

      call ex_str%create_from_parameters(UPDATE_TIMESTRING, UPDATE_FREQ_STRING, offset_string, default_time, clock, _RC)
      intv_str = ex_str%get_offset()
      call ESMF_TimeIntervalGet(intv_str, s=expected, _RC)

      call ex_hb%create_from_parameters(UPDATE_TIMESTRING, UPDATE_FREQ_STRING, '-' // HEARTBEAT_STRING, default_time, clock, _RC)
      intv_hb = ex_hb%get_offset()
      call ESMF_TimeIntervalGet(intv_hb, s=actual, _RC)

      @assertEqual(expected, actual, ERR_MSG)

   end subroutine test_compare_negative_string_to_negative_heartbeat