test_create_from_parameters_heartbeat_positive_explicit Subroutine

public subroutine test_create_from_parameters_heartbeat_positive_explicit()

Arguments

None

Calls

proc~~test_create_from_parameters_heartbeat_positive_explicit~~CallsGraph proc~test_create_from_parameters_heartbeat_positive_explicit test_create_from_parameters_heartbeat_positive_explicit ESMF_TimeIntervalGet ESMF_TimeIntervalGet proc~test_create_from_parameters_heartbeat_positive_explicit->ESMF_TimeIntervalGet assertequal assertequal proc~test_create_from_parameters_heartbeat_positive_explicit->assertequal none~create_from_parameters ExtDataPointerUpdate%create_from_parameters proc~test_create_from_parameters_heartbeat_positive_explicit->none~create_from_parameters none~get_offset ExtDataPointerUpdate%get_offset proc~test_create_from_parameters_heartbeat_positive_explicit->none~get_offset proc~mapl_verify MAPL_Verify proc~test_create_from_parameters_heartbeat_positive_explicit->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~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_create_from_parameters_heartbeat_positive_explicit()
      type(ExtDataPointerUpdate) :: ex
      integer :: status, rc
      character(len=*), parameter :: OFFSET_STRING = '+' // HEARTBEAT_STRING
      type(ESMF_TimeInterval) :: offset, interval
      integer :: expected, actual

      offset = timestep
      call ESMF_TimeIntervalGet(offset, s=expected, _RC)
      call ex%create_from_parameters(UPDATE_TIMESTRING, UPDATE_FREQ_STRING, OFFSET_STRING, default_time, clock, _RC)
      interval = ex%get_offset()
      call ESMF_TimeIntervalGet(interval, s=actual, _RC)
      @assertEqual(expected, actual, ERR_MSG)

   end subroutine test_create_from_parameters_heartbeat_positive_explicit